Excel - ovládací prvky na skrytých řádcích

[lurban]

Dobrý den,
prosím o radu s následujícími problémy:

1) Mám v sešitu na 1. listu vložena zatrhávací políčka. Řádky, na kterých jsou umístěna, jsou skrývány makrem (ovládaným rovněž zatrhávacím políčkem).
Původně jsem měl problém, že se políčka při skrytí řádku neskrývala a zůstala na svých pozicích. To jsem vyřešil pomocí formátu ovládacího prvku, kde jsem nastavil hodnotu "Přesouvat a měnit velikost s buňkami". Bohužel, při zavření a znovuotevření sešitu (ve výchozím stavu jsou řádky na 1. listu skryté) se všechna políčka opět objeví na pozicích, na nichž by byla při neskrytých řádcích.
Nastavením to, obávám se, odstranit nelze. Mohu případně poprosit o návrh makra, které by prvky při otevření sešitu skrylo?

2) Potřeboval bych napsat makro, které při vyplnění buňky E57 vymaže obsah buňky E58 a naopak při vyplnění buňky E58 vymaže obsah buňky E57

Děkuji za radu.

[Reklama]

[elninoslov]

Priložte ten súbor s makrami a s anonymizovanými a redukovanými dátami.

EDIT: Prikladám príklad.
Máte pravdu, Excel sa chová divne. Tu je príloha, ako by sa to dalo ošetriť.
Na Váš súbor pozriem neskôr.

[lurban]

Dobrý den,

přikládám soubor.

Pokud odtrhnete políčka ve sloupci A, řádky se skryjí včetně políček ve sloupci D. To je v pořádku. Ale po uložení a znovuotevření souboru se políčka ve sloupci D zobrazí na původních pozicích, přestože jsou řádky skryté.

Děkuji.

[X]

Když zaškrtnu přepínače v sloupci A (ani když zaškrtnutí zruším), tak pokud dobře vidím, nic se mi neskrývá, mám Office 2016.

Moje makra fungují a neruší se při uložení, skrývání mám vyřešeno i v několika podúrovních a spouští se pouhým klikem, navíc klikatelná místa se signalizují kurzorem myši jako ručička, lze mezi meze přidávat a ubírat a navíc lze pro více míst použít pohodlně pouhé jedno makro ... s parametry, tedy něco co ani MS nezamýšlel a co oficiálně v Excelu nejde. Jestli máš zájem, napiš mi do SZ e-mail a já ti pošlu příklad (samozřejmě není se žádnými breberkami, za což ručím), můžeš otestovat a použít pro svoje účely.

[elninoslov]

No malo by to "držať". Ale musel som zmeniť názvy checkboxov a zrušiť skupiny. Tie skupiny mi to stále rozbíjali. Ak tam nie sú, tak to prob. nerobí, ak sa to takto upraví. Je tam aj úprava pozície pri otvorení súboru. No skúste.

[lurban]

Když zaškrtnu přepínače v sloupci A (ani když zaškrtnutí zruším), tak pokud dobře vidím, nic se mi neskrývá, mám Office 2016.

Moje makra fungují a neruší se při uložení, skrývání mám vyřešeno i v několika podúrovních a spouští se pouhým klikem, navíc klikatelná místa se signalizují kurzorem myši jako ručička, lze mezi meze přidávat a ubírat a navíc lze pro více míst použít pohodlně pouhé jedno makro ... s parametry, tedy něco co ani MS nezamýšlel a co oficiálně v Excelu nejde. Jestli máš zájem, napiš mi do SZ e-mail a já ti pošlu příklad (samozřejmě není se žádnými breberkami, za což ručím), můžeš otestovat a použít pro svoje účely.

Pardon, ve vloženém souboru nefungovalo makro, přikládám znovu

Dodatečně přidáno po 51 minutách 13 vteřinách:

No malo by to "držať". Ale musel som zmeniť názvy checkboxov a zrušiť skupiny. Tie skupiny mi to stále rozbíjali. Ak tam nie sú, tak to prob. nerobí, ak sa to takto upraví. Je tam aj úprava pozície pri otvorení súboru. No skúste.

Dobrý den,

děkuji za zaslání.

1) Makro k checkboxům ve Vašem sešitu funguje správně. Bohužel, v mém sešitu se mi nedaří ho rozběhnout. Zastaví se na řádku
.CheckBoxes(Split(cbMaster, ",")).Visible = True viz obrázek

Psal jste, že jste musel přejmenovat checkboxy, asi to nějak souvisí?

Prosím o radu, jak upravit.

2) Makro na vyplnění jedné ze dvou buněk funguje výborně.

Moc děkuji

[X]

Zkusil jsem znovu stáhnout, ale skrývání u vaší verze nefunguje, na rozdíl od verze od elninoslov.

Pokud si chcete pohrát s mojí verzí skrývání (seznam her GOGu), takhle to vypadá:

SEZNAM HER 2022.01.01 05-48.xlsm

(148.35 KiB) Staženo 20 x

[elninoslov]

Prerobiť ten Vás súbor ... no to bude ...
1. Otvorte si tento môj súbor ElninoSlov.xlsm - povoliť makrá. V makrách si nájdite makro ZmenaCB a v ňom zmeňte názov Vášho súboru Const VasSubor = "?"
2. Otvorte si Váš súbor, v ktorom to chcete zmeniť - nepovoľujte makrá. Zmažte z neho všetky makrá v moduloch Module1, ThisWorkbook, List1, List2 a nahraďte ich makrami z ElninoSlov.xlsm (okrem makra ZmenaCB). V makrách SkrytOdkryt a Oprava vo Vašom súbore si nahraďte With wsVstupni za With List1
3. V súbore ElninoSlov.xlsm spustite makro ZmenaCB. Váš súbor uložte (pre istotu pod iným názvom), zatvorte, otvorte - nepovoľujte makrá
4. Vo Vašom súbore zmeňte priradené makro pre CheckBoxy cb1.1.1,cb1.1.3,cb1.1.4,cb1.2.1 na SkrytOdkryt z Vášho súboru (lebo teraz sú tam linkované z môjho súboru). Uložiť, zatvoriť.
5. Môj súbor ElninoSlov.xlsm zatvoriť.

Ak otvoríte teraz ten Váš súbor - povoliť makrá, mal by fungovať.

[lurban]

Pánové, oběma velice děkuji za pomoc.

Na shledanou