- 締切済み
Excelマクロでのデータ全通り組み合わせ出力方法
Wendy02の回答
- Wendy02
- ベストアンサー率57% (3570/6232)
既に回答が出ていますが、私の書き方で書いてみました。 解釈というよりも、味付けだけの違いで、考え方は同じです。 '// Sub CombinationMaking() Dim x As Long, y As Long, z As Long Dim a As Range, b As Range, c As Range j = 10 '書き出し行 '因子に空白行を入れないでください。 Set a = Range("B2", Range("B2").End(xlDown)) Set b = Range("C2", Range("C2").End(xlDown)) Set c = Range("D2", Range("D2").End(xlDown)) Range(Cells(j, 2), Cells(j, 4).End(xlDown)).Resize(, 3).ClearContents Application.ScreenUpdating = False For x = 1 To a.Count For y = 1 To b.Count For z = 1 To c.Count Cells(j, 2).Value = a.Cells(x, 1).Value Cells(j, 3).Value = b.Cells(y, 1).Value Cells(j, 4).Value = c.Cells(z, 1).Value j = j + 1 Next Next Next Application.ScreenUpdating = True End Sub
関連するQ&A
- Excelでデータ全通り組み合わせ出力方法
Excelでデータ全通り組み合わせ出力方法について教えて頂けますと助かります。 セルA～Eに、数がまちまちのアイテム名が入っています。 （セルA～Eというのは例で、変則的に全てのアイテム数は増減します。） 全ての組合せをセルG～Kに各々書き出してくれる方法はあるでしょうか？ （イメージ添付あり） できればセルに入力すれば自動的に組合せが追加されていくのが理想です。 Excel2010を使用しており、VBAは初心者です。 どなたかご存じでしたら、ぜひお教え下さい。 よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- Excelですべての組合せ（重複組合せ）を出力するには？
Excelですべての組合せ（重複組合せ）を出力するには？ 次の条件のような場合、Excelですべての組合せ（重複組合せ）をVBAで出力するにはどうしたらいいのでしょうか？ 10種類のお菓子の中から、好きなものを3個選んでセットにするとします。 同じものを複数選ぶのはありですが「菓子A、菓子B、菓子C」と「菓子B、菓子C、菓子A」は選んだ順が違うだけで同じ組合せなので、どちらか片方だけにします。 この場合、すべての組合せの数は Excelの関数で求めることができるようで COMBIN(10+3-1,3) = 220 通りあることまではわかりましたが、このすべての組合せの一覧をどのようにして出力したらいいのかがわかりません。 いろいろ検索した結果、順列という方法は見つかりましたが、重複組合せでの方法は見つけることができませんでした。 また、Accessを使っても似たようなことができるのでしょうか？ 直積？ できれば、3個固定ではなく5個の場合も出来るとうれしいです。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Excel 2003のVBAマクロデータをExcel 2007で見たい
Excel 2003のVBAマクロデータをExcel 2007で見たい。 Excel 2003でVBAマクロを登録したExcelファイルがありますが、今回、Excel 2007をインストールして、該当ファイルを開いたところ、「マクロデータを削除しました。」とメッセージが出て、VBEを起動してもマクロが見えなくなりました。OSはWindowsXP SP3です。Excel 2003で登録したVBAマクロをExcel 2007で削除されないで、次の２点について、可能にするにはどうすればよいか、ご教示願います。 (1)マクロデータを残す方法。 (2)マクロ起動する方法。
- ベストアンサー
- その他MS Office製品
- Excelマクロ：配列データからグラフを作成するには？
マクロ初心者です。 Excel VBAのマクロで、２つの配列データから、散布図グラフを作成したいのですが、セルに配列データを書き込まず、直接グラフ化するにはどうしたらよいでしょうか？ 配列データの要素数がexcelの行と列の最大数(65536,256)？を超えてしまっているので、配列データから直接グラフ化したいと思っています。 よろしくお願いいたします。
- 締切済み
- Visual Basic
- ２つのエクセルから同じデータを持つ行を出力する方法
エクセルで作成した二つのＤＢがあります。それぞれ、列・行の数は異なるのですが、同じ名称の列（例えば郵便番号）を持っています。 この二つのファイルから、同じ列に同じ情報をもった行を取りだす、ということをしたいのですが、関数やマクロでの実現できる方法がございましたら、教えて頂けないでしょうか。 例：二つの住所録のようなファイルＡとファイルＢがあって、郵便番号が154-0001のデータ（行）を、別のファイルＣに出力する。（また、ファイルＣ上では、各データがファイルＡとファイルＢのどちらから出力されたものかも、判別が付くように出力したい） 分かりにくいケースで大変恐縮ですが、ご存じの方がおりましたら、どうぞよろしくお願いいたします。 ※エクセル2003を使用しています。
- ベストアンサー
- その他MS Office製品
- エクセルマクロでDBのデータをエクセルに出力したい。
エクセルマクロを初めてしています。 基本的な事で半日費やしてしまい恐縮なのですがアドバイス頂けたら助かります。 マクロの中身は大体こんな感じかな・・というかんじで分かるのですが、いざ自分が作るとなるとよく分からないでいます。 タイトル通りなのですが、エクセルマクロでDBのデータをエクセルに出力するには、どうしたらよいのでしょうか。なにか関数があるのでしょうか。 また何かサンプルがあるサイトがあれば教えてください。
- ベストアンサー
- その他（プログラミング・開発）
- EXCELVBA 全通りの組み合わせの出力
はじめまして！ VBAの記述の方法が分からず困っています。 過去の質問も検索してみましたが、自分のケースにどうあてはめればよいかわからず・・。 どなたが教えていただけないでしょうか？ A1～AK1までそれぞれ1～37までの数字が入力されています。 組み合わせとして、そこから35個の数字を選ぶ場合の全通りを記載したいです。 2行目のA1～AI1までに選んだ35個の数字を出力し、 1行ずつ下にずらしていきたいです。 大変お手数ですが・・・よろしくお願いします・・・
- ベストアンサー
- その他MS Office製品
- エクセルを使った組み合わせ検索をしたい
添付ファイルのように条件にあった組み合わせはなんなのかを算出したいです。 正直組み合わせは数百とあり、その中であったものを選びたいんです。 無茶はわかっております。 どうしてもエクセルで行いたいのです。しかもＶＢＡを使わずに だれかアイデアマンのかた教えてください。
- ベストアンサー
- その他(業務ソフトウェア)
- excelで購入データから商品の組み合わせを集計
添付の【表1】のように、購入者が購入した商品が一個一行でまとめられた購入データがあります。 購入者がどのような組み合わせで商品を購入しているかを把握するために、 【表2】のように、同一購入者が併買している組み合わせの数をエクセルでカウントしたいと考えています。 excelの関数、またはピボットテーブル等で集計する方法があれば教えていただけないでしょうか。 併買を集計する目的にかなうのであれば、【表2】の表を変更いただいても構いません。 どうかよろしくお願いいします。
- ベストアンサー
- その他MS Office製品
- 外部データを取り込むマクロ
マクロ初心者です。 デスクトップ上にCSVファイルを出力し、それをエクセルに取り込んで、 そのデータを見やすく加工するマクロを作りました。 自分のパソコンだとうまく実行できますが、 社内の他の人のパソコンだとできません。 CSVのデータは、共有のオラクルからデータを出力しているので、同じものです。 実行しようとすると、 「実行時エラー1004 外部データ範囲を更新するためのテキスト ファイルが見つかりません テキスト ファイルが移動または名前が変更されていないことを確認し、 再度実行してください」 と言われ、 デバッグするとVBAで .Refresh BackgroundQuery:=False が黄色くなっています。 どうすればうまくいきますか？ 教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ご回答ありがとうございます！ No1の方のご回答と合わせて理解することができました。 次は因子数を自動的に判定し、全通りの組み合わせができるよう、 自分なりに検討してみます。ありがとうございました。