Cum să evidențiați celula sau rândul cu caseta de selectare în Excel?
După cum se arată mai jos, trebuie să evidențiați rândul sau celula cu caseta de selectare. Când este bifată o casetă de selectare, un rând specificat sau o celulă vor fi evidențiate automat. Dar cum se realizează în Excel? Acest articol vă va arăta două metode de realizare.
Evidențiați celula sau rândul cu caseta de selectare cu Formatare condiționată
Evidențiați celula sau rândul cu casetă de selectare cu cod VBA
Evidențiați celula sau rândul cu caseta de selectare cu Formatare condiționată
Puteți crea o regulă de formatare condiționată pentru a evidenția celula sau rândul cu caseta de selectare în Excel. Vă rugăm să faceți următoarele.
Conectați toate caseta de selectare la o celulă specificată
1. Trebuie să introduceți casetele de selectare în celule una câte una manual, făcând clic Dezvoltator > Insera > Caseta de bifat (Control formular).
2. Acum casetele de selectare au fost inserate în celulele din coloana I. Vă rugăm să bifați prima casetă de selectare din I1, introduceți formula = $ J1 în bara de formule, apoi apăsați tasta Intrați cheie.
varful: Dacă nu doriți să aveți valori asociate în celulele adiacente casetelor de selectare, puteți lega caseta de selectare la celula unei alte foi de lucru, cum ar fi = Sheet3! $ E1.
2. Repetați pasul 1 până când toate casetele de selectare sunt legate de celulele adiacente sau celulele dintr-o altă foaie de lucru.
notițe: Toate celulele conectate trebuie să fie consecutive și să fie localizate în aceeași coloană.
Creați o regulă de formatare condiționată
Acum trebuie să creați o regulă de formatare condiționată după cum urmează pas cu pas.
1. Selectați rândurile pe care trebuie să le evidențiați cu casetele de selectare, apoi faceți clic pe Formatarea condițională > Noua regulă în temeiul Acasă filă. Vedeți captura de ecran:
2. În Noua regulă de formatare casetă de dialog, trebuie să:
2.1 Selectați Utilizați o formulă pentru a determina ce celule să formatați opțiune în Selectați un tip de regulă cutie;
2.2 Introduceți formula = IF ($ J1 = ADEVĂRAT, ADEVĂRAT, FALS) în Formatează valorile în care această formulă este adevărată cutie;
Or = IF (Sheet3! $ E1 = ADEVĂRAT, ADEVĂRAT, FALS) dacă casetele de selectare legate de o altă foaie de lucru.
2.3 Faceți clic pe Format buton pentru a specifica o culoare evidențiată pentru rânduri;
2.4 Faceți clic pe OK buton. Vedeți captura de ecran:
notițe: În formulă, $ J1 or $ E1 este prima celulă legată pentru casetele de selectare și asigurați-vă că referința celulei a fost modificată în coloană absolută (J1> $ J1 or E1> $ E1).
Acum este creată regula de formatare condiționată. Când bifați casetele de selectare, rândurile corespunzătoare vor fi evidențiate automat pe măsură ce se afișează captura de ecran a burdufului.
Evidențiați celula sau rândul cu casetă de selectare cu cod VBA
Următorul cod VBA vă poate ajuta, de asemenea, să evidențiați celula sau rândul cu caseta de selectare în Excel. Vă rugăm să faceți următoarele.
1. În foaia de lucru trebuie să evidențiați celula sau rândul cu caseta de selectare. Faceți clic dreapta pe Fila Foaie și selectați Afișați codul din meniul cu clic dreapta pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Apoi copiați și lipiți codul VBA de mai jos în fereastra Cod.
Cod VBA: Evidențiați rândul cu caseta de selectare în 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. apasă pe F5 tasta pentru a rula codul. (notițe: ar trebui să puneți cursorul în prima parte a codului pentru a aplica tasta F5) În fereastra pop-up Kutools pentru Excel caseta de dialog, selectați intervalul pe care doriți să îl inserați casete de selectare, apoi faceți clic pe OK buton. Aici selectez gama I1: I6. Vedeți captura de ecran:
4. Apoi casetele de selectare sunt inserate în celulele selectate. Bifați oricare dintre casetele de selectare, rândul corespunzător va fi evidențiat automat așa cum este prezentat mai jos.
Articole pe aceeași temă:
- Cum se modifică o valoare sau o culoare specificată a celulei când este bifată caseta de selectare în Excel?
- Cum să inserați ștampila de dată într-o celulă dacă bifați o casetă de selectare în Excel?
- Cum se face căsuța bifată pe baza valorii celulei din Excel?
- Cum se filtrează datele pe baza casetei de selectare din Excel?
- Cum se ascunde caseta de selectare atunci când rândul este ascuns în Excel?
- Cum se creează o listă derulantă cu mai multe casete de selectare în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!