☰

VBA：如何在包含文字時突出顯示

tag-icon • tag-icon vba
VBA：如何在包含文字時突出顯示

我收到以下錯誤

運行時錯誤“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

答案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

相關內容