MS Excel

Ahoj, potřebuji radu:
Mám formulář o 50 řádcích. Potřebuji nějaké makro, které ve formuláři skryje nevyplněné řádky. Př. mám textem obsazeno 5 řádků, a makrem bych potřeboval ostatních 45 skrýt. Pomůže někdo?
M.

Zaslat odpověď >

Začátečník(15.12.2010 20:47)#003522

Dát do cyklu a skrýt podle prázdné buňky

For i = 1 To 50 ' pro 50 řádků od 1
If Cells(i, 1) = Empty Then ' buňka ve sloupci A je prázdná?
Rows(i).Hidden = True ' ano, skryj řádek
End If
Next i

Loncitovat

marficek119(17.12.2010 9:58)#003541

Ahoj a díky za makro. Funguje dobře. Ještě se zeptám, zda by nějakým způsobem nešlo to makro zrychlit a zda by šlo aby neproblikávala celá stránka při skrývání řádků?
Díky M.citovat

Poki(17.12.2010 10:05)#003542

Ja teda nevim, ale pri skryvani 50 radku to urcite musi byt hned hotove (Zacatecnik vychazel ze zadani a napsal to tak jednoduse a dobre, jak jen to jde), zruseni updatovani obrazovky to trosku zrychli a odstrani problikavani...
Sub neco()
Dim i As Integer

Application.ScreenUpdating = False
For i = 1 To 50 ' pro 50 řádků od 1
If Cells(i, 1) = Empty Then ' buňka ve sloupci A je prázdná?
Rows(i).Hidden = True ' ano, skryj řádek
End If
Next i
Application.ScreenUpdating = True
End Subcitovat

marficek119(17.12.2010 10:17)#003543

Nene, v pohodě, makro funguje super. Jen mám starej krám a veškeré operace v excel (a nejen v něm) trvají dlouho:-(
Díkycitovat

marficek119(17.12.2010 10:23)#003544

Teď jsem vyzkoušel co jsi napsal, ale beze změny, stále bliká a rychlost skrývání se nezlepšila. Ale díkycitovat

Téma: Skrytí řádků

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Čas od do

Makro smyčka

Makro smyčka

Čas od do

Čas od do

Čas od do

Čas od do