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を使って、数字の入っていない時、「入力が
されていません」とＭsgBoxで出したいのですが
コードの書き方をアドバイスください。
【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