【エクセルマクロ】Like演算子と変数の組み合わせ:使用例6選

vba-変数とLikeの組み合わせ-アイキャッチ ExcelVBA

Like演算子と変数の組み合わせをするExcelVBAコードを記載しています。

ワイルドカード(アスタリスク)を使用します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください!

Likeと変数の組み合わせ(*変数*)

以下のマクロを実行すると、Like演算子を使用して該当セルに色付けします。


Sub 変数とLike組み合わせ()

    Dim Target As String
    Dim i As Long
    
    Target = "*りんご*"

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) Like Target Then
            Cells(i, 1).Interior.Color = 65535
        End If
    Next i
    
End Sub
マクロ実行後

「りんご」を含むセルに色付けします。

IF文で [Cells(i, 1)] の中に [Target] が含まれているか確認します。

 

 

Likeと変数の組み合わせ(*変数*)

以下のマクロを実行すると、Like演算子を使用して該当セルに色付けします。


Sub 変数とLike組み合わせ()

    Dim Target As String
    Dim i As Long
    
    Target = "りんご"

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) Like "*" & Target & "*" Then
            Cells(i, 1).Interior.Color = 65535
        End If
    Next i
    
End Sub
マクロ実行後

「りんご」を含むセルに色付けします。

IF文で [Cells(i, 1)] の中に [Target] が含まれているか検索します。

 

 

Likeと変数の組み合わせ(変数*)

以下のマクロを実行すると、Like演算子を使用して該当セルに色付けします。


Sub 変数とLike組み合わせ()

    Dim Target As String
    Dim i As Long
    
    Target = "りんご*"

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) Like Target Then
            Cells(i, 1).Interior.Color = 65535
        End If
    Next i
    
End Sub
マクロ実行後

「りんご」から始まるセルに色付けします。

 

 

Likeと変数の組み合わせ(変数*)

以下のマクロを実行すると、Like演算子を使用して該当セルに色付けします。


Sub 変数とLike組み合わせ()
    Dim Target As String
    Dim i As Long
    
    Target = "りんご"

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) Like Target & "*" Then
            Cells(i, 1).Interior.Color = 65535
        End If
    Next i
End Sub
マクロ実行後

「りんご」から始まるセルに色付けします。

 

 

Likeと変数の組み合わせ(*変数)

以下のマクロを実行すると、Like演算子を使用して該当セルに色付けします。


Sub 変数とLike組み合わせ()
    Dim Target As String
    Dim i As Long
    
    Target = "*りんご"

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) Like Target Then
            Cells(i, 1).Interior.Color = 65535
        End If
    Next i
End Sub
マクロ実行後

「りんご」で終わるセルに色付けします。

 

 

Likeと変数の組み合わせ(*変数)

以下のマクロを実行すると、Like演算子を使用して該当セルに色付けします。


Sub 変数とLike組み合わせ()
    Dim Target As String
    Dim i As Long
    
    Target = "りんご"

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) Like "*" & Target Then
            Cells(i, 1).Interior.Color = 65535
        End If
    Next i
End Sub
マクロ実行後

「りんご」で終わるセルに色付けします。

 

 
 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】ワークシート処理を自動化する:超便利39選
...

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!