- ベストアンサー
vbaで組み分けする方法が思いつきません
vbaを使って、10項目や15項目を全通りに組み分けしたいのです。 たとえば、1行目A1～O1までに15項目の文字列を記入します。 2行目以降A1～M1までは同じでN1とO1が入れ替わり、 同様に3行目はA1～L1、N1、M1、O1 4行目にはA1～L1、N1、O1、M1 というように、組合せ全通りを行で表示したいのです。 どなたかお助けを。
- abierto
- お礼率23% (4/17)
- Visual Basic
- 回答数2
- ありがとう数0
- みんなの回答 （2）
- 専門家の回答
関連するQ&A
- エクセルＶＢＡ 全ての組み合わせを作る
エクセルＶＢＡで、全ての組み合わせを表現する方法を教えてください 既にＡ列に色、Ｂ列に数字、Ｃ列にサイズが入力済みだとします Ａ Ｂ Ｃ 1 色 数字 サイズ ←タイトルの行 2 赤 １ Ｓ 3 青 ２ Ｍ 4 緑 ３ Ｌ （完成例） Ｄ Ｅ Ｆ 1 色 数字 サイズ ←タイトルの行 2 赤 １ Ｓ 3 赤 １ Ｍ 4 赤 １ Ｌ 5 赤 ２ Ｓ 6 赤 ２ Ｍ 7 赤 ２ Ｌ 8 赤 ３ Ｓ 9 赤 ３ Ｍ 10 赤 ３ Ｌ 11 青 １ Ｓ 12 青 １ Ｍ 13 青 １ Ｌ 14 青 ２ Ｓ 15 青 ２ Ｍ 16 青 ２ Ｌ 17 青 ３ Ｓ 18 青 ３ Ｍ 19 青 ３ Ｌ 20 緑 １ Ｓ 21 緑 １ Ｍ 22 緑 １ Ｌ 23 緑 ２ Ｓ 24 緑 ２ Ｍ 25 緑 ２ Ｌ 26 緑 ３ Ｓ 27 緑 ３ Ｍ 28 緑 ３ Ｌ ・全ての組み合わせが表現できていれば、2～28行目は上の完成例の順番でなくてもいいです ・完成はＤ～Ｆ列の上から（2行目から）結果を反映させ、空白行を作らないようにする ・今回はＡ～Ｃ列の4行まで入力されている例をあげましたが、実際はＡ～Ｃ列の何行まで入力されているか随時変更します ・Ａ～Ｃ列のデータ入力は、必ず上から（2行目から）されています ・Ａ～Ｃ列のデータ入力は、5行目以降に続くこともあります ・Ａ～Ｃ列のデータ入力は、データがない場合もあります （データ入力がない場合） Ａ Ｂ Ｃ 1 色 数字 サイズ ←タイトルの行 2 １ Ｓ 3 ２ Ｍ 4 Ｌ （この場合の完成例） Ｄ Ｅ Ｆ 1 色 数字 サイズ ←タイトルの行 2 １ Ｓ 3 １ Ｍ 4 １ Ｌ 5 ２ Ｓ 6 ２ Ｍ 7 ２ Ｌ 空白行が出来てしまってはいけないので、『まずデータ入力されている列を認識し、認識した列の情報で全ての組み合わせを作成する』という考え方なのかな？と思ったのですが、そのようなことをエクセルＶＢＡでできるのでしょうか もし分かる方がいたら教えてください よろしくお願いします
- 締切済み
- 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を見つけました。 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列の値をSheet２の１行で検索、Sheet２の２行に入力されるだけではなく、Sheet1のＣ列の値をSheet３の１行で検索、Sheet３の２行に入力されるようにしたいと思います。 解る方、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel ＶＢＡ等での処理方法
123 12345 123456 1234567 ↓ 0000123 0012345 0123456 1234567 ＶＢＡもしくは関数の処理で、Ａ1に7と入れ場合、上記のように、Ａ2以降が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を探しだして（１つ上の行の数字が0）、 その行から１つ戻った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
