< 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

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