MS Excel

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ěď >

Palooo(5.11.2018 14:31)#041812

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

elninoslov(5.11.2018 15:13)#041814

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

kalisci(5.11.2018 20:05)#041823

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

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje