< návrat zpět
MS Excel
Téma: Skrytí sloupců
Zaslal/a Niffki 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.
Jak prosté:
Cells.EntireColumn.Hidden = True
Columns("D:F").EntireColumn.Hidden = False
citovat
Niffki(10.8.2010 6:03)#002134 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
Poki(10.8.2010 9:18)#002137 a takhle:
Cells.EntireColumn.Hidden = True
Range(Selection.Address).EntireColumn.Hidden = Falsecitovat
Niffki(18.8.2010 10:03)#002218 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