Excel VBA質問箱 IV

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

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


26504 / 76738 ←次へ | 前へ→

【55565】訂正Select Caseにはルールがあるようです
発言  VBWASURETA  - 08/5/11(日) 14:50 -

引用なし
パスワード
   こんにちは。

ちょっと気になったので文字コードで調べていたら
Select Caseにはルールがあるようです。

//park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200606/06060146.txt

Caseと比較となる型は同じでなければならないそうで、
文字コードで比較しているわけではないようです。
なので、文字と数値を比較すると常に文字が大きいと判断します。
型が一致しない場合はSelect Caseは使用しない方が良さそうです。

因みに

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

とやってみたところ、「"65535以上"」となりました。
2 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 お礼

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