Excel VBA質問箱 IV

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

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


8118 / 76732 ←次へ | 前へ→

【74191】Re:入力表示
発言  UO3  - 13/4/27(土) 19:15 -

引用なし
パスワード
   ▼愛子 さん:

佳さんのコメントはお読みになりましたか?
私も、現行のマクロの先頭で、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
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 発言

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