MS Excel

Ahoj,jak udělat, aby se mi při označení např.zaškrtávacího políčka, skryly předem určené řádky? Jestli je to vůbec možné?

Zaslat odpověď >

admin(1.4.2009 17:34)#000429

Příklad pro skrytí/zobrazení řádků 10 až 20

Private Sub CheckBox1_Click()

'Skrýt řádky
If CheckBox1.Value = True Then
CheckBox1.Caption = "Zobrazit"
Rows("10:20").EntireRow.Hidden = True
End
End If

'Zobrazit řádky
If CheckBox1.Value = False Then
CheckBox1.Caption = "Skrýt"
Rows("10:20").EntireRow.Hidden = False
End
End If

End Sub
citovat

vladvyr(1.4.2009 18:02)#000430

No moc jsem to nepochopilcitovat

admin(1.4.2009 18:37)#000431

Vytvoř si na listu zaškrtávací tlačítko. Otevři si editora maker a zkopíruj kód do objektu listu. Vrať se zpět do sešitu a zaškrtni tlačítko.citovat

vladvyr(2.4.2009 9:28)#000435

Díky za odpověď, ale nejsem odborník a v MAKRECH celkem tápu. Používám zaškrtávací políčko "formuláře", a tam je to nějak jinak. Daří se mi nahrát makro na skrytí řádků při zaškrtnutí, ale už se mi zpět řádky nezobrazí při odškrtnutí. A co se týká zaškrtávacího políčka "ActiveX", tam je to pro mě už úplná katastrofa, vložím ho, nejde mi ho vůbec vůbec zašktnout, až po určité době se samo nějak z aktivuje, no a pak nejde posunout, ani odstanit.

citovat

kolokol(2.4.2009 12:08)#000436

A co zkusit 2 Option tlačítka ? Skryto/Odkryto, když to zkoušíš ve formulářicitovat

kolokol(2.4.2009 21:28)#000438

Tak sem to zkusil a funguje to v pohodě. Vytáhni si z nabídky Vývojář z Ovládacích prvků formuláře 2 přepínače, dej je někam stranou na list. A z místní nabídky jim přiřaď makra. Ten kód od Petra rozdělíš na 2 makra a vložíš je do standartního modulu sešitu. A jak sem říkal, přiřadíš přepínačům po makru a vybereš jim z místní nabídky i vhodný popis. A můžeš klikat. Rows si v kódu dáš podle svého.citovat

kolokol(2.4.2009 21:32)#000439

Z kodu ti samo zústane jen ten řádek Rows(........citovat

vladvyr(3.4.2009 8:34)#000440

Jó díky, takhle to funguje v pohodě! Ale pro mě to má jednu chybičku, protože potřebuju řešit vždy pomocí těchto přepínačů skrytí určitých řádků a pomocí dalších přepínačů skrytí jiných řádků. No a jak tam vložím více přepínačů, fungují všechny mezi sebou a né po dvojici, jak bych potřeboval!citovat

vladvyr(4.4.2009 9:05)#000443

Děkuji všem za pomoc, už mi to jede! Vytvořil jsem to nakonec pomocí zaškrtávacího políčka activeX. Použil jsem a upravil si kód od Petra! Jen mi to nešlo, protože jsem nevěděl na co slouží Režim návrhu, už to vím! Tak díky!!

citovat

Niffki(18.8.2010 10:02)#002217

Mám tento kod
Sub Makro1()

Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False

If Range("B100") = "1" Then
Cells.EntireColumn.Hidden = True
Columns("D:F").EntireColumn.Hidden = False
Cells.EntireRow.Hidden = True
Rows("1:2").EntireRow.Hidden = False
Else
MsgBox "Nic se nestalo"
End If

End Sub

Ale nefunguje mi. Prosím kde mám chybu. Skryjí se mi všechny sloupce i řádky ale už se mi nezobrazí ty, které si navolím.citovat

Téma: skrytí řádků

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje