EXCEL zobrazit/skrýt sloupce podle vzorců v nich Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

peen
nováček
Příspěvky: 8
Registrován: srpen 13
Pohlaví: Muž
Stav:
Offline

EXCEL zobrazit/skrýt sloupce podle vzorců v nich

Příspěvekod peen » 15 srp 2013 08:42

Dobrý den, mám data v poli d5:cs61, v každém sloupci mám na řádku 62 výsledek vzorce, který vrátí buď "skryj" nebo "zobraz".
Mojí snahou je vždy po přepočtu vzorců reagovat (zřejmě) událostní procedurou, která sloupce "skryj" skryje a sloupce "zobraz" zobrazí.
Nevíte někdo jak na to?

Díky za každý tip

Reklama
Azuzula
Level 3
Level 3
Příspěvky: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

Re: zobrazit/skrýt sloupce podle vzorců v nich

Příspěvekod Azuzula » 15 srp 2013 10:10

Zdravím, třeba takhle:

Kód: Vybrat vše

private sub worksheet_calculate()
application.screenupdatin = false
for i = 5 to 97 'rozsah sloupců s daty
  if cells(62,i) = "skryj" then
    cells(62,i).entirecolumn.hidden = true
  elseif cells(62,i) = "zobraz" then
    cells(62,i).entirecolumn.hidden = false
  end if
next
application.screenupdating = true
end sub

kód přijde vložit do listu kde si přejete skrývat/zobrazovat sloupce.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.

peen
nováček
Příspěvky: 8
Registrován: srpen 13
Pohlaví: Muž
Stav:
Offline

Re: EXCEL zobrazit/skrýt sloupce podle vzorců v nich  Vyřešeno

Příspěvekod peen » 15 srp 2013 14:20

Moc děkuji uživatelce Azuzule, funguje to!
Tedy pro ostatní - jen jsem upravil syntaxi v řádku 2 na:
application.screenupdating = false

Děkuji za radu.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Jak vrátit původní rozložení, sloupce v Tento počítač?
    od Lister99 » 29 čer 2024 19:06 » v Windows 11, 10, 8...
    2
    2221
    od Lister99 Zobrazit poslední příspěvek
    29 čer 2024 20:51
  • Jak na Google map zobrazit lyžařské vleky?
    od atari » 07 led 2025 20:32 » v Vše ostatní (sw)
    1
    1702
    od petr22 Zobrazit poslední příspěvek
    07 led 2025 21:29
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    4820
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Výběr PC podle her Příloha(y)
    od buripe » 13 pro 2024 16:16 » v Rady s výběrem hw a sestavením PC
    6
    1887
    od buripe Zobrazit poslední příspěvek
    15 pro 2024 18:21
  • Která PC sestava je podle vás nejlepší? Příloha(y)
    od Rhadley » 04 lis 2024 16:34 » v Rady s výběrem hw a sestavením PC
    4
    1794
    od Kminek Zobrazit poslední příspěvek
    05 lis 2024 09:03

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: DotNetDotCom.org [Bot] a 10 hostů