Jak propojit zaškrtávací políčka s více buňkami v aplikaci Excel?
Propojení zaškrtávacích políček s více relativními buňkami vám může pomoci rychle a snadno provést některé výpočty, když potřebujete sčítat, počítat nebo průměrovat pouze zaškrtnuté nebo nezaškrtnuté buňky. Pokusili jste se ale někdy v listu propojit zaškrtávací políčka s více buňkami najednou?
Propojte zaškrtávací políčka s více buňkami pomocí vzorce jeden po druhém
Propojte zaškrtávací políčka s více buňkami najednou pomocí kódu VBA
Propojte zaškrtávací políčka s více buňkami pomocí vzorce jeden po druhém
Chcete-li propojit zaškrtávací políčko s konkrétní buňkou, můžete ve skutečnosti použít jednoduchý vzorec pro jejich ruční propojení.
1. Po vložení zaškrtávacích políček do listu zaškrtněte toto políčko stisknutím Ctrl klíč a poté klikněte na první zaškrtávací políčko, které chcete propojit s jinou buňkou.
2. Potom do řádku vzorců zadejte znaménko rovná se =a potom klikněte na jednu buňku, se kterou chcete propojit zaškrtávací políčko, například B2, viz screenshot:
3. A pak stiskněte vstoupit klávesa na klávesnici, nyní, když zaškrtnete toto políčko, zobrazí se propojená buňka TRUE, pokud zrušíte zaškrtnutí, zobrazí se NEPRAVDIVÉ, viz screenshot:
4. Opakováním výše uvedených kroků postupně propojujete další zaškrtávací políčka.
Propojte zaškrtávací políčka s více buňkami najednou pomocí kódu VBA
Pokud existují stovky a tisíce zaškrtávacích políček, které je třeba propojit s jinými buňkami, první metoda nebude fungovat efektivně, k jejich propojení s více buňkami najednou můžete použít následující kód VBA. Udělejte prosím toto:
1. Přejděte na list se seznamem zaškrtávacích políček.
2. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
3, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: propojte zaškrtávací políčka s více buňkami najednou
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. A pak stiskněte F5 klíč ke spuštění tohoto kódu, všechna zaškrtávací políčka v aktivním listu byla propojena s buňkami, když zaškrtnete toto políčko, zobrazí se jeho relativní buňka TRUE, pokud zrušíte zaškrtnutí políčka, měla by se zobrazit propojená buňka NEPRAVDIVÉ, viz screenshot:
Poznámka: Ve výše uvedeném kódu, i = 2, číslo 2 je počáteční řádek zaškrtávacího políčka a písmeno B je umístění sloupce, kam potřebujete propojit zaškrtávací políčka. Můžete je podle potřeby změnit.
Související články:
Jak vybrat všechna zaškrtávací políčka pomocí jediného zaškrtávacího políčka v aplikaci Excel?
Jak rychle vložit více zaškrtávacích políček v aplikaci Excel?
Jak rychle odstranit více zaškrtávacích políček v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
