Nascondere colonne con macro

Question

Salve,

ho bisogno nascondere delle colonne in un foglio Excel e di lasciarne visibili solo alcune.

Es: nascondere le colonne a A ad M e da X a Z e lasciare visibili solo le altre.

Si può fare con una macro? Magari che consenta di scegliere le colonne da lasciare visibili tramite una casella di controllo?

Grazie.

Answer 1

Se vuoi nascondere delle colonne in base alle celle selezionate potresti provare qualcosa del genere:

Sub NascondiColonne() 

   ActiveSheet.Columns.Hidden = True 

   Selection.EntireColumn.Hidden = False 

   ActiveWindow.ScrollColumn = 1 

End Sub 

Edit:

Per scoprire tutte le colonne nuovamente puoi usare questa macro:

Sub ScopriColonne() 

   ActiveSheet.Columns.Hidden = False 

End Sub 

ciao

Answer 2

ho bisogno nascondere delle colonne in un foglio Excel e di lasciarne visibili solo alcune.

...

Si può fare con una macro?

Si, usa

Columns(3).Hidden = True

per nascondere la colonna C

Magari che consenta di scegliere le colonne da lasciare visibili tramite una casella di controllo?

Anche questo si può fare, ma dipende di che tipo e dove sono posizionate le caselle di controllo.

Avendo il 365 e mettendo le caselle di controllo nella prima riga:

basterebbe:

Sub NascondiColonne() 

Dim rngC As Range 

    For Each rngC In Range("A1:Z1") 

        rngC.EntireColumn.Hidden = Not rngC.Value 

    Next rngC 

End Sub 

Ciao.

Answer 3

Ho provato la macro ma non funziona, in effetti il foglio è un po' complicato.

Non per niente sarebbe sempre meglio condividerlo, quando lo chiediamo è per darvi modo di adattare meglio le soluzioni.

Ci sarebbe il modo di ottenere lo stesso risultato selezionando delle colonne, anche non consecutive, lasciando visibili solo queste nascondendo le altre?

La soluzione te l'ha data casanmaner (ciao Ermanno), mi ero limitato alla tua richiesta:

consenta di scegliere le colonne da lasciare visibili tramite una casella di controllo

Ciao😉

Answer 4

Ciao Eleuterio,

una curiosità, se per caso hai già affrontato la cosa.

Ma le nuove caselle di controllo di office 365 hanno un riferimento in VBA?

Una volta ho provato a fare una ricerca, ma non ho trovato riferimenti.

Ma magari non li ho visti io :)

Answer 5

ciao

Eleuterio

meglio creare anche questa

Sub scopricolonne() 

Range("A1:Z1").EntireColumn.Hidden = False 

End Sub