Jak wyróżnić komórki w vba: z przykładami

Aby podświetlić komórki, możesz użyć następujących metod w VBA:

Metoda 1: Zaznacz aktywną komórkę

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

To konkretne makro podświetli aktualnie aktywną komórkę na żółtym tle.

Metoda 2: Zaznacz zakres komórek

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

To konkretne makro podświetli każdą komórkę w zakresie B2: B10 na żółtym tle.

Metoda 3: Zaznacz zakres komórek na podstawie kryteriów

 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

To konkretne makro podświetli każdą komórkę w zakresie B2:B10 , która ma wartość większą niż 20.

Poniższe przykłady pokazują, jak w praktyce zastosować każdą metodę z następującym zbiorem danych w Excelu:

Przykład 1: Podświetl aktywną komórkę

Załóżmy, że komórka B3 jest aktualnie wybrana.

Możemy utworzyć następujące makro, aby podświetlić tę aktywną komórkę:

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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Zauważ, że komórka B3 jest podświetlona, a wszystkie pozostałe komórki po prostu pozostają nietknięte.

Przykład 2: Zaznacz zakres komórek

Załóżmy, że chcemy wyróżnić każdą komórkę w zakresie B2:B10 .

W tym celu możemy utworzyć następujące makro:

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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy pamiętać, że każda komórka w zakresie B2:B10 jest podświetlona, a wszystkie pozostałe komórki pozostają nietknięte.

Przykład 3: Zaznacz zakres komórek na podstawie kryteriów

Załóżmy, że chcemy wyróżnić każdą komórkę w zakresie B2:B10 , która ma wartość większą niż 20.

W tym celu możemy utworzyć następujące makro:

 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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy zauważyć, że każda komórka w zakresie B2:B10 o wartości większej niż 20 jest podświetlona, a wszystkie pozostałe komórki pozostają nietknięte.

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak zastosować formatowanie warunkowe do komórek
VBA: Jak zastosować formatowanie warunkowe do zduplikowanych wartości
VBA: Jak znaleźć wartość w kolumnie