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

MS Excel

Téma: Makro Excel

Zaslal/a mireknepomuk 27.11.2014 14:44

Prosím o radu. Mám v excelu několik listů. Každý list je stejný, ale patří jiné pomyslné osobě. V každém listu je 20 stejných tabulek a každá má 30 řádků v 10ti slupcích (např. sloupce A až J, v řádkách 20-50, další A až J v řádkách 60-90, další A až J 100-130 atd.) V první řádce je pak malá tabulka o 20ti buňkách, tedy buňky A1 až T1. V těchto buňkách jsou vzorce, který říkají podmínku "Když" a výsledkem je buď hodnota v buňce "ANO", nebo nic (respektivě nula). A právě potřebuju, aby když bude v buňce A1 výsledná hodnota nula, tak aby se skryla první tabulka (A-J, 60-90,)- tedy skryjí se její řádky, tak že nebude vidět. Pokud bude v buňce A2 nula, skryje se druhá tabulka, Pokud bude v buňce A3 nula, skryje se třetí tabulka atd. atd. Pokud bude v buňce hodnota "ANO" tabulka zůstane zobrazená. TAkto musí fungovat všechny listy excelu. Jak napsat makro? poradí někdo? Děkuju

Zaslat odpověď >

---

Pavlus(27.11.2014 16:39)#022551

Přilož přílohu.
P.citovat

€Ł мσşqμΐτσ(27.11.2014 17:14)#022554

Ahoj
tohle zkopíruj do thisworkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim bnk As Variant
Dim r1 As Integer, r2 As Integer

r1 = 20
r2 = 50

For Each bnk In Sh.Range(Cells(1, 1), Cells(1, 20))
If bnk = 0 Or bnk = "" Then
Sh.Rows(r1 & ":" & r2).EntireRow.Hidden = True
Else
Sh.Rows(r1 & ":" & r2).EntireRow.Hidden = False
End If
r1 = r1 + 40
r2 = r2 + 40
Next
End Sub

Makro se spustí při přepínání listů.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse