Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51218 / 76738

←次へ　｜　前へ→


	【30393】If文で・・・

りんご - 05/10/26(水) 16:47 -


	引用なし

	パスワード

超初心者でやりはじめたばかりなのですがぜひともわかる方
教えてください。
注文書を作ってまして、印刷ボタンをクリックすると印刷画面へ行くところの下
の処理で、下文が元で
Sub 印刷btn_Click()
　　'画面を固定
　　 Application.ScreenUpdating = False
　　　　　
　　'プレビュー画面を表示
　　Sheets("印刷").PrintPreview
　　
　　'画面の固定を解除
　　Application.ScreenUpdating = True
End Sub
これに(できればIf文で)もし指定範囲に一つでも入力がなかった場合はMsgBoxを表示するようにしたいのです。
If Range("I4,D9,I8,I9,C13:C27,H13:H27") =　Then
　　　　　MsgBox "未入力があります。確認して下さい"
　　 Exit Sub
　　End If
画面固定後に上みたいなかたちでいれたいのですがThenの前には何が入るのでしょうか?ちなみに違うとこもあったら教えてください。

1 hits

▼

【30393】If文で・・・ りんご 05/10/26(水) 16:47

≪