|
▼佳 さん:
>愛子さん、こんにちは。佳です。
>
>まず、様はかんべんしてください。
>わたしは野蛮人なのでコメントへのお礼はべつに気にしません。
>
>ですが、コメントの内容に対する反応がないのは気にします。
>
>実現されたいことは、まず
> 天気が入力されていなければ、データ加工等のホンチャンの処理はしない
> 天気が入力されているときだけ、データ加工等のホンチャンの処理へすすむ
>ってことですね?
>天気が正しいかどうかについては またあとで考えるとして
>ここまでで、わたしはなにか誤解していますか?
>
>
>▼愛子 さん:
>>▼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様:佳さんのコメントはお読みになりましたか?----読みましたが、この投稿は初めてだったので、佳様の回答の返信ボタンを押したのですがどこに書き込みをしたらいいのやらまごつきました。やっとボタンをクリックして回答、質問、お礼の箇所がわかり返事(質問)を出しました。佳様がこの投稿を見て頂いているので
>>あれば、この文面で恐縮ですが、お礼を言わせて下さい。有難うございました。
佳さんへ
今晩は、コメントの返事がなかったという事、本当に申し訳ありません。
天候は、絶対に入れないといけないのです(印刷範囲で必要な為)。天候を入れて、Mag Boxで、入力が合っていますか(はい、いいえ)はいを選択すると次のマクロに(数字の転記、印刷等)移ります。いいえだと、正しい天候を入力してくださいと再度入力を要求するようなマクロです。
コメントの返事については、今後注意していきますので、今後ともよろしくお願いします。本当に失礼しました。
|
|