□ 戻る □VBAのサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| B-Aで狙った数字の組み合わせになるように並べ替える方法 | |
|---|---|
[133613] B-Aで狙った数字の組み合わせになるように並べ替える方法- ■親トピック/記事引用/メール受信=ON■ □投稿者/ RYT -(2023/02/28(16:36)) □U R L/ 初めて質問させていただきます。 簡単な内容かもしれませんが、ご教授よろしくお願いいたします。 下記のような数字が数100個ほど並んでいてB-Aの値が0.004に なるべく近くなるような組み合わせに並べ替えたいのですが その方法を教えていただけたら助かります。 どうぞよろしくお願いいたします。 A B 0.6359 0.6407 0.6367 0.6412 0.6374 0.6416 0.6382 0.6418 0.6385 0.6427 0.6394 0.6433 0.6397 0.6437 0.6401 0.6438 0.6405 0.6439 0.6408 0.6441 | |
[133614] Re[1]: B-Aで狙った数字の組み合わせになるように並べ替える方法- ■記事引用/メール受信=OFF■ □投稿者/ ねむねむ -(2023/03/01(12:35)) □U R L/ EXCELのバージョンは？ | |
[133615] Re[2]: B-Aで狙った数字の組み合わせになるように並べ替える方法- ■記事引用/メール受信=OFF■ □投稿者/ ねむねむ -(2023/03/01(12:37)) □U R L/ あと、そのA列B列そのものを並べ替えたいのだろうか？ それともA列、B列はそのままでどこか別の場所に並べ替えたデータを作りたいのだろうか？ | |
[133616] Re[3]: B-Aで狙った数字の組み合わせになるように並べ替える方法- ■記事引用/メール受信=ON■ □投稿者/ RYT -(2023/03/02(08:31)) □U R L/ ねむねむ様 レスありがとうございます。 バージョンはOFFICE365 バージョン2211になります 説明が不足していて申し訳ございません。 A,Bそれぞれに個体番号があり、どの組み合わせが最適かを エクセルに並べ替えて欲しいのですが、A列固定で B列を並べ替えるイメージでした。 別の場所に並べ替えたデータが作られるというパターンだと 助かりますが今はどちらでも大丈夫です。 どうぞよろしくお願いいたします。 番号 A 番号 B B-A A1 0.6359 B1 0.6407 0.0048 A2 0.6367 B2 0.6412 0.0045 A3 0.6374 B3 0.6416 0.0042 A4 0.6382 B4 0.6418 0.0036 A5 0.6385 B5 0.6427 0.0042 A6 0.6394 B6 0.6433 0.0039 A7 0.6397 B7 0.6437 0.004 A8 0.6401 B8 0.6438 0.0037 A9 0.6405 B9 0.6439 0.0034 A10 0.6408 B10 0.6441 0.0033 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[133617] Re[4]: B-Aで狙った数字の組み合わせになるように並べ替える方法- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/03/04(09:40)) □U R L/ よく分からないところがあるのでお聞きします。 サンプルの正解を具体的に示していただけませんか？ | |
[133618] Re[5]: B-Aで狙った数字の組み合わせになるように並べ替える方法- ■記事引用/メール受信=OFF■ □投稿者/ RYT -(2023/03/06(08:33)) □U R L/ 半平太さま ありがとうございます。おっしゃる通りどうしたいかが 明確ではなかったです。申し訳ありません。。 B-Aが0.004になるべく近くというのが曖昧でした。 たとえば0.0035〜0.0045が合格ラインで、合格になるAとBの組み合わせが なるべく多くなるように組み合わせたいというのが意図になります。 こういうことがエクセルで出来ればと思ったのですが、こちらでわかりますでしょうか？ ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[133619] Re[6]: B-Aで狙った数字の組み合わせになるように並べ替える方法- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/03/06(10:03)) □U R L/ ＞こちらでわかりますでしょうか？ 100の階乗通りの組み合わせを作って、0.0035〜0.0045に収まる個数が一番多い組合せが何か知りたい、と解釈しました。 ↓ (93,326,215,443,944,200,000,000,000,000,000,・・通り） 私には出来ないです。 | |
[133620] Re[7]: B-Aで狙った数字の組み合わせになるように並べ替える方法- ■記事引用/メール受信=OFF■ □投稿者/ RYT -(2023/03/06(18:37)) □U R L/ 半平太さま ありがとうございます。かなり難しいことなのですね。 ご検討いただきありがとうございました。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[133621] Re[8]: B-Aで狙った数字の組み合わせになるように並べ替える方法- ■記事引用/メール受信=OFF■ □投稿者/ んなっと -(2023/03/07(10:08)) □U R L/ 再計算のたびに結果が変わりますが... A B C D E F 1 0.6359 0.6407 0.6367 0.6407 0.004 2 0.6367 0.6412 0.6374 0.6416 0.0042 3 0.6374 0.6416 0.6385 0.6427 0.0042 4 0.6382 0.6418 0.6394 0.6433 0.0039 5 0.6385 0.6427 0.6397 0.6438 0.0041 6 0.6394 0.6433 0.6401 0.6437 0.0036 7 0.6397 0.6437 0.6405 0.6441 0.0036 8 0.6401 0.6438 0.6509 0.6548 0.0039 9 0.6405 0.6439 0.6522 0.6559 0.0037 D1 =LET(z,A1:B100,u,SORT(CHOOSECOLS(z,1)),v,SORT(CHOOSECOLS(z,2)), a,TRANSPOSE(v)-u,s,SEQUENCE(ROWS(u)), r,IF((a>=0.0035)*(a<=0.0045),s,""), k,DROP(REDUCE("",SEQUENCE(40),LAMBDA(i,j, LET(p,BYCOL(r,LAMBDA(c,IF(COUNT(c)=0,"",SMALL(c,RANDBETWEEN(1,COUNT(c)))))), VSTACK(i,p)))),1), e,BYROW(k,LAMBDA(w,SUMPRODUCT((w=TRANSPOSE(w))*1))), h,XLOOKUP(MIN(e),e,k), g,IF(XMATCH(h,h)=SEQUENCE(,ROWS(u)),h,""), t,IFERROR(TRANSPOSE(g),""), w,FILTER(HSTACK(INDEX(u,t,1),v),t<>""),SORT(w,1)) | |
[133622] Re[9]: B-Aで狙った数字の組み合わせになるように並べ替える方法- ■記事引用/メール受信=OFF■ □投稿者/ んなっと -(2023/03/07(11:51)) □U R L/ PowerQueryの詳細エディターのコードの場合。 「なるべく組合せが多くなる」というのは放棄し、適当な答えだけ出すいい加減なものです。 let ソース = Excel.CurrentWorkbook(){[Name="テーブル1"]}[Content], Trs = Table.TransformColumnTypes(ソース,{{"列1", type number}, {"列2", type number}}), Tbl1 = Table.RemoveColumns(Trs,{"列2"}), Tbl2 = Table.SelectColumns(Trs,{"列2"}), Add = Table.AddColumn(Tbl1, "カスタム", each Tbl2), Exp = Table.ExpandTableColumn(Add, "カスタム", {"列2"}, {"列2"}), Flt = Table.SelectRows(Exp, each [列2]-[列1]>=0.0035 and [列2]-[列1]<=0.0045), Grp1 = Table.Group(Flt, {"列1"}, {{"列2", each List.Min([列2]), type number}}), Grp2 = Table.Group(Grp1, {"列2"}, {{"列1", each List.Min([列1]), type nullable number}}), Reo = Table.ReorderColumns(Grp2,{"列1", "列2"}) in Reo | |
[133623] Re[10]: B-Aで狙った数字の組み合わせになるように並べ替える方法- ■  / 記事引用/メール受信=ON■
□投稿者/ RYT -(2023/03/07(12:47)) □U R L/ んなっと様 ヒントいただきありがとうございます。大変参考になります。 頑張ってみます！ | |