Excel VBAプルダウンの値を変えながら2枚ずつ印刷する方法？

印刷用シートのA1セルにはプルダウンが設定してあり、No.を選択するようになっています。
1～100まであるのですが、
現在は、1を選択して印刷、2を選択して印刷・・・と手動だと大変なので、
プルダウンの値を自動で変えながら自動で印刷していきたいのですがどうすれば良いでしょうか？
ただし、1～100は必ずしも連番ではありませんので、
プルダウンで選べる値を順番に変えていきたいのです。
また、印刷は2枚ずつ出力したいです。

具体的には、A1セルのプルダウンは、「参照用」という別シートのA3から下方(A3、A4、・・・)の範囲の値を取得しています。

No.4 回答者： Qchan1962 回答日時： 2022/05/27 15:47

こんにちは

１点　気になるところが・・・
今は印刷ボタンを押しているのだと思うのですが

プルダウンを選択　手作業
印刷　　　　　　　手作業
プルダウンを選択　手作業
・・
この間に手作業は無いのかしら・・

印刷の実行を決めるのは、どのタイミングですか？

実際にこれらの手作業を決めるルールが明確でないと自動化するのは難しいのではと思います。
決定後はとにかく印刷であれば、
別シートのA3から下方に在る数値で繰り返し印刷する事になるかと・・
そのような処理で良いなら、そもそもプルダウンは必要なくなりますかね

プルダウンを変える度に印刷とか
印刷の度にプルダウンを進めるとか・・
（入力規則のリストの場合、少々難しいのと条件が限定されるかな）
もしくは、処理条件を明確にするとか・・が必要になると思います

この回答へのお礼

ありがとうございます。
プルダウンを選択するだけで、必要なセルが全て書き換わる仕組みのシートにしてあります。
なので、プルダウン選択と印刷の間に手作業は発生しません。

> 別シートのA3から下方に在る数値で繰り返し印刷する事になるかと・・
> そのような処理で良いなら、そもそもプルダウンは必要なくなりますかね

仰る通り別シートのA3から下方にある数字を順番に入れ込めればいい訳です。
オペレータ側の視点では「プルダウンを変更しては印刷の繰り返し」となりますが、
ロジック的にはプルダウン操作は重要ではなく、参照先の値を当てはめていくことになりますね。

お礼日時：2022/05/28 21:12

No.3 回答者： 河内のおやじ 回答日時： 2022/05/27 13:35

プルダウンから選ばずその別シートから選べはいかがですか?

No.2 回答者： fujillin 回答日時： 2022/05/27 13:25

こんにちは

＞印刷は出来そうですが、
「A1セルの値を順に変えて印刷する」というのを繰り返し処理（ループ）で行えばよいです。

常に、参照用シートのリストの値を順に入力するだけなら、基本的な構文で可能です。
以下は、その単純なサンプルです。
（終了を5行目にしてありますが、参照用シートのA3:A5の値を順に入力するだけの例です）

Sub Sample()
Dim rw As Long

Const endRow = 5 '参照（ループ）する最終行
For rw = 3 To endRow
Range("A1").Value = Worksheets("参照用").Cells(rw, 1).Value

'Msgbox の代わりに印刷処理を入れる
MsgBox rw & "行目の値をセットして印刷"

Next rw
End Sub

この回答へのお礼

ありがとうございます。
私は、参照用シートを無視して、
「○から□まで」という範囲設定でループさせる方法しかできませんでした。
この場合、必ず連続した値なら良いですが、抜けてる数字があるときにエラーが出ます。これなら大丈夫です。
大変助かりました。

お礼日時：2022/05/28 20:59

No.1 回答者： 河内のおやじ 回答日時： 2022/05/27 13:06

それくらいの操作でしたら、マクロの記録で出来そうです。

この回答へのお礼

印刷は出来そうですが、
プルダウンのボタンをクリックして、一つ下の値を選択して、、、という動作が記録されないんです。
実際にはプルダウンを変えるのではなく、
参照用シートのセルの値を入れ込む指示が必要そうですがやり方、調べ方が分かりません。

お礼日時：2022/05/27 13:08