エクセルでセルの値がTRUEかFALSEか判定

質問

Q3:R19の表があります。
Q列にはTRUEかFALSEが入りますが、空白や文字列の場合もあります。
R列には文字列です。
Q列でFALSEのセルだけ、同じ行のとなりのR列の文字列を順に抜き出し、メッセージボックスに表示したいのです。
下記のようなVBAを書いてみましたが、Q列が空白や文字列の場合まで抽出されてしまいます。
これを排除するいい方法はないでしょうか？
Sub test01()
　　Dim msg As String
　　Dim i As Long
　　With Sheets("LOG")
　　　　For i = 3 To 19
　　　　　　If .Range("Q" & i).Value = False Then
'　　　　　　　　Debug.Print 　i & "-" & .Range("R" & i).Value
　　　　　　　　msg = msg & .Range("R" & i).Value & vbCrLf
　　　　　　End If
　　　　Next i
　　End With
　　If msg <> "" Then
　　　　MsgBox msg & vbCrLf & "上記により不可です。", vbCritical
　　End If
End Sub

回答No.1

kagakusuki · ベストアンサー

If .Range("Q" & i).Value = False Then

のところを

If TypeName(.Range("Q" & i).Value) = "Boolean" And .Range("Q" & i).Value = False Then

に変更されては如何でしょうか。

お礼

なるほど！
Typename関数でブール型かどうかチェックすればいいんですね。
ありがとうございます。

回答No.3

mt2015

文字列で「FALSE」と入っていた場合、FALSEとして扱わなくていいならANo.1の回答で。
FALSEとして扱いたいなら
If .Range("Q" & i).Value = False Then
↓
If .Range("Q" & i).Text = "FALSE" Then

こんな感じで

お礼

ありがとうございました。
たすかります。

回答No.2

Chiquilin

If .Range("Q" & i).Value = False Then

ここを

If .Range("Q" & i).Value = "False" Then

では？

お礼

ありがとうございます。