- ベストアンサー
vbaで組み分けする方法が思いつきません
imogasiの回答
これは組み合わせと言うより、順列の問題(普通は考えられる個数の数(場合の数)を問題にするが、エクセルシートに実現したいと言うこと)だと思う。それにしても大変な数(エクセル2003まででは許容行数を越える、2007でも個数によっては素の恐れ有り。公式は下記WEB記事など多数)になる。こんなものをシート上に作っても何の役に立つの。 自分で教科書やWEBを調べ、順列の初等解説を読み、プログラムを考えたらいいでしょう。 初等的にはプログラムは、For Nextの10段や15段のネストを使う方法でしょう。 ーー 場合の作り方は http://www.kwansei.ac.jp/hs/z90010/sugaku1/kakuritu/jyunretu/jyunre.htm などまず読むこと。 ーー とりあえず、各列の値を配列の納めた方が、コード記述が楽になるかも。
関連するQ&A
- エクセルVBA 全ての組み合わせを作る
エクセルVBAで、全ての組み合わせを表現する方法を教えてください 既にA列に色、B列に数字、C列にサイズが入力済みだとします A B C 1 色 数字 サイズ ←タイトルの行 2 赤 1 S 3 青 2 M 4 緑 3 L (完成例) D E F 1 色 数字 サイズ ←タイトルの行 2 赤 1 S 3 赤 1 M 4 赤 1 L 5 赤 2 S 6 赤 2 M 7 赤 2 L 8 赤 3 S 9 赤 3 M 10 赤 3 L 11 青 1 S 12 青 1 M 13 青 1 L 14 青 2 S 15 青 2 M 16 青 2 L 17 青 3 S 18 青 3 M 19 青 3 L 20 緑 1 S 21 緑 1 M 22 緑 1 L 23 緑 2 S 24 緑 2 M 25 緑 2 L 26 緑 3 S 27 緑 3 M 28 緑 3 L ・全ての組み合わせが表現できていれば、2~28行目は上の完成例の順番でなくてもいいです ・完成はD~F列の上から(2行目から)結果を反映させ、空白行を作らないようにする ・今回はA~C列の4行まで入力されている例をあげましたが、実際はA~C列の何行まで入力されているか随時変更します ・A~C列のデータ入力は、必ず上から(2行目から)されています ・A~C列のデータ入力は、5行目以降に続くこともあります ・A~C列のデータ入力は、データがない場合もあります (データ入力がない場合) A B C 1 色 数字 サイズ ←タイトルの行 2 1 S 3 2 M 4 L (この場合の完成例) D E F 1 色 数字 サイズ ←タイトルの行 2 1 S 3 1 M 4 1 L 5 2 S 6 2 M 7 2 L 空白行が出来てしまってはいけないので、『まずデータ入力されている列を認識し、認識した列の情報で全ての組み合わせを作成する』という考え方なのかな?と思ったのですが、そのようなことをエクセルVBAでできるのでしょうか もし分かる方がいたら教えてください よろしくお願いします
- 締切済み
- Excel(エクセル)
- エクセル(vba)で教えてください。
エクセル(vba)で教えてください。 vbaはほぼ初心者ですので、皆様のお知恵を拝借させてください 現在リストを作成しているのですが、最終更新日時を自動で取得するようにしてみたいのですが、うまくいかないです。 リストは列(項目)固定で、最終行に追加していくというものです。 1カテゴリ=1行での入力になります。 例えば、A,C列の項目のみ記入すると、その行のL列に自動で日時が入力される。 また翌日ブックを開いても、その日時は最終入力日のままだが、追加でD列の項目を 入力すると日時も更新される、というものです。 説明が足りないかもしれませんが、どなたか詳しい方よろしくお願いします。
- ベストアンサー
- Visual Basic
- VBAで行を分割し、隣の列にコピペしていく方法
よろしくお願いします。 三列・数十万行のデータがあります。一列目は1~N(数千程度)の整数が繰り返し現れます。二・三列目は文字・数値です。全体の行数はNの整数倍になっています。以下のような感じです。 1 A 3 2 C 27 3 J 0.8 ... 2048 L 11 1 K 77 2 B 0 ... 2048 G 99 1 H 10.3 2 Q 62 ... 2048 D 8 このデータを、N行毎に分割し、四列目以降に張り付けたいです。以下のように…。 1 A 3 1 K 77 1 H 10.3 2 C 27 2 B 0 2 Q 62 3 J 0.8 ... ... ... 2048 L 11 2048 G 99 2048 D 8 このような操作をVBAでできないでしょうか。 下記リンクなどを参照したのですが、VBAについて知識がないため、所望の機能を得られていません。 http://okwave.jp/qa/q6342761.html 教えて頂けないでしょうか。よろしくお願いします。
- 締切済み
- Excel(エクセル)
- 20名で1対1で話し合う研修を6回でやる方法
20名で行う研修で1対1で話し合う研修を合計6回でやろうとしています。 10人が誰かと話し合い、合計59組の組み合わせを6回の間で やる方法がどうしてもわかりません。 どなたか教えてください。 ちなみに組み合わせは決まっており(以下のとおりです)その組み合わせを6回以内に効率よくやりたいと思ってます。 ちなみに3回まではアナログ的なやり方で10組ずつ話し合える組み合わせはわかったのですが、 それ以降が頭がぐちゃぐちゃになってわかりません。 組み合わせは以下のとおりです。 AさんとGさん、BさんとJさん、CさんとMさん、LさんとEさん、PさんとQさん、IさんとNさん、GさんとRさん、GさんとSさん、LさんとFさん、 MさんとOさん、TさんとNさん、DさんとEさん、EさんとSさん、AさんとTさん、BさんとHさん、CさんとFさん、JさんとTさん、HさんとMさん、 FさんとQさん、TさんとOさん、AさんとNさん、BさんとEさん、CさんとKさん、JさんとKさん、HさんとKさん、DさんとTさん、IさんとOさん、 GさんとPさん、LさんとNさん、MさんとPさん、EさんとQさん、AさんとSさん、BさんとPさん、CさんとOさん、JさんとPさん、HさんとSさん、 DさんとKさん、IさんとPさん、LさんとSさん、AさんとRさん、BさんとRさん、CさんとQさん、JさんとRさん、HさんとRさん、DさんとSさん、 IさんとQさん、LさんとOさん、BさんとQさん、DさんとOさん、LさんとRさん、JさんとMさん、HさんとIさん、DさんとGさん、IさんとKさん、 GさんとFさん、MさんとNさん、EさんとFさん、FさんとTさん、KさんとNさん の計59通りです。 お力添え何卒よろしくお願いしますm(_ _)m この回答とプラスその算出方法も合わせて教えていただけると幸いです。
- 締切済み
- 数学・算数
- VLOOKUP関数と同じことをVBAでおこなうには
初めまして、当方VBAの素人です。よろしくお願いします。 同じような質問で、このようなVBAを見つけました。 Sub Macro1() For n = 2 To 5 '処理するSheet2の行数範囲 a = Sheets("Sheet2").Cells(n, 1) 'aにA列の値を代入 For m = 2 To 5 '検索するSheet1の行数範囲 If Sheets("Sheet1").Cells(m, 1) = a Then 'Sheet2のA列の値とSheet1のA列が一致した場合 v = Sheets("Sheet1").Cells(m, 2) 'vにB列の値を代入 Sheets("Sheet2").Cells(n, 2).Value = v 'Sheet2のB列に値を入力 Exit For '値が見つかったのでForを終了 End If Next Next End Sub このVBAではSheet2での検索、入力が列になるのですが、列でなく、行でできないでしょうか。できればSheet1のB列の値をSheet2の1行で検索、Sheet2の2行に入力されるだけではなく、Sheet1のC列の値をSheet3の1行で検索、Sheet3の2行に入力されるようにしたいと思います。 解る方、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA等での処理方法
123 12345 123456 1234567 ↓ 0000123 0012345 0123456 1234567 VBAもしくは関数の処理で、A1に7と入れ場合、上記のように、A2以降が123であれば0000123、1234であれば0001234、1234567なら、そのまま1234567になるように更に文字列にするにはどうすればいいでしょうか?処理行は不特定です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA 毎回データが違っても応用できるコード2
先ほどの回答をありがとうございました。 https://okwave.jp/qa/q9539233.html 手順が違っていましたので、再度質問させて頂きたいと思います。宜しくお願いします。 O列をフィルタで昇順にします。 2以上の数値(#N/Aも含む)が入った行のP列をコピーして同じ行のQ列に値でペーストするといった流れです。 見やすくするため、ペーストしたものは赤い文字にしてくれたらありがたいです。 O列 P列 Q列 2 79 79 2 79 79 3 #N/A #N/A 4 #N/A #N/A 5 80 80 8 80 80 8 80 80 10 80 80 11 80 80 18 #N/A #N/A #N/A 84 84 #N/A 80 80 ↑ ↑ コピー 値でペースト
- ベストアンサー
- Visual Basic
- VBAのプログラムに関してです
VBAに関する質問です。 いま、A列に0~4の数字が順番に繰り返し記入されていて(数字の数はランダム)、B列に適当な値が記入されています。A列の中から1を探しだして(1つ上の行の数字が0)、 その行から1つ戻ったB列の値をC列に記入、A列の次の0~4の繰り返しで同じ条件の1を探してその行から2つ戻ったB列の値をD列に記入する。といったことをA列が空白の行になるまで繰り返し行うというプログラムを教えてほしいです。お願いします。 例) A:00011112233400001123334400011111122233400000- B:12345678912345678912345678912345678912345678- となってるA列のそれぞれの0~4の塊の最初の1をさがしてそれに対応するBをそぜぞれ求めていくというものです。 この場合だと実行結果C・D列には C:379 D:688 となってほしいです。
- ベストアンサー
- Visual Basic