MS Excel

Zdravím,
potřebuji vytvořit makro pro skrytí zvolených sloupců (např v oblasti C:X) u kterých je v řádku č. 1 aktivovaná hodnota (např 1). Při opakované aktivaci butonu zobrazit celý rozsah sloupců C:X.
Omlouvám se a velice děkuji za pomoc
Michal

Zaslat odpověď >

eLCHa(6.1.2016 9:08)#029040

Bude tady toho spousta - hledejte. A když nenajdete, koukněte sem, hned první tarantula by vám mohla pomoci ;)).
Jen místo delete dejte hidden=true

http://wall.cz/index.php?m=topic&id=28487&page=1#posts citovat

elninoslov(7.1.2016 1:18)#029069

Možno v téme také niečo je, pozrel som lem ten jeden príspevok, a upravil by som ho asi takto (píšem z tabletu, za príp. technickú sa ospravedlňujem...):
Dim Rng as Range, s as Integer
For s = 3 To 24
If Cells(1, s).Value = 1 Then
If Rng Is Nothing Then Set Rng = Cells(s) Else Set Rng = Union(Rng, Cells(s))
End If
Next s
If Not Rng Is Nothing Then Rng.EntireColumn.Hidden = True
Ak chcete opätovným stlačením tlačítka zobraziť stlpce, tak si niekam pri skrytí uchovajte hodnotu, že bolo niečo skryté, aby tlačítko vedelo, ktprú časť kódu výkonať. Tlačítka mávajú napr vlastnosť Tag, kde sa dá uložiť hodnota,

Range("C:X").EntireColumn.Hidden = False
Zobrazí všetky riadky naspäť.citovat

emtyhead(7.1.2016 8:55)#029072

Moc děkuji,
makro funguje. Jenom se mi nedaří vložit funkci zobrazení všech sloupců c:x při opakovaném stisku tlačítka.

Případně vytvořím v dokumentu o jeden ovladač víc.citovat

elninoslov(7.1.2016 9:16)#029074

Napr. takto.

PS: Beriem späť vetu o vlastnosti Tag, tlačítka ju nemajú. To ale nieje problém.

Příloha: rar

29074_skryt-odkryt.rar (16kB, staženo 21x)

citovat

Téma: Skrytí sloupců dle podmínky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje