< návrat zpět

MS Excel

Téma: EXcel 2007 - skrytí a zobrazení řádků rss

Zaslal/a Pak 11.5.2014 6:51

Ahoj, potřebuju mít skryté řádky do doby než se tam objeví dnešní datum. To mám udělané pomocí vzorce =IFERROR(KDYŽ(A(DNES()>A4;DNES()>=A4+2);A4+1;"");"").

A teď potřebuju aby když v buňce bude pomocí toho vzorce datum aby se ten řádek zobrazil. To by asi šlo pomocí VBA, ale to je pro mě španělská vesnice. Nejlepší by bylo, kdyby se to makro spustilo při otevření sešitu. Jak na to?

Díky všem 1

Zaslat odpověď >
Strana:  1 2   další »
marjankaj(11.5.2014 8:37)#019404
avatar
Tak tam daj vzorec IFERROR(A4+1;"")

PS:
1. Je rozdiel skryť riadky a vymazať z nich hodnotu.
2. A podľa čoho má VBA určiť, kedy má byť ten dátum vidieť a kedy má zostať skrytý?citovat
Pak(12.5.2014 6:56)#019418
avatar
Kam ten vzorec napsat?

1. Ve skrytých řádcích nebudou žádné hodnoty.
2. Jakmile se ve sloupci A objeví datum řádek se zviditelní a už tak zůstane. Už se z něj nikdy to datum nesmaže takže už se skrývat nebude.citovat
marjankaj(12.5.2014 10:26)#019423
avatar

Pak napsal/a:

Kam ten vzorec napsat?

1. Ve skrytých řádcích nebudou žádné hodnoty.
2. Jakmile se ve sloupci A objeví datum řádek se zviditelní a už tak zůstane. Už se z něj nikdy to datum nesmaže takže už se skrývat nebude.


Tak toto by chcelo prílohu.
Rád by som videl, ako si to predstavuješ.citovat
Pak(12.5.2014 10:54)#019424
avatar
Tady je příloha, snad jsem to popsal pochopitelně.
Příloha: zip19424_skryti-a-zobrazeni-radku.zip (8kB, staženo 28x)
citovat
Pak(19.5.2014 7:00)#019519
avatar
Skrýt a zobrazit řádky se mi povedlo pomocí

Rows("4:13").Select
Selection.EntireRow.Hidden = True
Selection.EntireRow.Hidden = False

Ale když se mi pomocí vzorce do řádku 14 zapíše datum jak to dát do příkazu Rows? Proměnná? Jak ji zadat?citovat
Opičák(19.5.2014 9:52)#019523
Opičák
Já bych to udělal celé makrem bez vzorců, když už chcete skrývat a neskrývat.
Při otevření zkontroluje datum, není-li, tak ho dopíše a zbytek skryje.
Příloha: zip19523_zobrazeni-radku-s-datem.zip (15kB, staženo 30x)
citovat
Pak(21.5.2014 10:24)#019587
avatar
Díky, to je ono. 1

Jenom jsem potřeboval aby mi to zapisovalo ne dnešní, ale včerejší datum.
Takžejem to upravil že jsem odečel od Date jedničku.

If Cells(pR, "A") <> Date - 1 Then
Cells(pR + 1, "A") = Date - 1: n = 1

Je to v pořádku? Já to pár dní zkoušel a funguje to.

Díky 1citovat
Pak(24.5.2014 17:02)#019637
avatar
Tak skrývání a zobrazování řádků jsem zrušil.

Makro funguje bezva, ale mám tam víc listů a někdy zapomenu, když soubor ukládám to přepnout na list kam to makro má zapisovat datum a pak mi to zapisuje na špatný list.
Lze udělat aby makro zapisovalo např. na List2 po spuštění i když se to otevře na listu List1?

Děkuji 1citovat
Jond(25.5.2014 20:29)#019660
avatar

Pak napsal/a:

Tak skrývání a zobrazování řádků jsem zrušil.

Makro funguje bezva, ale mám tam víc listů a někdy zapomenu, když soubor ukládám to přepnout na list kam to makro má zapisovat datum a pak mi to zapisuje na špatný list.
Lze udělat aby makro zapisovalo např. na List2 po spuštění i když se to otevře na listu List1?

Děkuji

Hned za deklaracemi proměnných (Dim....) vložit příkaz pro výběr příslušného listu

Sheets("List1").Selectcitovat
Pak(27.5.2014 6:34)#019672
avatar
Napadla mě ještě jedna věc. V souboru je malkro které používám zápis data do sloupce A. Ale když např. jeden den nespustím soubor (jako je ukázáno v souboru) tak mi tam pak chybí data. Myslel jsem udělat cyklus který je doplní od posledního zaznamenaného data až do včerejšího dne. Ale jak zjistím ve VBA poslední zapsané datum? Value, Value2, Text? A jak definovat proměnou?
Nebo na to jdu špatně?

Díky za rady
Příloha: zip19672_datum.zip (12kB, staženo 22x)
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje