Як виділити клітинку або рядок із прапорцем Excel?
Як показано на знімку екрана нижче, вам потрібно виділити рядок або клітинку прапорцем. Якщо встановлено прапорець, вказаний рядок або комірка буде виділено автоматично. Але як цього досягти в Excel? Ця стаття покаже вам два методи досягнення цього.
Виділіть комірку або рядок за допомогою прапорця з умовним форматуванням
Виділіть комірку або рядок за допомогою прапорця з кодом VBA
Виділіть комірку або рядок за допомогою прапорця з умовним форматуванням
Ви можете створити правило умовного форматування, щоб виділити клітинку або рядок із прапорцем Excel. Будь ласка, виконайте наступне.
Пов’язати все прапорець із вказаною клітинкою
1. Вам потрібно вставити прапорці в клітинки по черзі вручну, клацнувши Розробник > Insert > Прапорець (Контроль форми).
2. Тепер у клітинки у стовпці I. були встановлені прапорці. Встановіть перший прапорець у I1, введіть формулу = $ J1 у рядок формул, а потім натисніть Що натомість? Створіть віртуальну версію себе у ключ
Чайові: Якщо ви не хочете, щоб у сусідніх клітинках були пов’язані значення з прапорцями, ви можете зв’язати цей прапорець з коміркою іншого робочого аркуша, наприклад = Аркуш3! $ E1.
2. Повторюйте крок 1, доки всі прапорці не зв’язані з сусідніми комірками або комірками іншого аркуша.
примітки: Усі зв’язані клітинки повинні знаходитись послідовно і знаходитись в одному стовпці.
Створіть правило умовного форматування
Тепер вам потрібно створити правило умовного форматування наступним чином, крок за кроком.
1. Виберіть рядки, які потрібно виділити, за допомогою прапорців, а потім клацніть Умовне форматування > Нове правило під Головна вкладку. Дивіться знімок екрана:
2 В Нове правило форматування у діалоговому вікні потрібно:
2.1 Виберіть За допомогою формули визначте, які клітинки потрібно форматувати опція в Виберіть тип правила коробка;
2.2 Введіть формулу = IF ($ J1 = TRUE, TRUE, FALSE) в Форматувати значення, де ця формула відповідає дійсності коробка;
Or = IF (Аркуш3! $ E1 = TRUE, TRUE, FALSE) якщо прапорці пов’язані з іншим аркушем.
2.3 Натисніть кнопку сформований кнопка, щоб вказати виділений колір для рядків;
2.4 Натисніть кнопку OK кнопку. Дивіться знімок екрана:
примітки: У формулі, $ J1 or $ E1 - це перша пов’язана комірка для прапорців, і переконайтесь, що посилання на клітинку було змінено на абсолютний стовпець (J1> $ J1 or E1> $ E1).
Тепер створено правило умовного форматування. Якщо встановити прапорці, відповідні рядки будуть автоматично виділені, як показано на екрані нижче.
Виділіть комірку або рядок за допомогою прапорця з кодом 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?
Найкращі інструменти продуктивності офісу
Підтримує Office/Excel 2007-2021 та 365 | Доступний на 44 мовах | Легко повністю видалити
Kutools for Excel Має понад 300 функцій, Переконайтеся, що те, що вам потрібно, знаходиться лише на відстані одного кліка...
Перезарядіть свій Excel Навички: Відчуйте ефективність, як ніколи раніше Kutools for Excel (Повнофункціональна 30-денна безкоштовна пробна версія)
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкнути редагування та читання з вкладками Word, Excel, Штепсельна розетка, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Підвищує вашу продуктивність на 50% і зменшує кількість клацань мишкою щодня! (Повнофункціональна 30-денна безкоштовна пробна версія)
