< návrat zpět

MS Excel


Téma: Jak skrýt sloupec, který obsahuje hodnoty = 0 rss

Zaslal/a 5.11.2018 14:20

Rád bych poprosil o radu.

Potřebuji vytvořit makro, které skryje sloupec,
pokud jsou hodnoty v buňkách od druhého řádku, do nekonečna = 0. Pokud je ve sloupci alespoň jedna hodnota větší než 0, pak sloupec zůstane viditelný.

Děkuji za pomoc. Já se zatím pokouším marně.

Zaslat odpověď >

#041812
avatar
Asi nejak takto by som to riesil:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim aColumn As Range
For Each aColumn In Columns
If Application.Sum(aColumn) = 0 Then aColumn.Hidden = True
Next
End Sub

samozrejme to potrebuje vyladit lebo to prebehne pre vsetky stlpce ... idealne tam nastavit rangecitovat
#041814
elninoslov
Ja by som ich radšej skrýval naraz
Sub CheckAndHide()
Dim aColumn As Range, RNG As Range
Application.ScreenUpdating = False
With ActiveSheet.Columns("A:D")
.EntireColumn.Hidden = False
For Each aColumn In .Columns
If Application.Sum(aColumn) = 0 Then
If RNG Is Nothing Then Set RNG = aColumn Else Set RNG = Union(RNG, aColumn)
End If
Next
End With
If Not RNG Is Nothing Then RNG.EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub


Treba to pri Change alebo pri Calculate alebo pri stlačení čudlíku ? ...citovat
#041823
avatar
Super, funguje oboje. Akorát si tu lámu hlavu s tou první verzí, jak tam zadat range. Jsem začátečník a zatím se nedaří...

Druhá verze od elninoslov funguje. Spouštět to budu asi ručně.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

Vodorovný teploměr v buňce

GeorgeK • 1.12. 12:26

Vodorovný teploměr v buňce

elninoslov • 1.12. 10:21

Vodorovný teploměr v buňce

Stalker • 1.12. 10:01

Vodorovný teploměr v buňce

GeorgeK • 1.12. 9:15

Spustit makro v určitý čas

Baja • 28.11. 20:11

Spustit makro v určitý čas

elninoslov • 28.11. 17:09

Spustit makro v určitý čas

Baja • 28.11. 12:51