- ベストアンサー
VBAを使用したセルの組み合わせによる商品管理番号の作成方法
MarcoRossiItalyの回答
- MarcoRossiItaly
- ベストアンサー率40% (454/1128)
No.3 です。後出しされた条件にお答えします。 ＞サンプルは2つの組み合わせですが、コードの組み合わせが3つになることもあり、提示のものでは難しいかなと。 簡単です。 No.3 の方法により 2 次元で作製された文字列の一覧を、ドラッグ・アンド・ドロップでも数式でも、好きな方法で 1 列に並べ替え、A 列に配置します（この際、数式を除去しないまま行うこともできます。）。さらに、第 3 の文字列をどこかの 1 行に入力し、また No.3 と同じことを繰り返すだけです。 このとき、第 3 の文字列が存在しない箇所については、そのセルを未入力のままにしておいて構いません。No.3 の数式は未入力のセルを参照しても問題がないので、文字列結合の数式の入力されているセルは特にそこだけ修正したりせず、単にコピペで大丈夫です。参照先が未入力なら、第 3 の文字列が付加されないだけのことです。 以上のことを手作業で行っても、一からマクロのコードを書くのに比べれば、恐らくより早く全てが完成します。
関連するQ&A
- vba 組み合わせパターン表示
1,2,3,--,n-1,nからｍ個とる組み合わせのパターンを セル（１，１）から（ｎＣm、ｎＣm）に表示させる処理をＶＢＡで記述 したいのですが、どうすればいいのでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelですべての組合せ（重複組合せ）を出力するには？
Excelですべての組合せ（重複組合せ）を出力するには？ 次の条件のような場合、Excelですべての組合せ（重複組合せ）をVBAで出力するにはどうしたらいいのでしょうか？ 10種類のお菓子の中から、好きなものを3個選んでセットにするとします。 同じものを複数選ぶのはありですが「菓子A、菓子B、菓子C」と「菓子B、菓子C、菓子A」は選んだ順が違うだけで同じ組合せなので、どちらか片方だけにします。 この場合、すべての組合せの数は Excelの関数で求めることができるようで COMBIN(10+3-1,3) = 220 通りあることまではわかりましたが、このすべての組合せの一覧をどのようにして出力したらいいのかがわかりません。 いろいろ検索した結果、順列という方法は見つかりましたが、重複組合せでの方法は見つけることができませんでした。 また、Accessを使っても似たようなことができるのでしょうか？ 直積？ できれば、3個固定ではなく5個の場合も出来るとうれしいです。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- 同じものを含む順列
連続する１６個の数字から、４つ取り出してその組合せを全て表す処理を作ろうとしています。 まずは意味からと思い、いろいろ検索して調べても、うまく理解できず、最後の手段でここに投稿いたします。 組合せのパターンを割り出すのに、「同じものを含む順列」を使って行うと言われています。 いろいろ調べて混在したものが、意味の違いの点？で、「同じものを含む順列」と「重複順列」とは同じことを表すのでしょうか。 また、「同じものを含む順列」のパターン出力のプログラムを作る必要があり、参考になるサンプルが存在するなら教えていただけないでしょうか。 （順列や組合せは見つかったのですが） 宜しくお願いします。
- ベストアンサー
- 数学・算数
- 複数セルの文字列をスマートに連結する方法
ウィンドウズ７Home Premium 64bit、エクセル2010で、複数セルの文字列をスマートに連結する方法を、ご教授ください。例えば： A1 ABCD A2 EFGH A3 IJKL A4 MNOP A5 QRST A6 UVWX A7 YZ ７セルの文字列を、 A9 ABC...XYZ のように、１つのセルに、文字を連結して表示させる、スマートな方法を、お教えください。 （現在は、手動のコピペで処理しています！) 当方、自称の上級者です。ウィザード、関数、ＶＢＡのどの方法でも結構です。 また、セルの数が一定でないため、できれば、範囲選択しての方法がありがたいです。 （Selection) それが不可能なら、ＶＢＡのＦＯＲ：ＮＥＸＴで、空白セルでブレークの方法でも。 達人の回答者の方、よろしくお願いいたします。
- 締切済み
- Windows 7
- エクセルVBA 変数Ａと変数Ｂの組み合わせに対応する値を返すコード
ワークシート上に次の表があり，この表をもとにして，変数Ａ(0～4)と変数Ｂ（0～4）の組み合わせに対応するＣ列の値を返すコードは，どう書いたらよいでしょうか。 例えば，変数Ａのセルに●（４），変数Ｂのセルに▲（０）と入力したら，値のセルに■（５）と表示させたいのです。 どなたか教えていただけませんか。 Ａ列 Ｂ列 Ｃ列 4 0 5 3 1 4 3 0 5 2 2 3 2 1 4 2 0 4 1 3 2 1 2 2 1 1 3 1 0 3 0 4 1 0 3 1 0 2 2 0 1 3 0 0 3 変数Ａ：● 変数Ｂ：▲ 値：■
- ベストアンサー
- オフィス系ソフト
- For Next 式の結果をセル表示
Dim i, p For i = 1 To 9 For p = 1 To 9 Cells(i, i * p).Value = i * p Next p Next i End Sub ↑の式ではA、１～I、９に 結果が出るのですが その結果を縦にひとつづつ表示したいのです （たとえばA1～A81へ） その場合はもうひとつ変数を宣言して 変数に表示したいセルの情報を記入するのですか？ もしくは変数を宣言しなくても可能ですか？ できれば双方のサンプルを教えていただければ 幸いです
- ベストアンサー
- オフィス系ソフト
- VBAでセル指定するとき（"A1")←半角？
VBAでセルを指定するとき、 例えばA１のセルを選択するときにRange("A1")と書きますよね。 このときに「A」は半角で入力したのですが、これは全角の「Ａ」でもいいのでしょうか。 実際に全角にしてVBAを組んでも、問題なく処理できました。 ただ「全角にしても問題なく処理できたからいいや」というのではモヤモヤしてしまい、 全角でも問題なく処理できるという記述があるテキストやサイトを探しているのですが 見つかりません。 セル指定するときに全角、半角は関係ないのでしょうか。
- 締切済み
- Excel（エクセル）
- EXCELVBA 全通りの組み合わせの出力
はじめまして！ VBAの記述の方法が分からず困っています。 過去の質問も検索してみましたが、自分のケースにどうあてはめればよいかわからず・・。 どなたが教えていただけないでしょうか？ A1～AK1までそれぞれ1～37までの数字が入力されています。 組み合わせとして、そこから35個の数字を選ぶ場合の全通りを記載したいです。 2行目のA1～AI1までに選んだ35個の数字を出力し、 1行ずつ下にずらしていきたいです。 大変お手数ですが・・・よろしくお願いします・・・
- ベストアンサー
- その他MS Office製品
- EXCEL でセルの大小比較はできますか
ＥＸＣＥＬのＶＢＡで処理を作っているのですが、 その中で、セルのアドレスで大小比較ができたらと思うのですが、可能でしょうか。 条件としては、同じ行内です。 Ａ１などのセルのアドレスを変数Ｘに入れておいて、 Ｘ ＜ Ｙ１ というようなことはできるのでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- どうやってもFor文を抜けてしまいます…(VBA)
いつもお世話になっております。 VBAで作業をしていたところ、とある箇所でずっと詰まってしまい、 また皆様のお力を借りたいと思い・・・。 おそらく、基礎中の基礎かもしれませんが、お付き合い頂ければ助かります；； 【質問内容】 Functionが2つあったとします。 現在のFunctionから、別のFunctionに飛んで、また元のFunctionに戻ってきた際に、 Forでループ中でも抜けてしまうのでしょうか？ おそらく、何を言ってるか分からないと思いますので、以下にコード例を記載します。 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 【コード例】 function sample1() Dim roop as Long ’シート1のCell(7,4)には「100」と入力されており、「roopが2～100」の間ループさせます。 for roop + 2 To sheets("シート1").cells(7,4) 処理2 ’特定条件を満たしたら、「sample2」に飛びます。 if 条件 then call sample2 End If next End function _________________________________________________________________________________________ function sample2() ’sample1()で使用していたroop変数をそのまま使用します for roop + 1 To 50 処理2 roop + 1 next ’処理が終わりsample1()のnextに戻ります。 ’roopには、仮に50が格納されているとします。 End function _________________________________________________________________________________________ 上記のコードとなります。 最初はSample1()で処理を行い、特定条件を満たしたらSample2()に移行。 Sample2()の処理が終わったら、元のSample1()に戻る。 2つのFunction内で使用していた「roop」変数は、まだ80にも関わらず、 Sample1()のFor文を抜けてしまいます。 Sample1()のForのループ条件は「２～１００」としていますが、 これは別のFunctionに飛ぶと、無くなってしまうのでしょうか？ 何を言っているのか分からないなどございましたら、ご指摘ください・・・；； 以上、よろしくお願いします。
- 締切済み
- オフィス系ソフト