Excel'de onay kutusuyla hücre veya satırı nasıl vurgularsınız?

Aşağıdaki ekran görüntüsünde gösterildiği gibi, bir onay kutusuyla bir satırı veya hücreyi vurgulamanız gerekiyor. Bir onay kutusu işaretlendiğinde, belirli bir satır veya hücre otomatik olarak vurgulanacaktır. Ancak bunu Excel'de nasıl başarabilirsiniz? Bu makale size bunu başarmak için iki yöntem gösterecek.

Koşullu Biçimlendirme ile onay kutusuyla hücre veya satırı vurgulama
VBA kodu ile onay kutusuyla hücre veya satırı vurgulama

Koşullu Biçimlendirme ile onay kutusuyla hücre veya satırı vurgulama

Excel'de onay kutusuyla hücre veya satırı vurgulamak için Koşullu Biçimlendirme kuralı oluşturabilirsiniz. Lütfen aşağıdaki adımları izleyin.

ADIM BİR: Tüm onay kutularını belirli bir hücreye bağlayın

1. Geliştirici > Ekle > Onay Kutusu (Form Denetimi) öğesine tıklayarak onay kutularını hücrelere tek tek elle eklemeniz gerekir.

2. Şimdi onay kutuları I sütunundaki hücrelere eklendi. Lütfen I1'deki ilk onay kutusunu seçin, formül çubuğuna =$J1 formülünü girin ve ardından Enter tuşuna basın.

İpucu: Onay kutularıyla bitişik hücrelerde değerler ilişkilendirilmesini istemiyorsanız, onay kutusunu =Sheet3!$E1 gibi başka bir çalışma sayfasının hücresine bağlayabilirsiniz.

3. Tüm onay kutuları bitişik hücrelere veya başka bir çalışma sayfasındaki hücrelere bağlanana kadar 1. adımı tekrarlayın.
Not: Tüm bağlantılı hücreler ardışık olmalı ve aynı sütunda yer almalıdır.

ADIM İKİ: Koşullu Biçimlendirme kuralı oluşturun

Şimdi adım adım aşağıdaki şekilde bir Koşullu Biçimlendirme kuralı oluşturmanız gerekiyor.

1. Onay kutularıyla vurgulamak istediğiniz satırları seçin, ardından Ana sekmesi altında Koşullu Biçimlendirme > Yeni Kural'a tıklayın. Ekran görüntüsüne bakın:

2. Yeni Biçimlendirme Kuralı iletişim kutusunda şunları yapmanız gerekir:

Şimdi Koşullu Biçimlendirme kuralı oluşturuldu. Onay kutularını işaretlediğinizde, ilgili satırlar aşağıdaki ekran görüntüsünde gösterildiği gibi otomatik olarak vurgulanacaktır.

VBA kodu ile onay kutusuyla hücre veya satırı vurgulama

Aşağıdaki VBA kodu da Excel'de onay kutusuyla hücre veya satırı vurgulamanıza yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

1. Onay kutusuyla hücre veya satırı vurgulamak istediğiniz çalışma sayfasında. Sekme Sekmesine sağ tıklayın ve açılan menüden Kodu Görüntüle'yi seçerek Microsoft Visual Basic for Applications penceresini açın.

2. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Excel'de onay kutusuyla satırı vurgulama

Sub AddCheckBox()
Dim xCell As Range
Dim xRng As Range
Dim I As Integer
Dim xChk As CheckBox
On Error Resume Next
InputC:
    Set xRng = Application.InputBox("Please select the column range to insert checkboxes:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count > 1 Then
    MsgBox "The selected range should be a single column", vbInformation, "Kutools fro Excel"
    GoTo InputC
Else
    If xRng.Columns.Count = 1 Then
        For Each xCell In xRng        
            With ActiveSheet.CheckBoxes.Add(xCell.Left, _
               xCell.Top, xCell.Width = 15, xCell.Height = 12)
               .LinkedCell = xCell.Offset(, 1).Address(External:=False)
               .Interior.ColorIndex = xlNone
               .Caption = ""
               .Name = "Check Box " & xCell.Row
            End With    
            xRng.Rows(xCell.Row).Interior.ColorIndex = xlNone                  
        Next        
    End If    
    With xRng    
     .Rows.RowHeight = 16    
    End With   
    xRng.ColumnWidth = 5#    
    xRng.Cells(1, 1).Offset(0, 1).Select    
    For Each xChk In ActiveSheet.CheckBoxes   
      xChk.OnAction = ActiveSheet.Name + ".InsertBgColor"      
    Next
End If
End Sub

Sub InsertBgColor()
Dim xName As Integer
Dim xChk As CheckBox
For Each xChk In ActiveSheet.CheckBoxes 
  xName = Right(xChk.Name, Len(xChk.Name) - 10) 
  If (xName = Range(xChk.LinkedCell).Row) Then   
   If (Range(xChk.LinkedCell) = "True") Then   
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = 6    
   Else    
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = xlNone  
   End If  
  End If
Next
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın. (Not: F5 tuşunu uygulamak için imleci kodun ilk kısmına getirmelisiniz.) Açılan Kutools for Excel iletişim kutusunda, onay kutularını eklemek istediğiniz alanı seçin ve ardından Tamam düğmesine tıklayın. Burada I1:I6 aralığını seçiyorum. Ekran görüntüsüne bakın:

4. Ardından onay kutuları seçilen hücrelere eklenir. Herhangi bir onay kutusunu işaretleyin, ilgili satır aşağıdaki ekran görüntüsünde gösterildiği gibi otomatik olarak vurgulanacaktır.

İlgili makaleler:

• Excel'de onay kutusu işaretlendiğinde belirli bir hücre değerini veya rengini nasıl değiştirirsiniz?
• Excel'de onay kutusu işaretlendiğinde bir hücreye tarih damgası nasıl eklersiniz?
• Excel'de hücre değerine göre onay kutusunu nasıl işaretlersiniz?
• Excel'de onay kutusuna göre verileri nasıl filtrelersiniz?
• Excel'de satır gizlendiğinde onay kutusunu nasıl gizlersiniz?
• Excel'de birden fazla onay kutulu açılır liste nasıl oluşturursunuz?