Hur markerar jag cell eller rad med kryssrutan i Excel?

Som bilden nedan visas måste du markera rad eller cell med kryssrutan. När en kryssruta är markerad markeras en angiven rad eller en cell automatiskt. Men hur uppnår man det i Excel? Den här artikeln visar två metoder för att uppnå det.

Markera cell eller rad med kryssrutan med villkorlig formatering
Markera cell eller rad med kryssruta med VBA-kod

Markera cell eller rad med kryssrutan med villkorlig formatering

Du kan skapa en villkorlig formateringsregel för att markera cell eller rad med kryssrutan i Excel. Gör så här.

Länk alla kryssrutor till en angiven cell

1. Du måste infoga kryssrutor i celler manuellt genom att klicka Utvecklare > Insert > Kryssrutan (Formkontroll).

2. Nu har kryssrutor infogats i celler i kolumn I. Markera den första kryssrutan i I1, ange formel = $ J1 i formelfältet och tryck sedan på ange nyckel.

Tips: Om du inte vill ha värden associerade i intilliggande celler till kryssrutor kan du länka kryssrutan till ett annat kalkylblads cell, t.ex. = Ark3! $ E1.

2. Upprepa steg 1 tills alla kryssrutor är länkade till intilliggande celler eller celler i ett annat kalkylblad.
Anmärkningar: Alla länkade celler ska vara på varandra och placeras i samma kolumn.

Skapa en villkorlig formateringsregel

Nu måste du skapa en villkorlig formateringsregel enligt steg för steg.

1. Markera de rader du behöver markera med kryssrutorna och klicka sedan på Villkorlig formatering > Ny regel under Home flik. Se skärmdump:

2. I Ny formateringsregel dialogrutan måste du:

2.1 Välj Använd en formel för att bestämma vilka celler som ska formateras alternativet i Välj en regeltyp låda;

2.2 Ange formel = OM ($ J1 = SANT, SANT, FALSKT) i Formatera värden där denna formel är sann låda;
      Or = OM (Sheet3! $ E1 = SANT, SANT, FALSKT) om kryssrutorna är länkade till ett annat kalkylblad.

2.3 Klicka på bildad knapp för att ange en markerad färg för raderna;

2.4 Klicka på OK knapp. Se skärmdump:

Anmärkningar: I formeln, $ J1 or $ E1 är den första länkade cellen för kryssrutorna och se till att cellreferensen har ändrats till kolumn absolut (J1> $ J1 or E1> $ E1).

Nu skapas regeln för villkorlig formatering. När du markerar kryssrutorna markeras motsvarande rader automatiskt som skärmbilden för bälgen.

Markera cell eller rad med kryssruta med VBA-kod

Följande VBA-kod kan också hjälpa dig att markera cell eller rad med kryssrutan i Excel. Gör så här.

1. I kalkylbladet måste du markera cell eller rad med kryssrutan. Högerklicka på Tabell för ark och välj Visa kod från högerklickmenyn för att öppna Microsoft Visual Basic för applikationer fönster.

2. Kopiera och klistra in nedanstående VBA-kod i kodfönstret.

VBA-kod: Markera rad med kryssrutan i Excel

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. tryck på F5 för att köra koden. (Anmärkningar: du bör placera markören i den första delen av koden för att tillämpa F5-tangenten) När du dyker upp Kutools för Excel välj det intervall du vill infoga kryssrutor och klicka sedan på OK knapp. Här väljer jag intervall I1: I6. Se skärmdump:

4. Markera sedan kryssrutor i valda celler. Markera någon av kryssrutorna, motsvarande rad markeras automatiskt enligt nedanstående skärmdump.

Relaterade artiklar:

• Hur ändrar jag ett specificerat cellvärde eller färg när kryssrutan är markerad i Excel?
• Hur infogar jag datumstämpel i en cell om det är markerat i kryssrutan i Excel?
• Hur gör jag kryssrutan markerad baserat på cellvärde i Excel?
• Hur filtrerar jag data baserat på kryssrutan i Excel?
• Hur döljer jag kryssrutan när raden är dold i Excel?
• Hur skapar jag en listruta med flera kryssrutor i Excel?