< návrat zpět

MS Excel

Téma: Skrytí řádků rss

Zaslal/a marficek119 15.12.2010 20:12

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
Začátečník
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
avatar
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
icon Poki(17.12.2010 10:05)#003542
Poki
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
avatar
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
avatar
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

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