教えて! goo のコンテンツに対する取り組みについて

至急、教えてください。

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

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

gooドクター

A 回答 (1件)

一例です。


仮にあるセルがSheet1のA1なら

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

ではいかがでしょう。
    • good
    • 2
この回答へのお礼

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

お礼日時:2011/01/06 12:48

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング