VBA:텍스트가 포함된 경우 강조 표시하는 방법

Question

다음 오류가 발생합니다.

런타임 오류 '13':

유형 불일치

아래 코드로. 도와주세요.

Sub test()
   ' With Range("A1:C10")
       ' .Value = ""true""
    ' End With
    If Range("h1:h10").Value = "TRUE" Then
       Cells("h, 1").Interior.Color = vbRed    
   End If
End Sub

Answer 1

전체 범위에 텍스트가 있는 셀이 하나 이상 포함되어 있는지 확인하려면 다음을 사용할 수 있습니다.

   if WorksheetFunction.CountA(Range("h1:h10")) = 0  then   
       Cells("h, 1").Interior.Color = vbRed   
   End If

그러나 각 셀을 확인하고 텍스트가 있는 경우 색상을 지정하려면 다음과 같이 범위를 반복할 수 있습니다.

For i = 1 To 10
    With Cells(i, 1)
        If .Value <> "" Then .Interior.Color = vbRed
    End With
Next i