☰

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

範囲全体にテキストを含むセルが少なくとも 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

関連情報