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