Vba でセルを強調表示する方法: 例付き

VBA で次のメソッドを使用してセルを強調表示できます。

方法 1: アクティブなセルを強調表示する

 SubHighlightActiveCell ()
ActiveCell.Interior.Color = vbYellow
End Sub

この特定のマクロは、現在アクティブなセルを黄色の背景で強調表示します。

方法 2: セル範囲を強調表示する

 SubHighlightRange ()
Range(" B2:B10 ").Interior.Color = vbYellow
End Sub

この特定のマクロは、範囲B2:B10の各セルを黄色の背景で強調表示します。

方法 3: 基準に基づいてセル範囲を強調表示する

 SubHighlightRangeBasedOnCriteria ()

  Dim rng As Range
  
  For Each rng In Range(" B2:B10 ")
  
      If rng.Value > 20 Then
        rng.Interior.Color = vbYellow
      End If
      
  Next rng
  
End Sub

この特定のマクロは、 B2:B10の範囲内で 20 より大きい値を持つすべてのセルを強調表示します。

次の例は、Excel の次のデータ セットで各メソッドを実際に使用する方法を示しています。

例 1: アクティブなセルを強調表示する

現在セルB3が選択されていると仮定します。

次のマクロを作成して、このアクティブ セルを強調表示できます。

 SubHighlightActiveCell ()
ActiveCell.Interior.Color = vbYellow
End Sub

このマクロを実行すると、次の出力が表示されます。

セルB3が強調表示され、他のセルはすべてそのままのままであることに注意してください。

例 2: セル範囲を強調表示する

B2:B10の範囲内の各セルを強調表示したいとします。

これを行うには、次のマクロを作成できます。

 SubHighlightRange ()
Range(" B2:B10 ").Interior.Color = vbYellow
End Sub

このマクロを実行すると、次の出力が表示されます。

B2:B10の範囲内の各セルが強調表示され、他のすべてのセルは変更されないことに注意してください。

例 3: 条件に基づいてセル範囲を強調表示する

B2:B10の範囲内で 20 より大きい値を持つすべてのセルを強調表示したいとします。

これを行うには、次のマクロを作成できます。

 SubHighlightRangeBasedOnCriteria ()

  Dim rng As Range
  
  For Each rng In Range(" B2:B10 ")
  
      If rng.Value > 20 Then
        rng.Interior.Color = vbYellow
      End If
      
  Next rng
  
End Sub

このマクロを実行すると、次の出力が表示されます。

B2:B10の範囲内の値が 20 より大きい各セルが強調表示され、他のすべてのセルは変更されないことに注意してください。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA: 条件付き書式をセルに適用する方法
VBA: 重複した値に条件付き書式を適用する方法
VBA: 列の値を検索する方法