• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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.

Jméno
Kontrola
Text
	Ukázka

---

Začátečník(9.8.2010 20:23)#002133

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse