Прескочи на основното съдържание

Квадратчета за отметка на Excel: Добавете, изберете, изтрийте и използвайте квадратчета за отметка в Excel

Автор: Xiaoyang Последна промяна: 2022-09-09

Квадратчето за отметка е интерактивен инструмент, който се използва за избор или премахване на избора на опция, често ще ги видите в уеб формуляри или при попълване на анкети. В Excel можете да добавите множество възможности, като поставите или премахнете отметка в квадратче, което прави вашия лист по-динамичен и интерактивен, като например създаване на контролни списъци чрез квадратчета за отметка, вмъкване на динамична диаграма чрез квадратчета за отметка и т.н.

В този урок ще ви представя как да вмъквате, избирате, изтривате квадратчета за отметка и ще дам някои примери за използването им в Excel.

Съдържание:

1. Два вида квадратчета за отметка (Контрола на формуляра с квадратче за отметка срещу ActiveX контрола в полето за отметка)

2. Добавете едно или няколко квадратчета за отметка в Excel

3. Променете името на полето за отметка и текста на надписа

4. Свържете едно или няколко квадратчета за отметка към клетки

5. Изберете едно или няколко квадратчета за отметка

6. Изтрийте едно или няколко квадратчета за отметка

7. Групирайте квадратчета за отметка в Excel

8. Примери: Как да използвате квадратчета за отметка в Excel


Два вида квадратчета за отметка (Контрола на формуляра с квадратче за отметка спрямо ActiveX контрола в полето за отметка)

За да поставите квадратче за отметка, трябва да се уверите, че разделът Разработчик се показва на лентата. Разделът Разработчик не е активен по подразбиране, така че първо трябва да го активирате.

1. В работната книга на Excel, моля, щракнете досие > Настроики. В Опции на Excel кликнете върху Персонализиране панделка, след което проверете Софтуерен Инженер и натиснете OK бутон, за да затворите този диалогов прозорец.

2, Сега, Софтуерен Инженер се появява в лентата на Excel, както е показано на екранната снимка по-долу. Можете да получите достъп до различни интерактивни контроли от раздела Разработчик, както ви е необходимо.

Microsoft Excel предоставя два вида квадратчета за отметка -Поле за отметка Контрол на формуляр намлява Квадратче за отметка ActiveX контрола:

Контрол на формата на полето за отметка е много по-просто от Квадратче за отметка ActiveX ControlИ Квадратче за отметка ActiveX Control е по-гъвкав в дизайна и може да се използва като обекти в кодове. За ежедневната ни работа контролите на формуляра са достатъчни, така че ще ги използваме в повечето случаи.

Контрола на формуляр с квадратче за отметка срещу ActiveX контрола с квадратче за отметка:

  • ActiveX контролите предоставят повече опции за форматиране, можете да ги използвате за изтънчен и гъвкав дизайн;
  • Контролите на формуляра са вградени в Excel, докато ActiveX контролите се зареждат отделно, така че понякога могат да замръзнат;
  • Някои компютри не се доверяват на ActiveX контролите по подразбиране, така че трябва да ги активирате ръчно от Trust Center;
  • Check Box ActiveX контролата може да бъде достъпна програмно чрез VBA редактора;
  • ActiveX се предоставя само от опцията на Windows, а Mac OS не го поддържа.

Забележка: Всички квадратчета за отметка, за които говоря в следващите уроци, са Контрол на формуляри с квадратчета за отметка.


Добавете едно или няколко квадратчета за отметка в Excel

За да поставите едно или повече квадратчета за отметка, този раздел може да ви направи услуга.

2.1 Поставете едно квадратче за отметка

За да поставите едно квадратче за отметка, моля, направете следното:

1. Щракнете Софтуерен Инженер , след което щракнете върху Поставете от Контроли група и след това изберете Поле за отметка под Контроли на формуляри. След това щракнете върху клетка, в която искате да вмъкнете квадратчето за отметка, и квадратчето ще се появи близо до тази клетка, вижте екранните снимки:

2. След това поставете курсора над ръба на полето за избор за вашето поле за отметка. Когато се промени на показалеца за движение, можете да щракнете и плъзнете квадратчето за отметка в клетката, от която се нуждаете, вижте екранни снимки:


2.2 Поставете няколко квадратчета за отметка

Ако имате нужда от няколко квадратчета за отметка в работния си лист, тук ще говорим за някои бързи начини за вас.

 Поставете няколко квадратчета за отметка с опцията за дръжка за попълване

За да вмъкнете бързо няколко квадратчета за отметка, добавете едно квадратче за отметка, както е описано по-горе, и след това използвайте опцията за ръкохватка за попълване, за да попълните квадратчетата за отметка в други клетки.

1. Щракнете, за да изберете клетката, където се намира квадратчето за отметка.

2. Плъзнете манипулатора за попълване надолу, за да попълните квадратчетата за отметка, както е показано на екранната снимка по-долу:


 Поставете няколко квадратчета за отметка с VBA код

Следният VBA код също може да ви помогне да вмъкнете списък с квадратчета за отметка бързо и лесно. Моля, направете следното:

1. Задръжте натиснат ALT + F11 за да отворите Прозорец на Microsoft Visual Basic за приложения.

2, След това кликнете върху Поставете > Модулии поставете следния код в Модули прозорец.

VBA код: Вмъкнете няколко квадратчета за отметка в списък с клетки

Sub InsertCheckBoxes()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

3. И след това натиснете F5 ключ за изпълнение на този код. Ще се появи поле за подкана, за да ви напомни да изберете диапазон от клетки за вмъкване на квадратчетата за отметка. Вижте екранна снимка:

4, След това кликнете върху OK бутон, квадратчетата за отметка се вмъкват в клетките спретнато наведнъж, вижте екранната снимка:


 Поставете няколко квадратчета за отметка с удобна функция

Ако имате Kutools за Excel, Със своята Квадратчета за отметка за партидно вмъкване можете веднага да вмъкнете квадратчетата за отметка в празни клетки или клетки с данни.

След инсталиране Kutools за Excel, моля, направете следното:

1. Изберете диапазон от клетки, където искате да вмъкнете квадратчета за отметка.

2, След това кликнете върху Kutools > Поставете > Квадратчета за отметка за партидно вмъкване, вижте екранна снимка:

3. След това избраните клетки се попълват с квадратчета за отметка, както са показани следните екранни снимки:

 Поставете квадратчета за отметка в празни клетки  Поставете квадратчета за отметка в клетки с данни
   

Променете името на полето за отметка и текста на надписа

Когато използвате квадратчето за отметка в Excel, трябва да разграничите името на квадратчето за отметка и името на надписа. Името на надписа е текстът, който виждате до квадратчето за отметка, а името на квадратчето за отметка е името, което виждате в полето Име, когато квадратчето е избрано, както са показани екранните снимки по-долу:

 Име на полето за отметка  Име на надписа
   

За да промените името на надписа, щракнете с десния бутон върху квадратчето за отметка и след това изберете Редактиране на текст от контекстното меню и въведете новото име, което искате, вижте екранните снимки:

За да промените името на квадратчето за отметка, трябва да поставите отметка в квадратчето и след това да въведете името, от което се нуждаете, в Кутия за име както е показано на екранната снимка по-долу:


Свържете едно или няколко квадратчета за отметка към клетки

Когато използвате квадратчето за отметка, често трябва да свържете квадратчетата за отметка с клетки. Ако квадратчето е отметнато, клетката показва TRUE, а ако не е отметнато, клетката показва FALSE или празна. Този раздел ще представи как да свържете едно или няколко квадратчета за отметка към клетки в Excel.

4.1 Свържете едно квадратче за отметка към клетка с функцията за контрол на формата

За да свържете квадратчето за отметка с определена клетка, моля, направете следното:

1. Щракнете с десния бутон върху квадратчето за отметка и след това изберете Контрол на формата от контекстното меню вижте екранната снимка:

2. В Форматиране на обект диалогов прозорец, под контрол щракнете, за да изберете клетка, към която искате да свържете квадратчето за отметка от Клетъчна връзка поле или въведете препратката към клетката ръчно, вижте екранната снимка:

3. Щракнете OK за да затворите диалоговия прозорец и сега квадратчето за отметка е свързано с конкретна клетка. Ако го поставите отметка, показва се TRUE, премахнете отметката, появява се FALSE, както е показано в демонстрацията по-долу:


4.2 Свържете няколко квадратчета за отметка към клетки с VBA код

