Hogyan lehet összekapcsolni a jelölőnégyzeteket az Excel több cellájával?

A jelölőnégyzetek összekapcsolása több relatív cellával segíthet abban, hogy gyorsan és egyszerűen elvégezzen néhány számítást, amikor csak a bejelölt vagy be nem jelölt cellák összegzésére, számolására vagy átlagolására van szükség. De, megpróbálta már összekapcsolni a jelölőnégyzeteket több cellával egyszerre egy munkalapon?

Kapcsolja be a jelölőnégyzeteket több cellába, amelyek képlete egyenként

Kapcsolja be a jelölőnégyzeteket több cellába egyszerre VBA kóddal

Kapcsolja be a jelölőnégyzeteket több cellába, amelyek képlete egyenként

Ha a jelölőnégyzetet egy adott cellához kívánja kapcsolni, valójában egyszerű képletet alkalmazhat a manuális összekapcsoláshoz.

1. Miután beillesztette a jelölőnégyzeteket a munkalapba, a jelölőnégyzet kiválasztásához nyomja meg a gombot Ctrl gombot, majd kattintson az első jelölőnégyzetre, amelyet más cellához kíván kapcsolni.

2. Ezután írja be a képletsávba az egyenlőségjelet =, majd kattintson egy cellára, amelyhez össze szeretné kapcsolni a jelölőnégyzetet, például B2, lásd a képernyőképet:

3. Ezután nyomja meg a gombot belép billentyű a billentyűzeten, most, amikor bejelöli ezt a jelölőnégyzetet, megjelenik a csatolt cella TRUE, ha törli a jelölést, akkor megjelenik HAMIS, lásd a képernyőképet:

4. Ismételje meg a fenti lépéseket más jelölőnégyzetek egyesítéséhez.

Kapcsolja be a jelölőnégyzeteket több cellába egyszerre VBA kóddal

Ha több száz és ezer jelölőnégyzetet kell összekapcsolni más cellákkal, akkor az első módszer nem fog hatékonyan működni. Ha egyszerre több cellához kapcsolja őket, alkalmazhatja a következő VBA kódot. Kérjük, tegye a következőket:

1. Lépjen a munkalapra a jelölőnégyzetek listájával.

2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: a jelölőnégyzeteket egyszerre több cellához kapcsolja

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, az aktív munkalap összes jelölőnégyzetét összekapcsolják a cellákkal, amikor bejelöli a jelölőnégyzetet, a relatív cellája megjelenik TRUE, ha töröl egy jelölőnégyzetet, akkor a csatolt cellának meg kell jelennie HAMIS, lásd a képernyőképet:

Megjegyzések: A fenti kódban i = 2, a szám 2 a jelölőnégyzet kezdő sora és a betű B az oszlop helye, ahová össze kell kapcsolni a jelölőnégyzeteket. Igény szerint megváltoztathatja őket.

Kapcsolódó cikkek:

Hogyan jelölje ki az összes jelölőnégyzetet egyetlen jelölőnégyzet használatával az Excel programban?

Hogyan lehet gyorsan beilleszteni több jelölőnégyzetet az Excelbe?

Hogyan lehet gyorsan törölni több jelölőnégyzetet az Excelben?