< návrat zpět

MS Excel


Téma: VBA Skrýt / zobrazit listy na základě hodnoty rss

Zaslal/a 31.3.2020 22:01

Dobrý den,
v buňce A1 je číslo 1
z něj vzorcem vyjedu název: list1 (=list&A1")
Znamená to,že list1 bude zobrazen a ostatní list2-list15 se skryjí.
Zkoušel jsem něco matlat, ale nebylo to ono.
zadám-li např. 5, list 1-5 bude zobrazen, 6-15 se skryjí.
Děkuji moc za kódy, já jsem v koncích.
Děkuji předem.

Zaslat odpověď >

#046317
elninoslov
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet, Name As String, iName As Integer, vShow, iShow As Integer

If Not Intersect(Range("A1"), Target) Is Nothing Then
vShow = Range("A1").Value

If Not IsEmpty(vShow) And IsNumeric(vShow) Then
iShow = Val(vShow)

Application.ScreenUpdating = False

For Each ws In ThisWorkbook.Worksheets
With ws
Name = Replace(.Name, "List", "")
If Name <> "Master" And IsNumeric(Name) Then
iName = Val(Name)
If iName <= iShow Then .Visible = xlSheetVisible Else .Visible = xlSheetHidden
End If
End With
Next ws

Application.ScreenUpdating = True
End If

End If
End Sub
Příloha: zip46317_showhidelists.zip (25kB, staženo 18x)
citovat
#046318
avatar
To je úžasné, jste bůh!
Děkuji moc!citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09