За да свържете множество квадратчета за отметка към клетки с помощта на функцията за контрол на форматиране, трябва да повтаряте горните стъпки отново и отново. Това ще отнеме много време, ако има стотици или хиляди квадратчета за отметка, които трябва да бъдат свързани. Тук ще представя код на VBA за свързване на няколко квадратчета за отметка към клетки наведнъж.

1. Отидете до работния лист, който съдържа квадратчетата за отметка.

2. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

3, След това кликнете върху Поставете > Модулии поставете следния код в Модули Window.

VBA код: Свържете няколко квадратчета за отметка към клетки наведнъж

Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "C"
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

Забележка: В този код, I = 2, броя 2 е началният ред на вашето поле за отметка и xCChar = "C", писмото C е колоната, към която искате да свържете квадратчетата за отметка. Можете да ги промените според вашите нужди.

4. И след това натиснете F5 за изпълнение на този код, всички квадратчета за отметка в активния работен лист са свързани към посочените клетки наведнъж. Когато поставите отметка в квадратче, неговата относителна клетка ще покаже TRUE, премахвайки отметката в квадратчето, свързаната клетка ще покаже FALSE, вижте екранната снимка:


Изберете едно или няколко квадратчета за отметка

За да копирате или изтриете квадратчетата за отметка в работен лист, първо трябва да поставите отметка в квадратчетата. За да изберете едно или повече квадратчета за отметка, моля, направете следното:

Изберете едно квадратче за отметка: (два начина)

  • Щракнете с десния бутон върху квадратчето за отметка и след това щракнете където и да е в него.
  • OR
  • Натиснете Ctrl ключ и след това щракнете върху квадратчето за отметка.

Изберете няколко квадратчета за отметка:

Натиснете и задръжте Ctrl ключ и след това щракнете върху квадратчетата за отметка, които искате да изберете едно по едно.


Изтрийте едно или няколко квадратчета за отметка

Изтриването на едно квадратче за отметка е лесно за нас, просто трябва да го изберете и след това да натиснете клавиша Delete на клавиатурата. Когато става въпрос за множество квадратчета за отметка, как бихте могли да го направите в Excel?

6.1 Изтрийте няколко квадратчета за отметка с VBA код

За да изтриете всички квадратчета за отметка в даден лист, можете да приложите следния VBA код.

1. Задръжте натиснат ALT + F11 за да отворите Прозорец на Microsoft Visual Basic за приложения.

2, След това кликнете върху Insert> Модулии поставете следния код в Прозорец на модула.

VBA код: Изтрийте всички квадратчета за отметка в текущия работен лист

Sub RemoveCheckboxes()
'Update by Extendoffice
On Error Resume Next
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
End Sub

3. След това натиснете F5 ключ за изпълнение на кода. Всички квадратчета за отметка в конкретния работен лист ще бъдат изтрити наведнъж.


6.2 Изтрийте няколко квадратчета за отметка с проста функция

с Kutools за Excel" Квадратчета за отметка за партидно изтриване можете да изтриете квадратчетата за отметка от диапазон от селекции или цели листове, както е необходимо, само с няколко кликвания.

След инсталиране Kutools за Excel, моля, направете следното:

1. Изберете диапазона от клетки или целия лист, който съдържа квадратчета за отметка, които искате да премахнете.

2, След това кликнете върху Kutools > Изтрий > Квадратчета за пакетно изтриване, вижте екранна снимка:

3. И след това всички квадратчета за отметка се премахват наведнъж от селекцията.


Групирайте квадратчета за отметка в Excel

Когато искате да преместите или преоразмерите няколко квадратчета за отметка заедно, групирането на квадратчетата за отметка може да ви помогне да контролирате всички квадратчета наведнъж. Този раздел ще говори за това как да групирате няколко квадратчета за отметка в работен лист на Excel.

7.1 Групирайте квадратчета за отметка с помощта на функцията за групиране

В Excel, група функция може да помогне за групиране на няколко квадратчета за отметка, моля, направете следното:

1. Задръжте Ctrl и след това щракнете, за да изберете квадратчетата за отметка едно по едно, които искате да групирате, вижте екранната снимка:

2. След това щракнете с десния бутон и изберете група > група от контекстното меню вижте екранната снимка:

3. И всички избрани квадратчета за отметка са групирани, можете да ги местите, копирате заедно наведнъж.


