Note: The other languages of the website are Google-translated. Back to English

Come convertire tutte le tabelle in intervalli nel foglio di lavoro attivo?

In Excel, puoi utilizzare alcune tabelle per registrare i dati, ma, in alcune volte, vuoi convertire la tabella in un intervallo per eseguire qualche edizione. In genere, puoi convertire una sola tabella in intervallo una volta sola, sarà problematico se ci sono dozzine di tabelle in un foglio che devono essere convertite in intervalli. Qui ho un codice VBA in grado di convertire le tabelle del foglio attivo in un intervallo contemporaneamente.

Converti tutte le tabelle in intervalli di fogli attivi con VBA


Converti tutte le tabelle in intervalli di fogli attivi con VBA

1. Attivare il foglio di cui si desidera convertire le sue tabelle, quindi premere Alt + F11 tasti per abilitare Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulo per creare un nuovo script del modulo, copia e incolla il codice sottostante nel modulo vuoto.

VBA: converti tutte le tabelle del foglio attivo in intervalli

Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
    Dim xSheet As Worksheet
    Dim xList As ListObject
    Set xSheet = ActiveWorkbook.ActiveSheet
    For Each xList In xSheet.ListObjects
        xList.Unlist
    Next
End Sub

doc converte le tabelle in intervalli 1

3. Stampa F5 chiave per eseguire il codice, ora tutte le tabelle del foglio corrente sono state convertite in intervalli.


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 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, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (2)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Ho usato il tuo codice nella mia macro per convertire le mie tabelle in intervalli in modo da poter trasporre i dati per renderli più leggibili;
Dim xSheet come foglio di lavoro
Dim xList come ListObject
Imposta xSheet = ActiveWorkbook.ActiveSheet
Per ogni xList in xSheet.ListObjects
xList.Unlist
Successiva

Stava funzionando proprio quando l'ho scritto nella macro. Per qualche motivo quando eseguo la macro ora mi dà un errore di runtime 1004 su xList.Unlist

Hai qualche suggerimento sul perché potrebbe essere o su come risolverlo?

Qualsiasi aiuto sarebbe molto apprezzato.

Grazie!
Sam
Questo commento è stato fatto dal moderatore sul sito
Ho usato il tuo codice nella mia macro per convertire le mie tabelle in intervalli in modo da poter trasporre i dati per renderli più leggibili;
-
Dim xSheet come foglio di lavoro
Dim xList come ListObject
Imposta xSheet = ActiveWorkbook.ActiveSheet
Per ogni xList in xSheet.ListObjects
xList.Unlist
Successiva
-
Stava funzionando proprio quando l'ho scritto nella macro. Per qualche motivo quando eseguo la macro ora mi dà un errore di runtime 1004 su xList.Unlist
-
Hai qualche suggerimento sul perché potrebbe essere o su come risolverlo? Qualsiasi aiuto sarebbe molto apprezzato.
-
Grazie!
Sam
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0  Personaggi
Posizioni suggerite