未記入がある場合はマクロを実行させない方法

質問

至急、教えてください。

現在EXCEL2010にてマクロを使用し、印刷実行ボタンを作っています。
その際に、あるセルが空欄の場合はそのマクロを実行しない、
出来れば「未記入箇所があります」といった表示が出るようにしたいと思っています。

何か良いアイディアをお願いいたします！

回答No.1

merlionXX · ベストアンサー

一例です。
仮にあるセルがSheet1のA1なら

Sub 印刷ボタン()
　　If Sheets("Sheet1").Range("A1").Value = "" Then
　　　　MsgBox "未記入箇所があります！", vbCritical, "Σ（￣ロ￣lll) "
　　　　Exit Sub
　　Else
　　　　ActiveWindow.SelectedSheets.PrintOut
　　End If
End Sub

ではいかがでしょう。

お礼

ありがとうございます～～！！
理想通り完成できました。
素早い回答をありがとうございました<(_ _)>