• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Skrytí řádků

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ší »

eLCHa(19.12.2012 4:54)#010712

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

Díky moc, vyzkouším...citovat

marficek119(20.12.2012 18:18)#010751

Nyní jsem zkoušel tento kód, ale nefunguje, nereaguje. Kde by mohla být chyba?citovat

eLCHa(20.12.2012 19:28)#010752

jak jste ho zkoušel?citovat

marficek119(20.12.2012 19:30)#010753

Vytvořil jsem makro a přidal ke tlačítku.citovat

eLCHa(20.12.2012 19:35)#010754

můžete to tu dát jako přílohu?citovat

marficek119(20.12.2012 19:45)#010755

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: 10755_skryt-radky.rar (112kB, staženo 33x)

citovat

eLCHa(20.12.2012 20:03)#010756

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

Super, díky, nyní funguje skvěle.citovat

marficek119(20.12.2012 20:15)#010758

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse