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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#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

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje