[[20060104021802]]　『シートを指定して印刷するマクロ』（おかんむ）　ページの最後に飛ぶ

『シートを指定して印刷するマクロ』（おかんむ）

 シートが16枚あるのですが、
毎週、ランダムにシートを印刷するので
ユーザフォームで印刷するシートを選択できる形にし、
一括印刷したいと思っとります(コマンドブタンで処理)
オプションボタンを16個配置し、
　
例えば、
If OptionButton1.Value = true then
   sheets("1").printout
End If
この時にOptionButtonの番号と印刷指定のページ名が同じなので
例で言うと
OptionButton1とsheets("1")が同じ1と言う数字を用いている。
この規則性を利用してマクロの記述を簡素化したいんですが
どうすればいいでしょうか？ご教授お願いいたします。

 このようなことでしょうか。
　
Private Sub CommandButton1_Click()
For i = 1 To 16
    If Me.Controls("OptionButton" & i).Value = True Then
        Sheets(i).PrintOut
    End If
Next i
End Sub

 （川野鮎太郎）

ありがとうございます。早速試してみたいと思います。

 いい感じで出来ました。ありがとうございます。
最初から全部のオプションボタンをチェック入れておく
って事はどうすれば良いのでしょうか？

 複数の場合は、オプションボタンではなくチェックボックスを利用してはどうでしょうか。

 （川野鮎太郎）

 確かにおっしゃるとおりですね。
チェックボックスに変更しました。
チェックボックスをユーザフォーム開いた時点で全部オンにするにはどこを設定すればいいのでしょうか？

 ValueをTrueでチェックつきました。
川野さんありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20060104021802]] 『シートを指定して印刷するマクロ』（おかんむ） ページの最後に飛ぶ

[[20060104021802]]　『シートを指定して印刷するマクロ』（おかんむ）　ページの最後に飛ぶ