< 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

VBA - průvodce importem textu

jaks.dalibor • 28.10. 10:41

Array Sort

Onykl • 28.10. 9:19

VBA - průvodce importem textu

jaks.dalibor • 27.10. 21:35

ID označených řádků

Onykl • 27.10. 20:02

ID označených řádků

LumberMan • 27.10. 16:18

Přepis z jedné tabulky do druhé

Jiri1992 • 27.10. 12:49

Přepis z jedné tabulky do druhé

Jiri1992 • 27.10. 12:39