Excel VBA ：特定の文字列を含むセルを探す

日付:

 


Excel VBA ：特定の文字列を含むセルを探す

コード

Sub CheckForApple() Dim cell As Range For Each cell In ActiveSheet.UsedRange If cell.Value Like "*apple*" Then ' セルの値が "apple" を含んでいる場合の処理 MsgBox "このセルは 'apple' を含んでいます。" End If Next cell End Sub

  1. Sub CheckForApple()

    • この行はサブルーチン（Subroutine）を定義しています。サブルーチンは、特定のタスクを実行するための一連のコードです。この場合、“CheckForApple” という名前のサブルーチンが作成されています。

  2. Dim cell As Range

    • Dim ステートメントは、変数を宣言するために使用されます。ここでは、cell という名前の変数が Range オブジェクトとして宣言されています。これはセルを表すオブジェクトです。

  3. For Each cell In ActiveSheet.UsedRange

    • この行はループを開始しています。For Each ステートメントは、指定した範囲内の各要素に対して繰り返し処理を行います。ここでは、ActiveSheet.UsedRange 内の各セルに対して処理を行います。

  4. If cell.Value Like “apple” Then

    • この行は条件文です。セルの値が “apple” を含んでいる場合に処理を実行します。

  5. MsgBox “このセルは ‘apple’ を含んでいます。”

    • もしセルの値が “apple” を含んでいれば、メッセージボックスが表示されます。このメッセージは、セルが “apple” を含んでいることをユーザーに通知します。

  6. Next cell

    • ループの次の要素に進みます。

　このコードは、Excelのワークシート内のセルを走査し、“apple” を含むセルがあればメッセージボックスを表示するものです。