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 Hem 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?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
