< návrat zpět

MS Excel

Téma: Skrytí řádků rss

Zaslal/a marficek119 19.12.2012 0:21

Ahoj, potřebuji pomoc s kódem.
Mám toto makro:
Dim i As Integer

For i = 27 To 376 '
If Cells(i, 5) = Empty Then ' buňka ve sloupci E je prázdná?
Rows(i).Hidden = True ' ano, skryj řádek
End If
Next i
End If

Makro má zjistit prázdné buňky a následně skrýt řádky které jsou prázdné. Šlo by to udělat obráceně. Myslím to tak, že by makro našlo poslední obsazený řádek (zadanou buňku v řádku) a ostatní řádky pod by skrylo do řádku 376? Je to reálné? Děkuji za pomoc

Zaslat odpověď >
Strana:  1 2   další »
icon eLCHa(19.12.2012 4:54)#010712
eLCHa
Pokud tomu rozumím:

Sub subHideRows()
Dim rRowsToHide As Range

Dim i As Integer
For i = 376 To 27 Step -1
If IsEmpty(Cells(i, 5)) Then
If rRowsToHide Is Nothing Then
Set rRowsToHide = Cells(i, 5)
Else
Set rRowsToHide = Union(rRowsToHide, Cells(i, 5))
End If
Else
Exit For
End If
Next

If Not rRowsToHide Is Nothing Then
rRowsToHide.EntireRow.Hidden = True
End If

Set rRowsToHide = Nothing
End Sub

Pro tento konkrétní případ by to šlo i trošičku jednodušeji, ale doporučuji tento postup, protože pro každé další skrývání řádků, které si budte chtít naprogramovat pouze upravíte cyklus a skrývání proběhne jediným krokem. Takže je to hezčí a hlavně rychlejší.citovat
marficek119(19.12.2012 15:18)#010731
avatar
Díky moc, vyzkouším...citovat
marficek119(20.12.2012 18:18)#010751
avatar
Nyní jsem zkoušel tento kód, ale nefunguje, nereaguje. Kde by mohla být chyba?citovat
icon eLCHa(20.12.2012 19:28)#010752
eLCHa
jak jste ho zkoušel?citovat
marficek119(20.12.2012 19:30)#010753
avatar
Vytvořil jsem makro a přidal ke tlačítku.citovat
icon eLCHa(20.12.2012 19:35)#010754
eLCHa
můžete to tu dát jako přílohu?citovat
marficek119(20.12.2012 19:45)#010755
avatar
Zde je ukázka formuláře na kterém bych chtěl skrývat řádky. Makro je vloženo a přiřazeno ke tlačítku.
Příloha: rar10755_skryt-radky.rar (112kB, staženo 33x)
citovat
icon eLCHa(20.12.2012 20:03)#010756
eLCHa
Tak makro reaguje, ale nepracuje spravne.

Problem je v radku
If IsEmpty(Cells(i, 5)) Then
Ten je nastaveny na prazdne bunky.
Vy tam ale mate vzorec (externi odkaz), jehoz vysledkem je u mne 0
Pokud to tak je spravne, nahradte
If Cells(i, 5).Value = 0 Thencitovat
marficek119(20.12.2012 20:09)#010757
avatar
Super, díky, nyní funguje skvěle.citovat
marficek119(20.12.2012 20:15)#010758
avatar
Ještě mě napadla taková maličkost, pokud by šla. Šlo by aby pod posledním obsazeným řádkem zůstal jeden řádek který by se neskryl?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