Vba'da hücreler nasıl vurgulanır: örneklerle

Hücreleri vurgulamak için VBA’da aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: Etkin hücreyi vurgulayın

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

Bu özel makro, şu anda aktif olan hücreyi sarı bir arka planla vurgulayacaktır.

Yöntem 2: Hücre Aralığını Vurgulayın

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

Bu özel makro, B2:B10 aralığındaki her hücreyi sarı bir arka planla vurgulayacaktır.

Yöntem 3: Kriterlere göre hücre aralığını vurgulayın

 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

Bu özel makro , B2:B10 aralığında değeri 20’den büyük olan her hücreyi vurgulayacaktır.

Aşağıdaki örnekler, Excel’deki aşağıdaki veri kümesiyle her yöntemin pratikte nasıl kullanılacağını gösterir:

Örnek 1: Etkin hücreyi vurgulayın

Şu anda B3 hücresinin seçili olduğunu varsayalım.

Bu aktif hücreyi vurgulamak için aşağıdaki makroyu oluşturabiliriz:

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

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

B3 hücresinin vurgulandığına ve diğer tüm hücrelerin dokunulmadan kaldığına dikkat edin.

Örnek 2: Bir Hücre Aralığını Vurgulayın

Diyelim ki B2:B10 aralığındaki her hücreyi vurgulamak istiyoruz.

Bunun için aşağıdaki makroyu oluşturabiliriz:

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

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

B2:B10 aralığındaki her hücrenin vurgulandığını ve diğer tüm hücrelere dokunulmadığını unutmayın.

Örnek 3: Ölçütlere göre bir hücre aralığını vurgulayın

Diyelim ki B2:B10 aralığında değeri 20’den büyük olan her hücreyi vurgulamak istiyoruz.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 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

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

B2:B10 aralığında değeri 20’den büyük olan her hücrenin vurgulandığını ve diğer tüm hücrelere dokunulmadığını unutmayın.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Hücrelere koşullu biçimlendirme nasıl uygulanır?
VBA: Yinelenen değerlere koşullu biçimlendirme nasıl uygulanır?
VBA: Bir sütundaki değer nasıl bulunur?