Як зв’язати прапорці з кількома комірками в Excel?
Пов’язання прапорців з кількома відносними клітинками може допомогти вам швидко і легко зробити деякі обчислення, коли вам потрібно підсумувати, підрахувати або усереднити лише перевірені або не позначені комірки. Але чи намагались ви коли-небудь прив'язувати прапорці до кількох комірок одночасно на робочому аркуші?
Пов’яжіть прапорці з кількома комірками з формулою по одному
Пов’яжіть прапорці з кількома комірками одночасно за допомогою коду VBA
Пов’яжіть прапорці з кількома комірками з формулою по одному
Насправді, щоб прив’язати прапорець до певної комірки, ви можете застосувати просту формулу, щоб зв’язати їх вручну.
1. Після вставки прапорців у ваш аркуш, щоб встановити прапорець, натисніть Ctrl клацніть, а потім клацніть перший прапорець, який потрібно зв’язати з іншою коміркою.
2. Потім у рядку формул введіть знак рівності =, а потім клацніть одну клітинку, з якою потрібно пов’язати прапорець, наприклад, B2, див. знімок екрана:
3. А потім натисніть Що натомість? Створіть віртуальну версію себе у клавіші на клавіатурі, тепер, коли ви встановите цей прапорець, відображатиметься зв’язана комірка ІСТИНА, якщо зняти його, він відобразиться ПОМИЛКОВИЙ, див. скріншот:
4. Повторив наведені вище кроки, щоб зв’язати інші прапорці по одному.
Пов’яжіть прапорці з кількома комірками одночасно за допомогою коду VBA
Якщо сотні і тисячі прапорців потрібно пов’язати з іншими комірками, перший метод не буде ефективно працювати, щоб зв’язати їх з кількома комірками одночасно, ви можете застосувати наступний код VBA. Будь ласка, зробіть так:
1. Перейдіть до робочого аркуша зі списком прапорців.
2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
3. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код VBA: прив'язує прапорці до кількох комірок одночасно
Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "B"
For Each xCB In ActiveSheet.CheckBoxes
If xCB.Value = 1 Then
Cells(i, xCChar).Value = True
Else
Cells(i, xCChar).Value = False
End If
xCB.LinkedCell = Cells(i, xCChar).Address
i = i + 1
Next xCB
End Sub
4. А потім натисніть F5 для запуску цього коду, усі прапорці в активному аркуші були зв’язані з комірками, коли ви встановите прапорець, його відносна комірка відображатиметься ІСТИНА, якщо зняти прапорець, зв’язана комірка повинна відображатися ПОМИЛКОВИЙ, див. скріншот:
примітки: У наведеному вище коді, я = 2, Кількість 2 - це початковий рядок вашого прапорця та лист B - місце розташування стовпця, куди потрібно зв’язати прапорці. Ви можете змінити їх відповідно до своїх потреб.
Статті по темі:
Як встановити всі прапорці за допомогою одного прапорця в Excel?
Як швидко вставити кілька прапорців у Excel?
Як швидко видалити кілька прапорців у Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!