Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս Excel- ում կապել նշման տուփերը բազմաթիվ բջիջների հետ:

Նշման տուփերը մի քանի հարաբերական բջիջների հետ կապելը կարող է օգնել արագ և հեշտությամբ կատարել որոշ հաշվարկներ, երբ անհրաժեշտ է գումարել, հաշվել կամ միջինացնել միայն ստուգված կամ չստուգված բջիջները: Բայց, երբևէ փորձե՞լ եք աշխատաթերթում միացնել արկղերը միանգամից մի քանի բջիջների:

Մեկը-մեկ բանաձևով միացրեք վանդակները դեպի բազմաթիվ բջիջներ

Միացրեք վանդակները միանգամից մի քանի բջիջների վրա ՝ VBA կոդով


նետ կապույտ աջ պղպջակ Մեկը-մեկ բանաձևով միացրեք վանդակները դեպի բազմաթիվ բջիջներ

Նշման տուփը որոշակի բջիջի հետ կապելու համար, ըստ էության, կարող եք կիրառել պարզ բանաձև ՝ դրանք ձեռքով կապելու համար:

1, Նշատուփերը ձեր աշխատանքային էջում տեղադրելուց հետո վանդակը ընտրելու համար սեղմեք Ctrl ստեղնը և այնուհետև կտտացրեք առաջին վանդակին, որը ցանկանում եք կապել այլ բջիջի հետ:

2. Դրանից հետո բանաձևի շարքում մուտքագրեք հավասար նշանը =, ապա կտտացրեք մեկ բջիջի, որի վրա ցանկանում եք կապել վանդակը, օրինակ ՝ B2, տե՛ս սքրինշոթը.

doc-link-multiple-checkboxes-1

3, Եվ հետո սեղմեք Մտնել ստեղնաշարի ստեղնը, հիմա, երբ ստուգեք այս վանդակը, կցուցադրվի բջիջը TRUE, եթե ապանշեք այն, այն կցուցադրվի ԿԵՂԾ, տես նկարի նկարը.

doc-link-multiple-checkboxes-2

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, եթե վանդակը մաքրեք, կապակցված բջիջը պետք է ցույց տա ԿԵՂԾ, տես նկարի նկարը.

doc-link-multiple-checkboxes-3

ՆշումՎերոհիշյալ ծածկագրում i = 2, համարը 2 ձեր վանդակի առաջին տողն է և տառը B սյունակի տեղն է, որտեղ անհրաժեշտ է կապել վանդակները: Կարող եք դրանք փոխել ըստ ձեր կարիքի:


Առնչվող հոդվածներ քանակը:

Ինչպե՞ս ընտրել բոլոր վանդակները, օգտագործելով Excel- ում մեկ վանդակը:

Ինչպե՞ս արագ տեղադրել Excel- ում բազմաթիվ վանդակներ:

Ինչպե՞ս արագ ջնջել բազմաթիվ վանդակները Excel- ում:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (17)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Will this work when I try to sort Alphabetically? I've found that when I sort from A-Z, the check boxes do not follow the cells they were originally next to. Will your method help? Thank you!
This comment was minimized by the moderator on the site
My problem is: I am creating a to do list with daily habits. I want to be able to make statistics from it using the true and false from checking the box linked to a cell but do not want to individually do it, but when i use the code nothing happens?
This comment was minimized by the moderator on the site
Hello, Gregor,
The VBA code works well in my workbook.
You can upload your file here, so that we can check where the problem is.
Thank you!
This comment was minimized by the moderator on the site
Здравствуйте.
Подскажите. Возможно ли суммирование чисел в ячейках по установке флажка?

https://drive.google.com/file/d/1qmEnngPDdgWTISJETJ44IkxG-MABfqhh/view?usp=sharing[/img][/b][/u][/b

В ячейке F3 скрыто число 2 а в ячейке G3 скрыто число 0,3, можно ли сделать так чтоб при установки галочки в ячейке Q3 вычислялась сумма.
Сумма вычислений только на строку в диапазоне F3-P3
This comment was minimized by the moderator on the site
great thread and it works for me.
BUT, I need to save the TRUE/FALSE data to another sheet. What is the VBA to save it to another sheet other than the active one?
This comment was minimized by the moderator on the site
How about if you have some empty rows in ColumnA (as per your example) in between checkboxes? Using the above code it gets the linked cells wrong if there are empty rows because it does not skip them. Interested to see the solution
This comment was minimized by the moderator on the site
Did u find any solution for this? Same problem
This comment was minimized by the moderator on the site
Sub LinkCheckBoxes()

Dim chk As CheckBox

Dim lCol As Long

lCol = 1 'number of columns to the right for link



For Each chk In ActiveSheet.CheckBoxes

With chk

.LinkedCell = _

.TopLeftCell.Offset(0, lCol).Address

End With

Next chk



End Sub
This comment was minimized by the moderator on the site
Hello! Nice post about the VBA... but what if there are 3 columns that has checkboxes that needs to be linked in three other columns as well? Let's say columns B, C, and D has checkboxes and should be linked to columns H, I, and J respectively.
This comment was minimized by the moderator on the site
Hi, Having same problem - Have you found out how to get around this? Thanks, Paul
This comment was minimized by the moderator on the site
Hey,

Try this:

Sub LinkCheckBoxes()
Dim chk As CheckBox
Dim lCol As Long
lCol = 2 'number of columns to the right for link

For Each chk In ActiveSheet.CheckBoxes
With chk
.LinkedCell = _
.TopLeftCell.Offset(0, lCol).Address
End With
Next chk

End Sub



If you have for example, checkboxes in D,E,F change "Icol" to 1, so it links to G,H and I, respectively.
This comment was minimized by the moderator on the site
Hi, I have the same issue but did not work for me, can you help please.Thanks
This comment was minimized by the moderator on the site
thank you very much
This comment was minimized by the moderator on the site
Can you help me out with this same problem?
This comment was minimized by the moderator on the site
Can I do this and program the boxes to say something other than true and false?
This comment was minimized by the moderator on the site
Hi, In your VBA code: link checkboxes to multiple cells at once, the code is set up to link the cell below it. How is the code if I want to link the cell to the left of the first one? Thanks!
This comment was minimized by the moderator on the site
i have more than 40000 cell which have checkbox. when i use this code, it takes more than 5 second to process, i define different macros for different cells but i have still the problem, what can i do?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations