Cara menyorot sel di vba: dengan contoh

Anda dapat menggunakan metode berikut di VBA untuk menyorot sel:

Metode 1: Sorot sel yang aktif

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

Makro khusus ini akan menyorot sel yang sedang aktif dengan latar belakang kuning.

Metode 2: Sorot Rentang Sel

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

Makro khusus ini akan menyorot setiap sel dalam rentang B2:B10 dengan latar belakang kuning.

Metode 3: Sorot rentang sel berdasarkan kriteria

 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

Makro khusus ini akan menyorot setiap sel dalam rentang B2:B10 yang memiliki nilai lebih besar dari 20.

Contoh berikut memperlihatkan cara menggunakan setiap metode dalam praktik dengan kumpulan data berikut di Excel:

Contoh 1: Sorot sel yang aktif

Asumsikan sel B3 saat ini dipilih.

Kita dapat membuat makro berikut untuk menyorot sel aktif ini:

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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel B3 disorot dan semua sel lainnya tetap tidak tersentuh.

Contoh 2: Sorot Rentang Sel

Katakanlah kita ingin menyorot setiap sel dalam rentang B2:B10 .

Kita dapat membuat makro berikut untuk melakukan ini:

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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa setiap sel dalam rentang B2:B10 disorot dan semua sel lainnya tetap tidak tersentuh.

Contoh 3: Sorot rentang sel berdasarkan kriteria

Katakanlah kita ingin menyorot setiap sel dalam rentang B2:B10 yang memiliki nilai lebih besar dari 20.

Kita dapat membuat makro berikut untuk melakukan ini:

 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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa setiap sel dalam rentang B2:B10 dengan nilai lebih besar dari 20 disorot dan semua sel lainnya tetap tidak tersentuh.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menerapkan pemformatan bersyarat ke sel
VBA: Cara menerapkan pemformatan bersyarat ke nilai duplikat
VBA: Cara mencari nilai dalam kolom