< návrat zpět

MS Excel

Téma: Skytí řádku a odkrytí rss

Zaslal/a Niffki 12.8.2010 12:05

Zdravím

Zas bych potřeboval nějakou tu vychytávku :o)

V příloze mám tabulku. Chtěl abych fungovala takhle:

Prázdné řádky u každého stroje ručně skryji, jen první prázdný řádek nechám odkrytý....

Jakmile se do prvního prázdného řádku vloží data tak se odkryje prázdný řádek pod ním, a tak stále dokola...

Šlo by to nějak nastavit v makru? Díki 20

Příloha: rar2163_xxx.rar (7kB, staženo 20x)
Zaslat odpověď >
Strana:  1 2   další »
icon Poki(12.8.2010 14:00)#002166
Poki
taky zdravim,
zkus tenhle kod vlozit do modulu prislusneho listu: Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("c3:i31")) Is Nothing Then

If Rows(Target.Row + 1).Hidden = False Then
Exit Sub
Else
Rows(Target.Row + 1).Hidden = False
End If

End If

End Sub

V kodu je nastavna oblast, ktere se skryvani tyka: range("c3:i31") - ta se musi shodovat s oblasti, kde budou data.citovat
Niffki(12.8.2010 15:46)#002167
avatar
díki moc, funguje to.

Můžeš mi prosím ješte popsat ty kódy co znamenají? Tyto kody jsou mi neznamé totál :)citovat
icon Poki(12.8.2010 15:55)#002168
Poki
Takhle procedura se spousti pri kazde zmene v prislusnem listu (po stiknuti ENTER).
Target oznacuje bunku, ktera se zmenila.
Intersect je funkce, ktera urcite prunik argumentu (v nasem pripade Target a oblast c3:i31).

Procedura se tedy spusti jen tehdy, kdyz je Target uvnitr urcene oblasti.
Kontroluje se, zda je radek, ktery je pod Targetem, je skryty, pokud ano, tak se zobrazi, pokud ne, nic se nestane.citovat
Niffki(12.8.2010 16:24)#002170
avatar
Díkes.

Ještě mě napadla jedna věc, kterou bych ješte do toho zakomponoval.

Za předpokladu, že nastavím v makru aby se mi prázdné řádky skrývali automaticky, že je nebudu muset skrývat ručně.

Do tabulky napíšesu údaje. Uložím a zavřu. Při dalším otevřením se mi automaticky skryjí řádky, které jsem si navolil. Jenže když budou ve skrytých řádcích nějaké údaje tak aby se mi zobrazili. Šlo by to?

Snad jsem to napsal srozumitelně.citovat
icon Poki(13.8.2010 9:20)#002175
Poki
a nebylo by lepsi skryt makrem jen ty radky, ktere maji byt skryte? Treba takto: Sub hide_rows()
For i = 2 To 31
If IsEmpty(Cells(i, 3)) = True And IsEmpty(Cells(i - 1, 3)) = True Then
Cells(i, 3).EntireRow.Hidden = True
End If
Next
End Subcitovat
Niffki(13.8.2010 9:56)#002178
avatar
Zkusil jsem to ale nefunguje to. Teda jako funguje to jen když pak zapíšu do poslední prázdné buňky tak se mi nezobrazí skrytý řádek pod ním. ?citovat
icon Poki(13.8.2010 10:07)#002179
Poki
Nemam dneska uplne nejlepsi mozkovou kondici, takze jsem to nepochopil :D.
Zkus prilozit soubor, co ted mas, podivam se na to...citovat
Niffki(13.8.2010 10:13)#002180
avatar
Dej mi chvilku čas a pošlu ti trochu jinou tabulku ale na stejný princip :o)

Jen toho tam bude víc 2citovat
Niffki(13.8.2010 11:10)#002181
avatar
Takže tady to je :)

Jen ješte do doplnění. V listu mám těch tabulek více - tři. Co tabulka tak to zápis na jeden den.

Jen tak na rychlo jsem nastavil makro které mi označí danou tabulku na určitý den, určitě pochopíš co tím mám na mysli :)

No a ted nějak zakomponovat to tvoje makro. Abych tu tabulku neměl dlouhou jak rok a aby se mi ty řádky zobrazovali postupně. :) Viz předešlý dotaz.

Tak co? 29
Příloha: rar2181_xxx1.rar (67kB, staženo 20x)
citovat
icon Poki(13.8.2010 12:19)#002182
Poki
Tady je muj vytvor, snad je to to, cos potreboval.
Nechtelo se mi to ale testovat, tak si to zkontroluj :)
Příloha: zip2182_xxx1.zip (75kB, staženo 21x)
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