Makro si nahraj, edituj a uprav. Potrebuješ doňho akurát doplniť hodnotu premenných - rozsah stĺpcov od-do, podľa hodnôt v bunkách A1 a A2. Nepoužívaj skrývanie, ale zoskupovanie stĺpcov. Písať to makro nebudem, je to trivialita.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA - skrytí sloupců dle zadaných podmínek
MS Excel
Téma: VBA - skrytí sloupců dle zadaných podmínek 
Zaslal/a hard 1.11.2016 13:11
Dobrý den, ve své tabulce bych rád měl výpočet rozmezí sloupců, které potřebuji skrýt
např.:
A1 20
A2 31
V tomto případě tedy potřebuji tedy skrýt a odkrýt sloupce v rozmezí 20-31 (například zaškrtávacím tlačítkem, pravda = skrýt, odškrtnuto = zobrazit)
Děkuji velice za makro.
Já už ho napsal, tak posílám...
P.
Např.:
Sub Skryt_rozmezi_sloupcu()
Cells.Columns.Hidden = False
Range(Cells(, Range("A1").Value), Cells(, Range("A2").Value)).Columns.Hidden = True
End Subcitovat
P.
Např.:
Sub Skryt_rozmezi_sloupcu()
Cells.Columns.Hidden = False
Range(Cells(, Range("A1").Value), Cells(, Range("A2").Value)).Columns.Hidden = True
End Subcitovat
Mno, skryté stĺpce skutočne nenávidím, ľahko sa prehliadnu. Lepšie je pmn používať zoskupovanie, ako som zmienil vo svojom úvodnom poste. Ale na to časom prídete sami.citovat
Vřelé díky oběma. Mě nevyhovuje v tom jednom konkrétním sešitu zase seskupování sloupců, radši takto, díky.citovat
@AL - Já to používám následovně:
Když chci něco skrýt, tak abych o tom věděl "jenom já", tak skryji sloupce. Mám prakticky jistotu, že si toho management vůbec nevšimne, případně to budou ignorovat. Takže skrývám pomocné sloupce, případně hodnoty, které nemají pro vedení žádný smysl.
Když chci, aby měl management možnost si některé hodnoty zobrazit, ale nejsou až tolik důležité, případně zabírají moc místa, tak využívám seskupování sloupců.
P.citovat
Když chci něco skrýt, tak abych o tom věděl "jenom já", tak skryji sloupce. Mám prakticky jistotu, že si toho management vůbec nevšimne, případně to budou ignorovat. Takže skrývám pomocné sloupce, případně hodnoty, které nemají pro vedení žádný smysl.
Když chci, aby měl management možnost si některé hodnoty zobrazit, ale nejsou až tolik důležité, případně zabírají moc místa, tak využívám seskupování sloupců.
P.citovat
Pavlus - dáva to zmysel, do momentu, kedy sa to neotočí proti Tebe: dostaneš od niekoho iného sheet so skrytými stĺpcami, nevšimneš si to a vzniká potenciálny problém.
Preto u svojich sheetov v podstate vždy dávam prednosť zoskupovaniu pred skrývaním stĺpcov. Ver tomu, že moje dashboardy sú publikované v rámci našej firmy po celom svete., ani jeden užívateľ nenamietol nič proti tomu, že v sheetoch vidí tlačítko expand/collapse. Pokiaľ si niekto z top managerov chce prezrieť, čo sa nachádza v takto "skrytých" stĺpcoch, nevidím dôvod, prečo im v tom brániť.citovat
Preto u svojich sheetov v podstate vždy dávam prednosť zoskupovaniu pred skrývaním stĺpcov. Ver tomu, že moje dashboardy sú publikované v rámci našej firmy po celom svete., ani jeden užívateľ nenamietol nič proti tomu, že v sheetoch vidí tlačítko expand/collapse. Pokiaľ si niekto z top managerov chce prezrieť, čo sa nachádza v takto "skrytých" stĺpcoch, nevidím dôvod, prečo im v tom brániť.citovat
@AL
v podstatě se dá souhlasit, i když já zase nemám rád seskupování. je tam jedno významné proti a to je zámek. pokud ty dashboardy neukládáš v hodnotách a máš tam vzorce, tak nechtěná změna může nadělat neplechu (pokud si to odemkne, není to nechtěná změna). dá se vyřešit kódem, ale tam zase nevíš, zda to povolí nebo ne. i toto můžeš zabezpečit, že ano, ale to už to kvůli blbině komplikujeme.
skryté sloupce jsou základ a každý manažer o nich ví (prostě neberu, že ne)
tím tě nepřesvědčuji, abys to změnil, protože je to ptákovina ;))
mimochodem, mně se taky neozývají - až pak oklikou zjistíš, že nemají excel, ale libreoffice a něco jim nefunguje ;))citovat
v podstatě se dá souhlasit, i když já zase nemám rád seskupování. je tam jedno významné proti a to je zámek. pokud ty dashboardy neukládáš v hodnotách a máš tam vzorce, tak nechtěná změna může nadělat neplechu (pokud si to odemkne, není to nechtěná změna). dá se vyřešit kódem, ale tam zase nevíš, zda to povolí nebo ne. i toto můžeš zabezpečit, že ano, ale to už to kvůli blbině komplikujeme.
skryté sloupce jsou základ a každý manažer o nich ví (prostě neberu, že ne)
tím tě nepřesvědčuji, abys to změnil, protože je to ptákovina ;))
mimochodem, mně se taky neozývají - až pak oklikou zjistíš, že nemají excel, ale libreoffice a něco jim nefunguje ;))citovat
Karle, skryté sloupce jsou základ a každý manažer o nich ví (prostě neberu, že ne).
No práve, takže si ich dokáže zobraziť, keď bude chcieť, čiže snaha o "utajenie" vyjde i tak vnivoč. Na druhej strane, mne sa stalo v minulosti niekoľkokrát, že som skryté stĺpce neodhalil a potom som sa s tým následne trápil. Mám rád čisté riešenia - pokiaľ sa má jednať o medzivýpočty a pod., tak kľudne zoskupiť - na sheete ich vidieť nemusím, ale hneď pri zhliadnutí sheetu viem, že nejaké pomocné stĺpce (napríklad) sú "skryté". Inak, o manageroch máš asi pomerne vysokú mienku, za svoju kariéru som zažil spústu "managerov", znalosti excelu ktorých stáli za starú bačkoru. V súčasnej práci si ale na ľudí nad sebou sťažovať fakt nemôžem, pokiaľ nevedia (nikto nevie všetko), tak zo mňa aspoň nerobia blbca. Mať nad sebou dobrých šéfov chce ale hromadu šťastia :) Spomínam si na šéfa z minulej práce, ktorý nebol schopný pomaly si vytvoriť ani blbú kontingenčku, žiadne výpočtové polia, obyčajnú kontingenčku a po mne sa chcel voziť za to, že som mu v súbore, ktorý si nemožne nadesignoval, neukotvil na nejakom sheete priečky. Keď som namietal, že ten jeden click myšou mu trvá rovnakú dobu ako mne, tak sa rozčuľoval, že to tam malo byť a on je manager. K...t! Než niečo vypotil, trvalo to večnosť, takže v práci "pracoval" od nevidím do nevidím a nechápal, že ja si po tom, čo si svoje urobím, dovolím odísť domov. Našťastie, táto moja životná etapa je už minulosťou :). Pokiaľ niekto trávi čas činnosťou, ktorú iný zvládne za zlomok času, tak je to dôkaz neschopnosti prvo menovaného a mal by za to byť trestaný. Bohužiaľ, na daných ľudí, naprosto neschopných pracovať efektívne, sa často nazerá ako na nesmierne pracovitých. To je psycho, já bych blil, velebnosti :)citovat
No práve, takže si ich dokáže zobraziť, keď bude chcieť, čiže snaha o "utajenie" vyjde i tak vnivoč. Na druhej strane, mne sa stalo v minulosti niekoľkokrát, že som skryté stĺpce neodhalil a potom som sa s tým následne trápil. Mám rád čisté riešenia - pokiaľ sa má jednať o medzivýpočty a pod., tak kľudne zoskupiť - na sheete ich vidieť nemusím, ale hneď pri zhliadnutí sheetu viem, že nejaké pomocné stĺpce (napríklad) sú "skryté". Inak, o manageroch máš asi pomerne vysokú mienku, za svoju kariéru som zažil spústu "managerov", znalosti excelu ktorých stáli za starú bačkoru. V súčasnej práci si ale na ľudí nad sebou sťažovať fakt nemôžem, pokiaľ nevedia (nikto nevie všetko), tak zo mňa aspoň nerobia blbca. Mať nad sebou dobrých šéfov chce ale hromadu šťastia :) Spomínam si na šéfa z minulej práce, ktorý nebol schopný pomaly si vytvoriť ani blbú kontingenčku, žiadne výpočtové polia, obyčajnú kontingenčku a po mne sa chcel voziť za to, že som mu v súbore, ktorý si nemožne nadesignoval, neukotvil na nejakom sheete priečky. Keď som namietal, že ten jeden click myšou mu trvá rovnakú dobu ako mne, tak sa rozčuľoval, že to tam malo byť a on je manager. K...t! Než niečo vypotil, trvalo to večnosť, takže v práci "pracoval" od nevidím do nevidím a nechápal, že ja si po tom, čo si svoje urobím, dovolím odísť domov. Našťastie, táto moja životná etapa je už minulosťou :). Pokiaľ niekto trávi čas činnosťou, ktorú iný zvládne za zlomok času, tak je to dôkaz neschopnosti prvo menovaného a mal by za to byť trestaný. Bohužiaľ, na daných ľudí, naprosto neschopných pracovať efektívne, sa často nazerá ako na nesmierne pracovitých. To je psycho, já bych blil, velebnosti :)citovat
@AL
pokud chci něco utajit, tak to tam nedávám. To je jediné řešení ;))
pokud posílám data (ne funkční sešit), tak vždy v hodnotách - pokud nejsem vysloveně požádán, že tam mají být vzorce.
Šéfové jsou proměnná veličina (někdy naštěstí, někdy bohužel). Zatím jsem měl vždy štěstí, že se mne žádný nesnažil přesvědčit, že je v excelu lepší než já a věděl, že je to naopak.
ale to jsme OTcitovat
pokud chci něco utajit, tak to tam nedávám. To je jediné řešení ;))
pokud posílám data (ne funkční sešit), tak vždy v hodnotách - pokud nejsem vysloveně požádán, že tam mají být vzorce.
Šéfové jsou proměnná veličina (někdy naštěstí, někdy bohužel). Zatím jsem měl vždy štěstí, že se mne žádný nesnažil přesvědčit, že je v excelu lepší než já a věděl, že je to naopak.
ale to jsme OTcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články