Excel VBA質問箱 IV

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

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


7157 / 13644 ツリー ←次へ | 前へ→

【40777】Elseの使い方 Hiroko 06/7/24(月) 7:57 質問[未読]
【40795】Re:Elseの使い方 Jaka 06/7/24(月) 13:26 発言[未読]
【40827】Re:Elseの使い方 Hiroko 06/7/24(月) 21:27 お礼[未読]

【40777】Elseの使い方
質問  Hiroko  - 06/7/24(月) 7:57 -

引用なし
パスワード
   得点(tokuten)と合格点(goukaku)のチェックを
するコードを書いています。
  goukaku = Range("C19").Value
  tokuten = Range("E19").Value
  If goukaku <= tokuten Then   
   MsgBox "合格です"
  Else
   MsgBox "不合格です"
と書いたのですが、セルに数字が入っていないと
「MsgBoxに合格です」と出ます。
これを
Elseを使って、数字の入っていない時、「入力が
されていません」とMsgBoxで出したいのですが
コードの書き方をアドバイスください。

【40795】Re:Elseの使い方
発言  Jaka  - 06/7/24(月) 13:26 -

引用なし
パスワード
   なんとなくこう言う風にしてみました。

Dim goukaku As String, tokuten As String
goukaku = Range("C19").Value
tokuten = Range("E19").Value

If goukaku = "" Or tokuten = "" Then
  MsgBox "C19かE19のどちらか記入なし"
ElseIf Not IsNumeric(goukaku) Or _
    Not IsNumeric(tokuten) Then
  MsgBox "数字じゃない"
ElseIf goukaku <= tokuten Then
  MsgBox "合格です"
Else
  MsgBox "不合格です"
End If

【40827】Re:Elseの使い方
お礼  Hiroko  - 06/7/24(月) 21:27 -

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

大変ご無理なお願いをいたしました。
ありがとうございました。
勉強になりました。これからもよろしくご指導のほど
お願いします。

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