7.2 Групирайте квадратчета за отметка с помощта на командата Group Box

Освен това можете да използвате и Групова кутия за групиране на няколко квадратчета за отметка заедно. Моля, направете следните стъпки:

1, Отидете на Софтуерен Инженер , след което щракнете върху Поставете > Групова кутия (контрола на формуляр), вижте екранна снимка:

2. И след това плъзнете мишката, за да нарисувате групова кутия, и променете името на надписа на груповата кутия, както желаете:

3. Сега можете да поставите квадратчета за отметка в груповото поле, щракнете Софтуерен Инженер > Поставете > Квадратче за отметка (контрола на формуляр), вижте екранна снимка:

4. След това плъзнете мишката, за да нарисувате квадратче за отметка, и променете името на надписа, както ви е необходимо, вижте екранните снимки

5. По същия начин поставете други квадратчета за отметка в груповото поле и ще получите резултата, както е показано на екранната снимка по-долу:


Примери: Как да използвате квадратчета за отметка в Excel

От горната информация знаем някои основни познания за квадратчетата за отметка. В този раздел ще ви представя как да използвате квадратчета за отметка за някои интерактивни и динамични операции в Excel.

 Пример 1: Създайте списък със задачи с квадратчета за отметка

Списъкът със задачи е полезен за отбелязване на задачите, които сме изпълнили в ежедневната си работа. В типичен списък със задачи отметнатите завършени задачи имат зачеркнат формат, както е показано на екранната снимка по-долу. С помощта на квадратчетата за отметка можете бързо да създадете интерактивен списък със задачи.

За да създадете списък със задачи с квадратчета за отметка, изпълнете следните стъпки:

1. Моля, поставете квадратчетата за отметка в списъка с клетки, където искате да използвате, вижте екранната снимка: (Кликнете, за да научите как да вмъкнете няколко квадратчета за отметка)

2. След като поставите квадратчетата за отметка, трябва да свържете всяко квадратче за отметка към отделна клетка.

Съвети: За да свържете квадратчета за отметка към клетки, можете да използвате Контрол на формата функция, за да ги свържете към клетки една по една или да приложите VBA код за да ги свърже с клетки наведнъж.

3. След свързване на квадратчета за отметка към клетки, ако квадратчето е отметнато, се показва TRUE, ако не е отметнато, се показва FALSE, вижте екранната снимка:

4. След това трябва да приложите Условно форматиране функция за постигане на следните операции. Изберете диапазона от клетки A2:C8, който искате да създадете списък със задачи, и след това щракнете Начало > Условно форматиране > Ново правило за да отидете на Ново правило за форматиране диалогов прозорец.

5. В Ново правило за форматиране кликнете върху Използвайте формула, за да определите кои клетки да форматирате в Изберете тип правило списъчно поле и след това въведете тази формула =C2=ВЯРНО в Форматиране на стойности, където тази формула е вярна текстово поле, вижте екранна снимка:

Забележка: C2 е клетка, която е свързана с квадратчето за отметка..

6. След това продължете да щраквате върху формат За да отидете на Форматиране на клетки диалогов прозорец. Под Font раздел, проверете Зачеркнат от Вещи раздел и задайте цвят за елемента от списъка със завършени задачи, както искате, вижте екранната снимка:

7, След това кликнете върху OK > OK за да затворите диалоговите прозорци, сега, когато поставите отметка в квадратчето, съответният му елемент ще бъде форматиран като зачеркнат, както е показано в демонстрацията по-долу:


 Пример 2: Създаване на динамична диаграма с квадратчета за отметка

Понякога може да се наложи да покажете много данни и информация в една диаграма и диаграмата ще бъде в бъркотия. В този случай можете да използвате квадратчетата за отметка, за да създадете динамична диаграма във вашия лист. Когато поставите отметка в квадратче, ще се покаже съответният ред с данни, ако премахнете отметката, редът с данни ще бъде скрит, както е показано в демонстрацията по-долу:

Този раздел ще говори за два бързи трика за създаване на този тип диаграма в Excel.

 Създайте интерактивна диаграма с квадратчета за отметка в Excel

Обикновено в Excel можете да създадете динамична диаграма, като използвате квадратчета за отметка със следните стъпки:

1. Поставете няколко квадратчета за отметка и ги преименувайте. В този случай ще вмъкна три квадратчета за отметка и ще ги преименувам на Apple, Orange и Peach, вижте екранната снимка:

2. След това трябва да свържете тези квадратчета за отметка към клетки, моля, щракнете, за да изберете първото квадратче за отметка, след което щракнете с десния бутон, след което изберете Контрол на формата, В Форматиране на обект диалогов прозорец, под контрол раздел, от Клетъчна връзка изберете клетка, където да се свържете с квадратчето за отметка, вижте екранна снимка:

3. Повторете горната стъпка, за да свържете другите две квадратчета с други клетки. Сега, ако поставите отметка в квадратчето, ще се покаже TRUE, в противен случай ще се покаже FALSE, както е показано в демонстрацията по-долу:

4. След като поставите и свържете квадратчетата за отметка, сега трябва да подготвите данните. Копирайте оригиналните заглавия на реда и колоните с данни на друго място, вижте екранната снимка:

5. След това приложете формулите по-долу:

  • В клетката B13: = АКО ($ B $ 6, B2, NA ())и плъзнете манипулатора за запълване, за да запълните реда от B13 до G13;
  • В клетката B14: = АКО ($ B $ 7, B3, NA ()),и плъзнете манипулатора за запълване, за да запълните реда от B14 до G14;
  • В клетката B15: = АКО ($ B $ 8, B4, NA ())и плъзнете манипулатора за запълване, за да запълните реда от B15 до G15.
  • Тези формули връщат стойностите от оригиналните данни, ако квадратчето за отметка за този продукт е отметнато и #N/A, ако не е отметнато. Вижте екранна снимка:

6. След това, моля, изберете новия диапазон от данни от A12 до G15 и след това щракнете Поставете > Вмъкване на линейна или площна диаграма > Линия за вмъкване на линейна диаграма.

7. Сега, когато поставите отметка в квадратчето за продукта, ще се появи неговият ред с данни, а когато премахнете отметката, ще изчезне, както е показано в демонстрацията по-долу:

8. След като създадете диаграмата, можете да поставите квадратчетата за отметка върху нея, за да изглеждат добре. Щракнете, за да изберете областта на графиката, и след това плъзнете, за да я свиете, вижте екранната снимка:

9. И след това натиснете Ctrl за да изберете трите квадратчета за отметка, плъзнете ги върху диаграмата, след което щракнете с десния бутон, за да изберете Донесете отпред > Донесете отпред, вижте екранна снимка:

10. И квадратчетата за отметка се показват на диаграмата, продължете да натискате Ctrl клавиш, за да изберете квадратчетата за отметка и диаграма едно по едно, щракнете с десния бутон, за да изберете група > група, вижте екранна снимка:

11. Сега квадратчетата за отметка са свързани с линейната диаграма. Когато преместите диаграмата, квадратчетата за отметка също ще се преместят съответно.


 Създайте интерактивна диаграма с квадратчета за отметка с лесна функция

Горният метод може да е малко труден за вас, тук ще ви представя лесен начин за решаване на тази задача. с Kutools за ExcelЕ Линейна диаграма в полето за отметка функция, можете лесно да създадете динамична диаграма с квадратчета за отметка.

След инсталиране Kutools за Excel, моля, направете следното:

1. Изберете диапазона от данни, който искате да създадете диаграмата, и след това щракнете Kutools > Графики > Сравнение на категории > Линейна диаграма в полето за отметка, вижте екранна снимка:

2. И тогава, а Линейна диаграма в полето за отметка изскочи диалоговият прозорец, избраните от вас данни се попълват автоматично в техните отделни текстови полета, вижте екранна снимка:

3, След това кликнете върху OK и изскача поле за подкана, за да ви напомни, че ще бъде създаден скрит лист с някои междинни данни, моля щракнете Да бутон, вижте екранната снимка:

4. И линейна диаграма с квадратчета за отметка ще бъде създадена успешно, вижте екранната снимка:


 Пример 3: Създайте падащ списък с квадратчета за отметка

Избирането на множество елементи от падащ списък може да е обичайна задача за повечето от нас. Някои потребители се опитват да създадат падащ списък с квадратчета за отметка, за да изберат множествен избор, както е показано в демонстрацията по-долу. За съжаление не е възможно да създадете такива падащи списъци с квадратчета за отметка в Excel. Но тук ще представя два типа избор на множество квадратчета за отметка в Excel. Едното е списъчно поле с квадратчета за отметка, а другото е падащ списък с квадратчета за отметка.

 Създайте падащ списък с квадратчета за отметка, като използвате списъчно поле

Вместо падащ списък, можете да използвате списъчно поле, за да добавите квадратчета за отметка за множествен избор. Процесът е малко сложен, моля, следвайте стъпките по-долу стъпка по стъпка:

1. Първо, моля, поставете списъчно поле, щракнете Софтуерен Инженер > Поставете > Списъчно поле (ActiveX Control). Вижте екранна снимка:

2. Плъзнете мишката, за да нарисувате списъчно поле, след което щракнете с десния бутон върху него и изберете Имоти от контекстното меню вижте екранната снимка:

3. В Имоти прозорец, моля, задайте операциите, както следва:

  • в ListFillRange въведете диапазона от данни, който искате да покажете в списъчното поле;
  • в ListStyle , изберете 1 - fmList StyleOption от падащото надолу;
  • в Групов , изберете 1 – fmMultiSelectMulti от падащото надолу;
  • Накрая щракнете върху бутона за затваряне, за да го затворите.

4. След това щракнете върху клетка, където искате да изведете множеството избрани елементи, и дайте име на диапазон за нея. Моля, въведете име на диапазон "Outputitem" в Кутия за име и натиснете Въведете ключ, вижте екранната снимка:

5. И след това щракнете Поставете > Фигури > правоъгълник, плъзнете мишката, за да нарисувате правоъгълник над списъчното поле, вижте екранната снимка:

6. След това щракнете с десния бутон върху правоъгълника и изберете Присвояване на макрос от контекстното меню. Вижте екранна снимка:

7. В Присвояване на макрос кликнете върху НОВ бутон, вижте екранната снимка:

8. В откриването Microsoft Visual Basic за приложения прозорец, заменете оригиналния код в прозореца на модула със следния VBA код:

Sub Rectangle1_Click()
'Updated by Extendoffice
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("Outputitem").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("Outputitem") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("Outputitem") = ""
    End If
End If
End Sub

Забележка: В горния код, Правоъгълник1 е името на формата, ListBox1 е името на списъчното поле, а Outputitem е името на диапазона на изходната клетка. Можете да ги промените според вашите нужди.

9. След това затворете прозореца с кода. Сега, щракването върху бутона с правоъгълник ще скрие или покаже списъчното поле. Когато списъчното поле се покаже, изберете елементите в списъчното поле и щракнете отново върху правоъгълния бутон, за да изведете избраните елементи в посочената клетка, вижте демонстрацията по-долу:


 Създайте падащ списък с квадратчета за отметка с невероятна функция

За да добавите квадратчетата за отметка в истинския падащ списък, можете да използвате мощен инструмент – Kutools за Excel, Със своята Падащ списък с квадратчета за отметка можете бързо и лесно да създавате падащи списъци с множество квадратчета за отметка.

След инсталиране Kutools за Excel, моля, направете следното:

1. Първо, моля, вмъкнете нормалния падащ списък в избраните клетки, вижте екранната снимка:

2, След това кликнете върху Kutools > Падащ списък > Падащ списък с квадратчета за отметка > Настройки. Вижте екранна снимка:

3. В Падащ списък с настройки на квадратчета за отметка диалогов прозорец, моля, конфигурирайте както следва.

  • в Нанесете раздел, укажете обхвата на прилагане, където ще създадете квадратчета за отметка за клетките на падащия списък. Можете да посочите определен диапазон, текущ работен лист, текуща работна книга или всички отворени работни книги въз основа на вашите нужди;
  • в вид раздел, изберете Промяна опция;
  • в Сепаратор поле, въведете разделител, за да разделите избраните елементи;
  • В Твътр. Посока раздел, изберете посоката на текста въз основа на вашите нужди;
  • Накрая кликнете върху OK бутон.

4. След като завършите настройките, щракнете Kutools > Падащ списък > Падащ списък с квадратчета за отметка > Активирайте падащия списък с квадратчета за отметка за да активирате тази функция. Вижте екранна снимка:

