< návrat zpět

MS Excel


Téma: Skrytí sloupců rss

Zaslal/a 9.8.2010 18:14

Tak jsem tu zas.

Napadla mi taková myšlenka. Půjdou skrýt všechny sloupce pokud nejsou vybrány?

Tedy mám vybrány třeba sloupce D,E,F a chtěl bych pomocí makra aby se skryli všechny sloupce, které nemám vybrána.

Třeba chci zobrazit jen údaje v sloupci D, E, F a co je v ostatních sloupcích mě nezajímá.

Co vy na to? Já to zkouším za zatím bez výsledku.

Zaslat odpověď >

#002133
Začátečník
Jak prosté:

Cells.EntireColumn.Hidden = True
Columns("D:F").EntireColumn.Hidden = False
citovat
#002134
avatar
Jj Ok.

Ale co když budu mít pokaždé vybrány jiné sloupce?

Nemám pevně dané sloupce, které chci mít zobrazeny.

Prostě označím sloupce. Zmáčknu čudl a neoznačené sloupce se skryjí.citovat
icon #002137
Poki
a takhle: Cells.EntireColumn.Hidden = True
Range(Selection.Address).EntireColumn.Hidden = False
citovat
#002218
avatar
Mám tento kod

Sub Makro1()

Cells.EntireColumn.Hidden = False

Cells.EntireRow.Hidden = False



If Range("B100") = "1" Then

Cells.EntireColumn.Hidden = True

Columns("D:F").EntireColumn.Hidden = False

Cells.EntireRow.Hidden = True

Rows("1:2").EntireRow.Hidden = False

Else

MsgBox "Nic se nestalo"

End If

End Sub


Ale nefunguje mi. Prosím kde mám chybu. Skryjí se mi všechny sloupce i řádky ale už se mi nezobrazí ty, které si navolím.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