Jak wyróżnić komórkę lub wiersz za pomocą pola wyboru w programie Excel?
Jak pokazano na poniższym zrzucie ekranu, musisz zaznaczyć wiersz lub komórkę za pomocą pola wyboru. Gdy pole wyboru jest zaznaczone, określony wiersz lub komórka zostaną automatycznie podświetlone. Ale jak to osiągnąć w Excelu? Ten artykuł pokaże Ci dwie metody osiągnięcia tego.
Podświetl komórkę lub wiersz za pomocą pola wyboru z formatowaniem warunkowym
Zaznacz komórkę lub wiersz za pomocą pola wyboru z kodem VBA
Podświetl komórkę lub wiersz za pomocą pola wyboru z formatowaniem warunkowym
Możesz utworzyć regułę formatowania warunkowego, aby podświetlić komórkę lub wiersz za pomocą pola wyboru w programie Excel. Wykonaj następujące czynności.
Połącz wszystkie pola wyboru z określoną komórką
1. Musisz ręcznie wstawiać pola wyboru do komórek pojedynczo, klikając Deweloper > wstawka > Pole wyboru (Kontrola formularza).
2. Teraz pola wyboru zostały wstawione do komórek w kolumnie I. Zaznacz pierwsze pole wyboru w I1, wprowadź formułę = $ J1 do paska formuły, a następnie naciśnij klawisz Wchodzę klawisz.
Wskazówka: Jeśli nie chcesz, aby wartości w sąsiednich komórkach były powiązane z polami wyboru, możesz połączyć to pole wyboru z komórką innego arkusza, na przykład = Arkusz3! $ E1.
2. Powtarzaj krok 1, aż wszystkie pola wyboru zostaną połączone z sąsiednimi komórkami lub komórkami w innym arkuszu.
Note: Wszystkie połączone komórki powinny następować po sobie i znajdować się w tej samej kolumnie.
Utwórz regułę formatowania warunkowego
Teraz musisz utworzyć regułę formatowania warunkowego w następujący sposób krok po kroku.
1. Zaznacz wiersze, które chcesz zaznaczyć, za pomocą pól wyboru, a następnie kliknij Formatowanie warunkowe > Nowa zasada pod Strona główna patka. Zobacz zrzut ekranu:
2. w Nowa reguła formatowania w oknie dialogowym, musisz:
2.1 Wybierz plik Użyj formuły, aby określić, które komórki należy sformatować opcja w Wybierz typ reguły pudełko;
2.2 Wprowadź wzór = JEŻELI ($ J1 = TRUE, TRUE, FALSE) do Formatuj wartości tam, gdzie ta formuła jest prawdziwa pudełko;
Or = JEŻELI (Arkusz3! $ E1 = TRUE, TRUE, FALSE) jeśli pola wyboru są połączone z innym arkuszem.
2.3 Kliknij utworzony przycisk do określenia podświetlonego koloru dla wierszy;
2.4 Kliknij OK przycisk. Zobacz zrzut ekranu:
Note: We wzorze $ J1 or $ E1 jest pierwszą połączoną komórką dla pól wyboru i upewnij się, że odwołanie do komórki zostało zmienione na bezwzględne kolumny (J1> $ J1 or E1> $ E1).
Teraz tworzona jest reguła formatowania warunkowego. Podczas zaznaczania pól wyboru odpowiednie wiersze zostaną automatycznie podświetlone, tak jak pokazano na zrzucie ekranu.
Zaznacz komórkę lub wiersz za pomocą pola wyboru z kodem VBA
Poniższy kod VBA może również pomóc w podświetleniu komórki lub wiersza za pomocą pola wyboru w programie Excel. Wykonaj następujące czynności.
1. W arkuszu należy zaznaczyć komórkę lub wiersz za pomocą pola wyboru. Kliknij prawym przyciskiem myszy Karta Arkusz i wybierz Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy, aby otworzyć plik Microsoft Visual Basic for Applications okno.
2. Następnie skopiuj i wklej poniższy kod VBA do okna Code.
Kod VBA: Zaznacz wiersz z polem wyboru w programie 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. wciśnij F5 klucz do uruchomienia kodu. (Note: należy umieścić kursor w pierwszej części kodu, aby zastosować klawisz F5) W wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz zakres, w którym chcesz wstawić pola wyboru, a następnie kliknij OK przycisk. Tutaj wybieram zakres I1: I6. Zobacz zrzut ekranu:
4. Następnie pola wyboru są wstawiane do wybranych komórek. Zaznacz dowolne z pól wyboru, odpowiedni wiersz zostanie podświetlony automatycznie, jak pokazano poniżej.
Powiązane artykuły:
- Jak zmienić określoną wartość lub kolor komórki, gdy pole wyboru jest zaznaczone w programie Excel?
- Jak wstawić znacznik daty do komórki, jeśli zaznaczono pole wyboru w programie Excel?
- Jak zaznaczyć pole wyboru na podstawie wartości komórki w programie Excel?
- Jak filtrować dane na podstawie pola wyboru w programie Excel?
- Jak ukryć pole wyboru, gdy wiersz jest ukryty w programie Excel?
- Jak utworzyć listę rozwijaną z wieloma polami wyboru w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!