5. Отсега нататък, когато щракнете върху клетка с падащ списък, ще се появи списък с квадратчета за отметка, след което изберете елементите, като поставите отметка в квадратчетата, за да изведете елементите в клетката, както е показано в демонстрацията по-долу:

Кликнете, за да научите по-подробна информация за тази функция...


 Пример 4: Поставете отметка в квадратчето, за да промените цвета на реда

Опитвали ли сте някога да промените цвета на реда въз основа на отметнато квадратче? Което означава, че цветът на съответния ред ще бъде променен, ако поставите отметка в квадратче, както е показано на екранната снимка по-долу, този раздел ще говори за някои трикове за решаване на тази задача в Excel.

 Поставете отметка в квадратчето, за да промените цвета на клетката с помощта на условно форматиране

За да промените цвета на реда, като поставите или премахнете отметка в квадратчето, Условно форматиране функция в Excel може да ви направи услуга. Моля, направете следното:

1. Първо поставете квадратчетата за отметка в списъка с клетки, както ви е необходимо, вижте екранната снимка:

2. След това трябва да свържете тези квадратчета за отметка към клетките до всяко квадратче за отметка поотделно, вижте екранната снимка:

Съвети: За да свържете квадратчета за отметка към клетки, можете да използвате Контрол на формата функция, за да ги свържете към клетки една по една или да приложите VBA код за да ги свърже с клетки наведнъж.

3. След това изберете диапазона от данни, който искате да промените цвета на реда, и след това щракнете Начало > Условно форматиране > Ново правило, вижте екранна снимка:

4. В Ново правило за форматиране диалогов прозорец, направете следните операции:

  • Изберете Използвайте формула, за да определите кои клетки да форматирате опция в Изберете тип правило кутия;
  • Въведете тази формула =АКО($F2=ВЯРНО,ВЯРНО,НЕВЯРНО) в Форматиране на стойности, където тази формула е вярна кутия;
  • Щракнете върху формат бутон, за да посочите цвят, който харесвате за редовете.

Забележка: Във формулата, $F2 е първата свързана клетка от квадратчето за отметка..

5. След като изберете цвят, щракнете OK > OK за да затворите диалоговите прозорци и сега, когато поставите отметка в квадратче, съответният ред ще бъде маркиран автоматично, както е показано по-долу:


  Поставете отметка в квадратчето, за да промените цвета на реда с помощта на VBA код

Следният VBA код също може да ви помогне да промените цвета на реда въз основа на отметнато квадратче, моля, направете с кода по-долу:

1. В работния лист, който искате да маркирате редове чрез квадратчета за отметка, щракнете с десния бутон върху раздела на листа и изберете Преглед на кода от менюто с десен бутон. Вижте екранна снимка:

2. Копирайте и поставете кода по-долу в отвореното Microsoft Visual Basic за приложения прозорец:

VBA код: Маркирайте редове, като поставите отметка в квадратчето

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 = "Sheet2.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

Забележка: В горния код, в този скрипт xChk.OnAction = "Sheet2.InsertBgColor", трябва да промените името на листа-Sheet2 на вашите собствени (Sheet2 е истинското име на работния лист, можете да го получите от левия панел на прозореца на кода). Вижте екранна снимка:

3. След това поставете курсора в първата част на кода и натиснете F5 ключ за изпълнение на кода. В изскачащите Kutools за Excel диалогов прозорец, моля, изберете диапазона, в който искате да вмъкнете квадратчета за отметка, вижте екранната снимка:

4, След това кликнете върху OK бутон, квадратчетата за отметка се вмъкват в избраните клетки, както е показано на екранната снимка по-долу:

5. Отсега нататък, ако поставите отметка в квадратче, съответният ред ще бъде оцветен автоматично, както е показано на екранната снимка по-долу:


 Пример 5: Преброяване или сумиране на стойностите на клетките, ако квадратчето е отметнато

Ако имате набор от данни със списък от квадратчета за отметка, сега бихте искали да преброите броя на квадратчетата с отметка или да сумирате съответните стойности въз основа на квадратчетата с отметка, както е показано на екранната снимка по-долу. Как бихте могли да решите тази задача в Excel?

За да разрешите тази задача, важната стъпка е да свържете квадратчетата за отметка към относителните клетки до данните. Квадратчето с отметка ще покаже TRUE в свързаната клетка, в противен случай ще се покаже FALSE и след това можете да използвате функцията за броене или сумиране, за да получите резултата въз основа на стойност TRUE или FALSE.

