ＶＢＡ Select caseについて

Sub あああ()

Dim a As Variant

a = Range("H11")

If a < Range("G11") And a < Range("H12") And a < Range("I12") And a < Range("H10") Then
Range("H11").Font.Color = RGB(255, 255, 255)
Range("H11").Interior.Color = RGB(255, 0, 0)
End If

End Sub

上記のコードをSelect　caseを使って記載した場合なんですが、
Sub あああ()

Dim a As Variant

a = Range("H11")

Select Case true

Case a < Range("G11") And a < Range("H12") And a < Range("I12") And a < Range("H10")

Range("H11").Font.Color = RGB(255, 255, 255)
Range("H11").Interior.Color = RGB(255, 0, 0)

End Select

End Sub

select case の時はうまくうごきません。
例えば、　セルＨ１０が　セルＨ１１より値が小さくても実行されます。
間違っている場所をご指摘していただけないでしょうか？

No.2 ベストアンサー 回答者： siffon9 回答日時： 2016/05/02 16:44

論理式全体をカッコで囲んでください。

Case (a < Range("G11") And a < Range("H12") And a < Range("I12") And a < Range("H10"))

この回答へのお礼

ありがとうございました。
できました。

お礼日時：2016/05/02 17:04

No.1 回答者： GooUserラック 回答日時： 2016/05/02 16:05

「Select Case」の使い方が根本的に違います。

「If...Then」の「...」が同じときに使う感じです。