Excel VBA質問箱 IV

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

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


26520 / 76738 ←次へ | 前へ→

【55549】select caseの空文字と0について
質問  VBA超超初心者さる  - 08/5/10(土) 23:13 -

引用なし
パスワード
   EXCEL VBAの超超初心者さるです。

本を数冊買って、EXCEL VBAの勉強を独学で始めました。
下記のselect caseの構文で空文字の条件をつけても
表示は「1以上」になってしまいます。

Sub test()
  Dim a As Variant
 
  a = InputBox("入力してね", "数字")
  
  Select Case (a)
    Case Is >= 1
      Range("a1") = "1以上"
    Case Is < 0
      Range("b1") = "負の数"
    Case 0
      Range("d1") = "0が入力されました"
    Case ""
      Range("c1") = "なにも入力されてません"
  End Select
End Sub

理由がどうしてもわからず、どなたかご教授願えませんでしょうか。

他の方の同じようなご質問も探してみたのですが、みつけられませんでした。

どうぞよろしくお願いいたします。
0 hits

【55549】select caseの空文字と0について VBA超超初心者さる 08/5/10(土) 23:13 質問
【55550】select caseの空文字と0について(訂正) VBA超超初心者さる 08/5/10(土) 23:20 質問
【55553】Re:select caseの空文字と0について(訂正) ひげくま 08/5/10(土) 23:30 発言
【55554】Re:select caseの空文字と0について(訂正) kanabun 08/5/10(土) 23:50 発言
【55555】Re:select caseの空文字と0について(訂正) VBA超超初心者さる 08/5/11(日) 0:16 質問
【55556】Re:select caseの空文字と0について(訂正) kanabun 08/5/11(日) 0:25 発言
【55557】Re:select caseの空文字と0について(訂正) VBA超超初心者さる 08/5/11(日) 1:09 質問
【55558】Re:select caseの空文字と0について(訂正) kanabun 08/5/11(日) 10:17 発言
【55559】Re:select caseの空文字と0について(訂正) VBWASURETA 08/5/11(日) 11:06 発言
【55560】Re:select caseの空文字と0について(訂正) kanabun 08/5/11(日) 11:23 発言
【55562】Re:select caseの空文字と0について(訂正) VBWASURETA 08/5/11(日) 11:50 発言
【55563】Re:select caseの空文字と0について(訂正) VBWASURETA 08/5/11(日) 12:21 発言
【55565】訂正Select Caseにはルールがあるようです VBWASURETA 08/5/11(日) 14:50 発言
【55566】Re:訂正Select Caseにはルールがあるようで... kanabun 08/5/11(日) 16:24 発言
【55567】Re:訂正Select Caseにはルールがあるようで... VBWASURETA 08/5/11(日) 17:02 発言
【55574】Re:訂正Select Caseにはルールがあるようで... VBA超超初心者さる 08/5/11(日) 21:01 お礼

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