VBA case判定で

質問

Excel2010　Win7使用

VBA独学中の初心者です。
下記のcase判定でTrueなのに、Trueと判定してもらえません。
解決策を教えて頂けると助かります。
また、もっとスマートな方法があれば、
併せて教えて頂けると助かります。

例）
ｈの中に"早い"という文字列がある場合
　Case InStr(h, "早い") > 0
において、InStr=1が入っている場合でも
Trueと判定されず、次のcaseに移行してしまいます。

Sub chg2()
Dim r As Long
Dim c As Long
Dim day As Long
Dim dc As Long
Dim h As String

day = Right(Range("S5"), 2)

Select Case day
Case 28
dc = 30
Case 29
dc = 31
Case 30
dc = 32
Case 31
dc = 33
End Select

For r = 53 To Range("A52").End(xlDown).Row Step 2
For c = 3 To dc
h = Cells(r, c)

Select Case h
Case InStr(h, "早い") > 0　　
h = Replace(h, "早い", "a") 　
Case InStr(h, "遅い") > 0
h = Replace(h, "遅い", "b")
　　・
　　・
　　・
　End Select
Next c
Next r
End Sub

回答No.2

maiko0318 · ベストアンサー

Select Case h
ではなくて、

Select Case True　　にしたら動くかも（テストできないので）

お礼

早速の回答ありがとうございます！

Select Case True

で、判定できました。

true=-1 となるんですね。
勉強になりました。

回答No.1

maiko0318

Select Case h
Case InStr(h, "早い") > 0　　
h = Replace(h, "早い", "a") 　
Case InStr(h, "遅い") > 0
h = Replace(h, "遅い", "b")

これはhがいくらかを聞いていますので、
h == (InStr(h, "早い") > 0) こういう判断がなされます。

この文章は間違いですよね。
処理としてはInStr(h, "早い")=1　だというなら

h == true と解釈されます。true=-1 なので

h == -1 これは偽ですね。