1. Първо, трябва да свържете квадратчетата за отметка към клетки поотделно, ако квадратчето е отметнато, се показва TRUE, ако не е отметнато, се показва FALSE, вижте екранната снимка:

Съвети: За да свържете квадратчета за отметка към клетки, можете да използвате Контрол на формата функция, за да ги свържете към клетки една по една или да приложите VBA код за да ги свърже с клетки наведнъж.

2. След това приложете следните формули, за да преброите или сумирате стойностите въз основа на отметнатите квадратчета:

Преброяване на стойности чрез отметнати квадратчета:

=COUNTIF(D2:D10,TRUE)

Забележка: В тази формула, D2: D10 е обхватът на клетките за връзки, които сте задали за квадратчетата за отметка.

Сумирайте стойности по отметнати квадратчета:

=SUMPRODUCT(($D$2:$D$10=ВЯРНО)*$C$2:$C$10)

Забележка: В тази формула, D2: D10 е обхватът на клетките за връзки, които сте задали за квадратчетата за отметка, и C2:C10 е списъкът с клетки, които искате да сумирате.


 Пример 6: Ако квадратчето за отметка е отметнато, тогава се връща конкретна стойност

Ако имате квадратче за отметка, когато го поставите отметка, в клетка трябва да се появи конкретна стойност, а когато я премахнете, се показва празна клетка, както е показано в демонстрацията по-долу:

За да завършите тази работа, моля, направете следното:

1. Първо, трябва да свържете това квадратче за отметка с клетка. Щракнете с десния бутон върху квадратчето за отметка и изберете Контрол на формата, в изскочилото Форматиране на обект диалогов прозорец, под контрол щракнете, за да изберете клетка, която искате да свържете с квадратчето за отметка от Клетъчна връзка кутия, вижте екранната снимка:

2, След това кликнете върху OK бутон, за да затворите диалоговия прозорец. Сега въведете тази формула: =АКО(A5=ВЯРНО,"Extendoffice","") в клетка, където искате да изведете резултата, и след това натиснете Въведете ключ.

Забележка: В тази формула, A5 е клетката, свързана с квадратчето за отметка, „Extendoffice” е конкретният текст, можете да ги промените според вашите нужди.

3. Сега, когато поставите отметка в квадратчето, конкретният текст ще се покаже, когато премахнете отметката, ще се покаже празна клетка, вижте демонстрацията по-долу:


  • Супер Формула Бар (лесно редактиране на няколко реда текст и формула); Оформление за четене (лесно четене и редактиране на голям брой клетки); Поставяне във филтриран диапазон...
  • Обединяване на клетки/редове/колони и съхраняване на данни; Съдържание на разделени клетки; Комбинирайте дублиращи се редове и сума/средно... Предотвратяване на дублиращи се клетки; Сравнете диапазони...
  • Изберете Дублиран или Уникален редове; Изберете Празни редове (всички клетки са празни); Super Find и Fuzzy Find в много работни тетрадки; Произволен избор...
  • Точно копие Множество клетки без промяна на референтната формула; Автоматично създаване на препратки към множество листа; Вмъкване на куршуми, квадратчета за отметка и други...
  • Любими и бързо вмъкнати формули, диапазони, диаграми и снимки; Шифроване на клетки с парола; Създаване на пощенски списък и изпращайте имейли...
  • Извличане на текст, Добавяне на текст, Премахване по позиция, Премахване на пространството; Създаване и отпечатване на междинни суми за пейджинг; Конвертиране на съдържание и коментари между клетки...
  • Супер филтър (запазване и прилагане на филтърни схеми към други листове); Разширено сортиране по месец/седмица/ден, честота и други; Специален филтър с удебелен шрифт, курсив...
  • Комбинирайте работни тетрадки и работни листове; Обединяване на таблици въз основа на ключови колони; Разделете данните на няколко листа; Пакетно конвертиране на xls, xlsx и PDF...
  • Групиране на обобщена таблица по номер на седмицата, ден от седмицата и други... Показване на отключени, заключени клетки с различни цветове; Маркирайте клетки, които имат формула/име...
kte tab 201905
  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
officetab отдолу
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations