Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
x
or
x
x
Registratevi
x

or

Come nascondere colonne su più fogli in una cartella di lavoro?

In Excel, possiamo nascondere rapidamente le colonne in un foglio di lavoro, ma, hai mai provato a nascondere colonne su più fogli contemporaneamente? Normalmente, puoi provare a selezionare tutti i fogli e applicare la funzione Nascondi, ma non funzionerà correttamente. In questo articolo, parlerò di come nascondere le colonne tra più fogli di lavoro rapidamente?

Nascondi colonne su più fogli di lavoro in una cartella di lavoro con codice VBA

Scheda Office Abilita la modifica e la navigazione a schede in Office e semplifica notevolmente il tuo lavoro ...
Kutools per Excel risolve la maggior parte dei problemi e aumenta la produttività del 80%
  • Riutilizzare qualsiasi cosa: Aggiungi le formule più utilizzate o complesse, i grafici e qualsiasi altra cosa ai tuoi preferiti e riutilizzali rapidamente in futuro.
  • Più delle funzioni di testo di 20: Estrai numero da stringa di testo; Estrai o rimuovi parte di testi; Converti numeri e valute in parole inglesi ...
  • Unisci strumenti: Più cartelle di lavoro e fogli in uno; Unisci più celle / righe / colonne senza perdere dati; Unisci righe duplicate e somma ...
  • Strumenti di divisione: Suddivisione dei dati in più fogli in base al valore; Una cartella di lavoro per più file Excel, PDF o CSV; Una colonna a più colonne ...
  • Incolla Saltare Righe nascoste / filtrate; Conte E Somma per colore di sfondo; Crea una mailing list e Invia e-mail in base al valore della cella...
  • Super filtro: Crea schemi di filtro avanzati e applica a tutti i fogli; Ordinare per settimana, giorno, frequenza e altro; Filtro da grassetto, formule, commento ...
  • Oltre alle potenti funzionalità di 300; Funziona con Office 2007-2019 e 365; Supporta tutte le lingue; Facile implementazione nella tua azienda o organizzazione.

freccia blu bolla destra Nascondi colonne su più fogli di lavoro in una cartella di lavoro con codice VBA

Il seguente codice può aiutarti a nascondere colonne specifiche su tutti i fogli di lavoro immediatamente, per favore fai come segue:

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incollare il seguente codice nel Modulo Finestra.

Codice VBA: Nascondi colonne su più fogli contemporaneamente:

 Sub Hide_Columns()
'Updateby Extendoffice 20160913
    Dim iWs As Integer
    Dim sCol As String
    On Error Resume Next
    sCol = Application.InputBox("Input entire column,Eg A:A OR A:B", _
                                "Kutools for Excel", , , , , , 2)
    If sCol = "" Then
        MsgBox "Empty columns", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    For iWs = 1 To ThisWorkbook.Worksheets.Count
        ThisWorkbook.Sheets(iWs).Columns(sCol).Hidden = True
    Next iWs
    On Error GoTo 0
End Sub

3. Quindi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di prompt per ricordare di digitare le colonne che si desidera nascondere su tutti i fogli di lavoro, vedere screenshot:

doc nascondi colonne tutti i fogli 1

4. E poi clicca OK pulsante, le colonne specificate sono state nascoste in tutti i fogli di lavoro contemporaneamente.


Kutools per Excel risolve la maggior parte dei problemi e aumenta la produttività del 80%

  • Riutilizzo: Inserire rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Cifra le celle con password; Crea mailing list e invia email ...
  • Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggere e modificare facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere i dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Previeni celle duplicate; Confronta le gamme...
  • Seleziona Duplica o Unica Righe; Seleziona righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molti libri di esercizi; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento alla formula; Creazione automatica di riferimenti a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • estrarre il testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare subtotali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtro ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale di grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle basate su colonne chiave; Dividi i dati in più fogli; Converti in batch xls, xlsx e PDF...
  • Oltre alle potenti funzionalità di 300. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzioni complete di prova gratuita di 30-day.
kte tab 201905

Scheda Office Porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Editore, accesso, Visio e progetto.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la tua produttività di 50% e riduce centinaia di clic del mouse per te ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Treb · 6 months ago
    And the VBA for unhiding the multiple columns as well.

    Thank you in advance and God bless
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hi, Treb,
      To show all the hidden columns from the whole workbook, please apply the below VBA code:
      Sub ShowHiddenColumns()
      Dim iWs As Integer
      Dim sCol As String
      On Error Resume Next
      For iWs = 1 To ThisWorkbook.Worksheets.Count
      ThisWorkbook.Sheets(iWs).Columns.Hidden = False
      Next iWs
      On Error GoTo 0
      End Sub

      Please try, hope it can help you!
  • To post as a guest, your comment is unpublished.
    Treb · 6 months ago
    I try to use this VBA code that you made to hide multiple columns in a multiple worksheets.. But How can I use it with out a message Box...

    Please kindly help me to make a VBA that will hide the multiple columns in all worksheets at once with out having a lot of message box?..


    I badly needed such a code.


    Please help
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hello, Treb,
      The popped out message box can help you to enter the hidden columns you need conveniently and dynamically.