MS Excel

Zdravím,
potřebuji pomoct s makrem, které by mělo funkci skrýt sloupec F a zároveň skrýt řádky v rozmezí 1 - 100, které ve sloupci C vykazují hodnotu 0. Po opakovaném spuštění nejlépe jedním ovladačem skrytý sloupec a řádky zobrazí.
Moc děkuji předem
Vašek

Zaslat odpověď >

cmuch1(31.7.2015 19:56)#026045

Akorát upravit to co je ve skutečnosti jako 0 ve sloupci C

Sub Skryj_Zobraz()

Dim iRow As Integer

Application.ScreenUpdating = False

If Columns("F:F").EntireColumn.Hidden Then
Columns("F:F").EntireColumn.Hidden = False
Rows("1:100").EntireRow.Hidden = False
Else
Columns("F:F").EntireColumn.Hidden = True
For iRow = 1 To 100
If Cells(iRow, "C").Value = 0 Then
Rows(iRow & ":" & iRow).EntireRow.Hidden = True
End If
Next iRow
End If
Application.ScreenUpdating = True
End Subcitovat

elninoslov(2.8.2015 2:02)#026054

Pri počte 100 riadkov je to asi zanedbateľné, ale ak by sa jednalo o veľké množstvo, bolo by asi kratšie nepristupovať na list pri každom 0 riadku, ale hromadne. Zmenený test bunky na 0 nie aj na "" či Empty. Je lepšie odkazovať na nejaký list, zatiaľ je tam ActiveSheet. Proste iba trochu iná alternatíva.
Sub Skryj_Zobraz()
Dim iRow As Integer, r As Range
Application.ScreenUpdating = False
With ActiveSheet
If .Columns(6).EntireColumn.Hidden Then
.Rows("1:100").EntireRow.Hidden = False
Else
For iRow = 1 To 100
If .Cells(iRow, 3).Value = 0 And .Cells(iRow, 3).Value <> "" Then If r Is Nothing Then Set r = .Rows(iRow) Else Set r = Union(r, .Rows(iRow))
Next iRow
If Not r Is Nothing Then r.EntireRow.Hidden = True
End If
.Columns(6).EntireColumn.Hidden = Not .Columns(6).EntireColumn.Hidden
End With
Application.ScreenUpdating = True
End Subcitovat

Vincek(12.8.2015 16:08)#026240

Mnohokrát děkuji,
funguje to
V.citovat

Téma: Skrytí / zobrazení sloupce a řádků dle podmínky

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Čas od do

Čas od do

Čas od do

Čas od do

Makro smyčka

Makro smyčka

Makro smyčka