いつもお世話になっております。
この度複雑な処理業務の自動化を実現したく、どの様なVBAの
構築にすれば添付しました画像と同じ処理が実現できるのか
皆様のお知恵をお借りしたく質問させていただきました。
F4セルより末尾までには様々な商品が入力されており、
そのF4セルより末尾まで検索を行い「りんご」の文字を
条件に行セルをコピーしそのすぐ下に行挿入を1回
マクロの記録は
Rows("4:4").Select
Range("F4").Activate
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ばななの文字を含む場合は2行の挿入
Rows("6:6").Select
Range("F6").Activate
Selection.Copy
Rows("6:7").Select
Range("F6").Activate
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
となりました。
りんごやばななの他にも行挿入したいアイテムがあり
キーワードを条件にVBAを組み込みたいと思います。
重ねましてここから挿入したりんごセルに別シート「追加注文リスト」というシートのK4セルより末尾まで検索。「りんご」の場合は「包装紙A」を条件にH4セル~K4セルのデータをコピー。
それを注文リストシートの行挿入した下のセル(C5セル)に張り付けたい処理になります。
Sheets("追加注文リスト").Select
Range("H4:K4").Select
Selection.Copy
Sheets("注文リスト").Select
Range("C5").Select
ActiveSheet.Paste
ばななの場合は「包装紙C」と「箱D」を条件にC7セルにコピー&ペーストさせたいと思います。
追加後の処理は添付した画像の形となります。
これを他のアイテムも条件に行挿入したセルの下に張り付けの自動化をさせたい内容となります。
VBAの構築で想像ができない部分が別シートの追加品をコピーからの行挿入した
Cセルに張り付ける際の処理がどの様な形になるのか全く想像がつきません。
どうぞよろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
正直マクロの自動記録そのままでも良いようにも感じますが、
>この度複雑な処理業務の自動化を実現したく
この『複雑』の度合いによってはリスト表の見直しも必要と思いますので、そうすると今の条件で回答をしたとしても使えないものとなり得ます。
⇒得られた回答を改良して当てはめられるスキルがあるのなら、確実に今現在のコード作成は簡単なはずです。
行の追加・Instr関数の使い方・ループによる繰り返し作業って辺りが当てはまるかもです。
ただ先にも申し上げたように双方のリストで『1行挿入したからリストから1行取り出す』と言えるのかどうか、順番が確実に並んでいるのかにもよりますし。
なので目印となるIDや共通する商品名などがあればと思いました。
めぐみんさんのご指摘された目印となるIDと共通する商品名を作成し、それを行の追加・Instr関数の使い方・ループによる繰り返し作業に当てはめる形を取り検証してみようと思います。
ありがとうございました。
No.1
- 回答日時:
初級レベルなジジィなので気になる点だけ。
・「りんご」の文字を条件に行セルをコピーしそのすぐ下に行挿入を1回
・「りんご」の場合は「包装紙A」を条件
・ばななの文字を含む場合は2行の挿入
・ばななの場合は「包装紙C」と「箱D」を条件
とありますけど、これでアイテムは他にもあるってならどんな作業を個々に行なうのか羅列出来ますか?
と言っても羅列されても読むのが面倒ですけど。
別シートの『追加注文リスト』との連携として『商品ID』は共通して存在すべきと思いますよ。
リストの方で商品ID数が1つなら1行追加、2つなら2行追加・・・と言う事も可能かと思えますし。
あと『注文リスト』で追加された際の元の行にある数量ですけど、リンゴは追加注文リストの数量が転記されるように思えますけど、ばななって『2・1』とあって何故に『2』が選ばれるのか?
その判断はどうなっているのかが気になりますね。
追加注文リストのばななの項目2つの内の上が当てはまるのか、『包装紙〇』の行にある数値が当てはまるのか。
実作業を行なっている方なら画像でわかるかもですが、回答者はその業務をやってはいません。
敢えて言えば『注文リスト』に何故数量がないのかも疑問に思う位です。
だって追加注文リストに該当項目がなかったとしたらと考えてしまいますし。
めぐみんさん、回答ありがとうございます。
いつもお世話になっております。
羅列の商品ですが、めぐみんさんが仰る通り読んでいただくことに加え、プログラムを書いていただくのに多大なお時間とお手数をおかけしてしまうので、りんごとバナナに対しての処理をお願いしたい形になります。
例えば条件にパイナップルも1行挿入とする場合
マクロの記録の
Rows("6:7").Select
Range("F6").Activate
の部分をどの様に改良すればパイナップルの時でも処理がされるのかご教示いただきたいです。
また追加注文リストから引っ張ってくる条件ですが、Kセルのアイテム名と関連付けをと考えております。
例えばりんごなら包装紙A
バナナなら包装紙Cと箱D
重ねまして数量は無視でお願いします。
私が想像した条件での自動化は可能でしょうか?
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
特定の条件の時に行を挿入したい
Excel(エクセル)
-
特定文字のある行の前に空白行を挿入したい
その他(Microsoft Office)
-
Excelで、あるセルの値に応じて行を自動挿入したい
Visual Basic(VBA)
-
-
4
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
5
VBAで検索して指定の位置に行を挿入したい
Visual Basic(VBA)
-
6
エクセルVBA、特定条件で行を追加
Visual Basic(VBA)
-
7
VBAで条件が一致する行をコピーしその1つ下へ挿入
Excel(エクセル)
-
8
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
9
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
10
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
11
Excel VBA 複数行を数の分だけ挿入したい
Visual Basic(VBA)
-
12
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
13
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
14
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
15
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
16
VBAで検索して、行をコピー&追加したい
Excel(エクセル)
-
17
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
18
Excel VBAで、検索後行の挿入をしたい。
Excel(エクセル)
-
19
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
20
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
DataGridViewで右寄せ左寄せが...
-
Excelで指定した日付から過去の...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
【Excel】指定したセルの名前で...
-
Excel VBA、 別ブックの最終行...
-
Excelのプルダウンで2列分の情...
-
特定のセルが空白だったら、そ...
-
screenupdatingが機能しなくて...
-
【VBA】指定したセルと同じ値で...
-
VBAコマンドボタンを押すたびに...
-
任意フォルダから画像をすべて...
-
特定の文字を条件に行挿入とそ...
-
VBA初心者です。結合セルを保持...
-
DataGridViewの各セル幅を自由...
-
”戻り値”が変化したときに、マ...
-
エクセルの複数データーをダブ...
-
特定行の色を変えたい(FlexGrid)
-
ExcelVBA データを消去すると罫...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
TODAY()で設定したセルの日付...
-
EXCELで変数をペーストしたい
-
Excel VBA、 別ブックの最終行...
-
Excelのプルダウンで2列分の情...
-
VBA コピーして次の値まで貼り...
-
screenupdatingが機能しなくて...
-
エクセルVBAでコピーして順...
-
VBA初心者です。結合セルを保持...
-
セル色なしの行一括削除
-
VBAでセルをクリックする回...
-
Excel vbaで特定の文字以外が入...
-
DataGridViewの各セル幅を自由...
-
特定の文字を条件に行挿入とそ...
-
【VBA】指定したセルと同じ値で...
おすすめ情報