Как да свържете квадратчета за отметка към множество клетки в Excel?
Свързването на квадратчетата за отметка към множество относителни клетки може да ви помогне бързо и лесно да направите някои изчисления, когато трябва да сумирате, преброите или осредните само маркираните или немаркираните клетки. Но опитвали ли сте някога да свържете квадратчетата за отметка към няколко клетки наведнъж в работен лист?
Свържете квадратчетата за отметка към множество клетки с формула една по една
Свържете квадратчетата за отметка към няколко клетки наведнъж с VBA код
Свържете квадратчетата за отметка към множество клетки с формула една по една
За да свържете квадратчето за отметка към конкретна клетка, всъщност можете да приложите проста формула, за да ги свържете ръчно.
1. След като поставите квадратчетата за отметка във вашия работен лист, за да изберете квадратчето, моля, натиснете Ctrl и след това щракнете върху първото квадратче за отметка, което искате да свържете с друга клетка.
2. След това в лентата за формули въведете знака за равенство =и след това щракнете върху една клетка, към която искате да свържете квадратчето за отметка, B2 например, вижте екранна снимка:
3. И след това натиснете Въведете на клавиатурата, сега, когато поставите отметка в това квадратче, ще се покаже свързаната клетка TRUE, ако премахнете отметката, ще се покаже FALSE, вижте екранна снимка:
4. Повторете горните стъпки, за да свържете други квадратчета едно по едно.
Свържете квадратчетата за отметка към няколко клетки наведнъж с VBA код
Ако има стотици и хиляди квадратчета за отметка, които трябва да бъдат свързани с други клетки, първият метод няма да работи ефективно, за да ги свържете към няколко клетки наведнъж, можете да приложите следния VBA код. Моля, направете следното:
1. Отидете до вашия работен лист със списъка с квадратчета за отметка.
2. Задръжте натиснат ALT + F11 за да отворите Прозорец на Microsoft Visual Basic за приложения.
3. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
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 ключ за изпълнение на този код, всички квадратчета за отметка в активния работен лист са свързани с клетките, когато поставите отметка в квадратчето, неговата относителна клетка ще се покаже TRUE, ако изчистите квадратче за отметка, свързаната клетка трябва да се покаже FALSE, вижте екранна снимка:
Забележка: В горния код, I = 2, броя 2 е началният ред на вашето поле за отметка, а буквата B е местоположението на колоната, към която трябва да свържете квадратчетата за отметка. Можете да ги промените според вашите нужди.
Още по темата:
Как да изберете всички квадратчета за отметка с помощта на едно квадратче за отметка в Excel?
Как бързо да вмъкнете няколко квадратчета за отметка в Excel?
Как бързо да изтриете няколко квадратчета за отметка в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!