Excel VBA質問箱 IV

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

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


8119 / 76736 ←次へ | 前へ→

【74194】Re:入力表示
お礼  愛子 E-MAIL  - 13/4/27(土) 21:09 -

引用なし
パスワード
   ▼UO3 さん:
>▼愛子 さん:
>
>佳さんのコメントはお読みになりましたか?
>私も、現行のマクロの先頭で、I2(ないしはD2)の値をチェックして
>そこで、空白であれば、天候を選んでから実行してください というメッセージを出して終了。
>もし、値があれば、必要なら内容を確認させてNGなら終了。
>こんな流れで息ますが?
>
>Sub 現行のマクロ()
>  Dim s As Variant
>  
>  s = Sheets("Sheet1").Range("I2").Value 'シート名は適切なものに
>  If IsEmpty(s) Then
>    MsgBox "天候を選んでから実行してください"
>    Exit Sub
>  Else
>    If MsgBox("選ばれた天候は " & s & " でした。" & vbLf & _
>      "よろしいですか?", vbYesNo) = vbNo Then
>      MsgBox "それなら、入れ直してから実行してください"
>      Exit Sub
>    End If
>  End If
>  
>  '現行のマクロロジック
>  
>End Sub


uo3様へ
今晩は、有難うございます。上記VBAにてうまく行きました。感謝致します。

uo3様:佳さんのコメントはお読みになりましたか?----読みましたが、この投稿は初めてだったので、佳様の回答の返信ボタンを押したのですがどこに書き込みをしたらいいのやらまごつきました。やっとボタンをクリックして回答、質問、お礼の箇所がわかり返事(質問)を出しました。佳様がこの投稿を見て頂いているので
あれば、この文面で恐縮ですが、お礼を言わせて下さい。有難うございました。
0 hits

【74187】入力表示 愛子 13/4/27(土) 16:05 質問
【74188】Re:入力表示 UO3 13/4/27(土) 17:24 発言
【74190】Re:入力表示 愛子 13/4/27(土) 18:34 質問
【74191】Re:入力表示 UO3 13/4/27(土) 19:15 発言
【74194】Re:入力表示 愛子 13/4/27(土) 21:09 お礼
【74200】Re:入力表示 13/4/28(日) 10:36 発言
【74207】Re:入力表示 愛子 13/4/28(日) 20:27 発言
【74208】Re:入力表示 愛子 13/4/28(日) 20:28 発言
【74211】Re:入力表示 13/4/29(月) 6:50 発言
【74215】Re:入力表示 愛子 13/4/29(月) 20:28 発言
【74218】Re:入力表示 13/4/30(火) 6:13 発言
【74220】Re:入力表示 愛子 13/4/30(火) 10:18 発言
【74228】Re:入力表示 13/4/30(火) 20:07 発言
【74239】Re:入力表示 愛子 13/5/2(木) 19:04 発言
【74189】Re:入力表示 13/4/27(土) 18:04 発言

8119 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free