Как выделить ячейку или строку с помощью флажка в Excel?

Как показано на скриншоте ниже, вам нужно выделить строку или ячейку флажком. Когда флажок отмечен, указанная строка или ячейка будет выделена автоматически. Но как этого добиться в Excel? В этой статье будут показаны два способа этого добиться.

Выделите ячейку или строку флажком с условным форматированием
Выделите ячейку или строку с помощью флажка с кодом VBA

Выделите ячейку или строку флажком с условным форматированием

Вы можете создать правило условного форматирования, чтобы выделить ячейку или строку с помощью флажка в Excel. Пожалуйста, сделайте следующее.

Шаг ПЕРВЫЙ: Привязать все флажки к указанной ячейке

1. Вам необходимо вручную вставить флажки в ячейки по одному, нажав Застройщик > Вставить > Флажок (Контроль формы).

2. Теперь флажки были вставлены в ячейки в столбце I. Установите первый флажок в I1, введите формулу = $ J1 в строку формул, а затем нажмите Enter .

Функции: Если вы не хотите, чтобы значения в соседних ячейках были связаны с флажками, вы можете связать флажок с ячейкой другого листа, например = Лист3! $ E1.

3. Повторяйте шаг 1, пока все флажки не будут связаны с соседними ячейками или ячейками на другом листе.
Внимание: Все связанные ячейки должны быть последовательными и располагаться в одном столбце.

Шаг ВТОРОЙ: Создайте правило условного форматирования

Теперь вам нужно создать правило условного форматирования, как показано ниже.

1. Выберите строки, которые нужно выделить, с помощью флажков, затем нажмите Условное форматирование > Новое правило под Главная таб. Смотрите скриншот:

2. в Новое правило форматирования диалоговое окно, вам необходимо:

Теперь правило условного форматирования создано. При установке флажков соответствующие строки будут выделены автоматически, как показано ниже.

Выделите ячейку или строку с помощью флажка с кодом VBA

Следующий код VBA также может помочь вам выделить ячейку или строку с помощью флажка в Excel. Пожалуйста, сделайте следующее.

1. На листе необходимо выделить ячейку или строку флажком. Щелкните правой кнопкой мыши Вкладка листа и Просмотреть код из контекстного меню, чтобы открыть Microsoft Visual Basic для приложений окно.

2. Затем скопируйте и вставьте приведенный ниже код VBA в окно кода.

Код VBA: выделить строку с флажком в 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. нажмите F5 ключ для запуска кода. (Внимание: нужно поставить курсор в первую часть кода, чтобы применить клавишу F5) Во всплывающем окне Kutools for Excel диалоговом окне выберите диапазон, который вы хотите вставить флажки, а затем щелкните OK кнопка. Здесь я выбираю диапазон I1: I6. Смотрите скриншот:

4. Затем в выбранные ячейки вставляются флажки. Установите любой из флажков, соответствующая строка будет выделена автоматически, как показано ниже.

Статьи по теме:

• Как изменить указанное значение или цвет ячейки при установленном флажке в Excel?
• Как вставить отметку даты в ячейку, если в Excel установлен флажок?
• Как установить флажок на основе значения ячейки в Excel?
• Как фильтровать данные по флажку в Excel?
• Как скрыть флажок, когда строка скрыта в Excel?
• Как создать выпадающий список с несколькими флажками в Excel?