調べたいExcel-VBAの使用例などキーワードを入力してください

コマンドボタン押したらメッセージ表示で誤操作防止

exce-vbaコマンドボタン

間違って押しちゃった!!なんて経験ありませんか

印刷止めなきゃ!!ってやっちゃいますよね。

ユーザーフォームに配置したコマンドボタンに作業効率化の為に、様々なVBAコードを書いて押すだけで作業を行うようにしていますよね。

このコマンドボタンがシートの並べ替えや集計ならば、誤ってクリックしても問題ない事が多いですが、印刷だったら紙が無駄遣いになって大変ですよね。

<span class="fz-12px">とりっぷぼうる</span>
とりっぷぼうる

私自身Excel-VBAを組み込んだエクセルファイルを作っては、スタッフに利用してもらっているので、想定外の操作のオンパレード!

 

最近はメッセージ機能をフル活用して操作手順を促しているような使い方になっています。

スポンサーリンク

一番多く使っているのが、印刷開始(コマンドボタン)で、ここを間違って押してしまうと、先ほども書いた通り紙の無駄になるからです。

印刷ボタンには、必ず「印刷実行しますか?」とメッセージを表示して「はい」を選択すれば印刷実行し、「いいえ」を選択すれば、元の画面に戻るようにしています。

このVBAコードは、コマンドボタンを押したら、最初に「印刷しますか?」とメッセージを表示し、「はい」を選択すると印刷して「いいえ」を選択すると「印刷中止しました」と異なったメッセージを表示して元に戻るようにするVBAコードです。

コマンドボタン押したらすぐメッセージ表示

Private Sub CommandButton1_Click()
msg = MsgBox(“印刷実行しますか?”, Buttons:=vbYesNo + vbExclamation)
If msg = vbYes Then
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=1, COPIES:=1, COLLATE:=True
Else
MsgBox “印刷を中止しました”
End If
End Sub

青色マーカー部分が印刷を示すVBAコードで、それ以外がメッセージに関するVBAコードですが、むずかしくない、とても簡単なVBAコードを付け足すだけなのでぜひごクリック防止のために活用してくださいね。

そうそう、メッセージのマークを変更も可能ですよ。

スポンサーリンク

印刷関連VBA

スポンサーリンク
ボタン1つで作業完了へ
ちょっとの工夫でエクセル作業が飛躍的に早く終わったらいいなあ~と思いませんか? 面倒くさい作業よ!さようなら!

スポンサーリンク


コマンドボタン
参考になりましたらシェア宜しくお願い致します

山頂テラスデッキからの三段紅葉(2019年11月)

フリーパスって助成金つぎ込んでいいの?

コロナ禍のGo To トラベル以外にも助成金だらけでうらやましいね。

安くなったフリーパスで遊びに行きたいけど、給与も減って余裕ないよね。

Excel VBA