エクセルVBAでテキストボックスに入力した数字で印刷枚数を指定する

URLをコピーしました！

エクセル検索

HOME	UserForm	印刷	画面	ファイル	図形
日付・時刻	データ	セル	色	関数	VBA関数

ユーザーフォームに配置したテキストボックスに入力した数字に応じて印刷枚数が指定できたら便利だと思いませんか？

ワークシート上で【ファイル】➡【印刷】でページ数や枚数を設定できますが、ボタンひとつで実行できた方が仕事が早いですよね。

EXCEL-VBAならば、このような印刷ダイアログでの作業が無くなるのでとても便利なのでご紹介します。

印刷実行フォームを作成する

図のように、テキストボックスに印刷したい枚数を数字で入力して、【印刷実行】のコマンドボタンを押せば、印刷できるようにするととても便利で、作業効率化できますよね。

もちろん、開始ページと終了ページは予め決めておく必要がありますけどね。

Select Caseステートメントを使う方法

このSelectCaseステートメントは一般的に複数の条件分岐なんて言われていて、条件に応じて処理を振り分けることができるんです。

ここで言う、テキストボックスの値（数字）によって、印刷枚数を決めて処理（印刷）をするってことができるようになります。

VBAコード

Private Sub CommandButton1_Click()
Select Case TextBox1
Case Is = 1
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=2, COPIES:=1, COLLATE _
:=True
Case Is = 2
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=2, COPIES:=2, COLLATE _
:=True
Case Is = 3
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=2, COPIES:=3, COLLATE _
:=True
End Select
End Sub

解説

コマンドボタン1がクリックされたら
SelectCaseステートメント開始、テキストボックス１の値が
1の場合
表示されているシートを選んで1ページ目～2ページ目を1枚印刷する
2の場合
表示されているシートを選んで1ページ目～2ページ目を2枚印刷する
3の場合
表示されているシートを選んで1ページ目～2ページ目を3枚印刷する
SelectCaseステートメント終了
マクロ記録終了

上記VBAコードはテキストボックスに入力する値が1～3にしてあるので、印刷枚数は1枚～3枚ってことになります。

もっと印刷枚数を設定したいならば、Case Is = 4 以降を繰り返し追加していけば印刷可能になります。

波乗りアヒル

ただ、このままだと、テキストボックスが空欄の時に誤ってコマンドボタンを押してしまうとエラーになってしまいます！

Ifとメッセージを組み合わせてエラー回避

もし、テキストボックスが空欄だったらメッセージを出して処理を止めれば、エラー回避できるので、先ほどのVBAコードに組み入れておくことをおススメします。

追加したVBAコードは赤字の部分です。

VBAコード

Private Sub CommandButton1_Click()
If TextBox1.Value = “” Then
MsgBox “印刷枚数を入力してください”
Else
Select Case TextBox1
Case Is = 1
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=2, COPIES:=1, COLLATE _
:=True
Case Is = 2
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=2, COPIES:=2, COLLATE _
:=True
Case Is = 3
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=2, COPIES:=3, COLLATE _
:=True
End Select
End If
End Sub