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