Cheat Sheet VBA - Comandi ed elenchi di sintassi

Foglio informativo VBA PDF (download gratuito)

Scarica il nostro PDF gratuito di Excel VBA Cheat Sheet per una rapida consultazione!

Scarica

Cheat Sheet VBA

Fare riferimento a questa pagina per gli elenchi di tutti i comuni comandi e sintassi VBA. Troverai molti comandi di base (es. inserire un foglio) e alcune sintassi avanzate (es. lavorare con gli array).

Suggerimenti:

Usa CTRL + F per cercare in questa pagina.

Aggiungi questa pagina ai segnalibri (CTRL + D su Chrome)!

Fogli

DescrizioneCodice VBAAttiva per nome schedaFogli ("Input"). AttivaAttiva tramite nome codice VBAFoglio1.AttivaAttiva in base alla posizione dell'indiceFogli(1).AttivaFoglio successivoActiveSheet.Next.ActivateOttieni ActiveSheetMsgBox ActiveSheet.NameSeleziona foglioFogli(“Inserimento”).SelezionaImposta su variabileDim ws come foglio di lavoro
Imposta ws = ActiveSheetNome / RinominaActiveSheet.Name = "NuovoNome"Aggiungi foglioFogli.AggiungiAggiungi foglio e nomeSheets.Add.Name = "NuovoFoglio"Aggiungi foglio a variabileDim ws come foglio di lavoro
Imposta ws = Fogli.AggiungiCopia foglioFogli("Foglio1"). Copia prima:=Fogli("Foglio2")Nascondi foglioFogli(“Foglio1”).visibile = Falso
o
Fogli(“Foglio1”).visible = xlSheetHiddenScopri foglioFogli(“Foglio1”).Visible = True
o
Fogli(“Foglio1”).Visible = xlSheetVisibleFoglio molto nascostoFogli(“Foglio1”).Visible = xlSheetVeryHiddenElimina foglioFogli(“Foglio1”).EliminaCancella foglioFogli(“Foglio1”).Cells.ClearAnnulla protezione (nessuna password)Fogli("Foglio1").UnprotectAnnulla protezione (password)Fogli(“Foglio1”). Rimuovi protezione “Password”Proteggi (nessuna password)Fogli(“Foglio1”).ProteggiProteggi (password)Fogli(“Foglio1”).Proteggi “Password”Proteggi ma consenti l'accesso a VBAFogli("Foglio1").Proteggi UserInterfaceOnly:=True

Ritorna su

Celle e intervalli

DescrizioneCodice VBAAttiva cellaIntervallo ("B3"). Attiva
Celle (3,2). AttivaSeleziona intervalloIntervallo(“a1:a3”).Seleziona
Intervallo(Intervallo(“a1”), Intervallo(“a3”)).Seleziona
Intervallo(Celle(1, 1), Celle(3, 1)).SelezionaRidimensionaIntervallo(“B3”).Ridimensiona(2, 2).SelezionaCompensareIntervallo(“B3”).Offset(2, 2).SelezionacopiaIntervallo ("A1: B3"). Intervallo di copia ("D1")TagliareIntervallo ("A1: B3"). Intervallo di taglio ("D1")EliminaIntervallo ("A1: B3"). Elimina
Intervallo ("A1: B3"). Elimina shift:=xlShiftToLeftChiaroIntervallo ("A1: A3"). Cancella
Intervallo ("A1: A3"). Cancella contenuto
Intervallo ("A1: A3"). ClearFormatContareIntervallo ("A1: A3"). ConteggioImposta su variabileDim rng come intervallo
Imposta rng = Intervallo ("A1")Unisci/DisunisciIntervallo ("A1: A3"). Unisci
Intervallo ("A1: A3"). UnUnisciPassare attraverso le celle

Cella debole come intervallo

Per ogni cella nell'intervallo ("A1: C3")
MsgBox cell.Value
Cella successiva

Ritorna su

Righe

DescrizioneCodice VBAAttivareRighe(1).Attiva
Righe ("1:1"). Attiva
Intervallo ("a1"). Intera riga. AttivaAltezza larghezzaIntervallo(“A1”).EntireRow.RowHeight = 30EliminaIntervallo ("A1"). Intera riga. EliminaContareIntervallo(“A1”).Righe.ConteggioInserireIntervallo ("A1"). Intera riga. InserisciScorsodim lRiga il più a lungo
lRow = Cells(Rows.Count, 1).End(xlUp).RowcopiaIntervallo ("1:1"). Copia Intervallo ("5:5")InserireIntervallo ("1:1"). Copia
Intervallo ("5:5"). Inserisci

Ritorna su

colonne

DescrizioneCodice VBAAttivareColonne(1).Attiva
Colonne ("a: a"). Attiva
Intervallo(“a1”).Colonna intera.AttivaAltezza larghezzaIntervallo(“A1”).EntireColumn.ColumnWidth = 30EliminaIntervallo(“A1”).Colonna intera.CancellaContareIntervallo(“A1”).Colonne.ConteggioInserireIntervallo(“A1”).Colonna intera.InserisciScorsodim lCol finché
lCol = Cells(1, Columns.Count).End(xlToLeft).ColumncopiaIntervallo ("A: A"). Copia Intervallo ("E: E")InserireIntervallo ("A: A"). Copia
Intervallo ("E: E"). Inserisci

Ritorna su

Stanco di cercare esempi di codice VBA? Prova AutoMacro!

cartelle di lavoro

DescrizioneCodice VBAAttivareCartelle di lavoro ("Libro1"). AttivaAttiva prima aperturaCartelle di lavoro(1).AttivaAttiva l'ultima aperturaCartelle di lavoro (Cartelle di lavoro. Conteggio). AttivaOttieni AttivaWorkbookMsgBox ActiveWorkbook.NameOttieni questa cartella di lavoro (contenente codice VBA)MsgBox ThisWorkbook.NameAggiungereCartelle di lavoro.AggiungiAggiungi a variabileDim wb come cartella di lavoro
Imposta wb = Cartelle di lavoro.AggiungiAprireCartelle di lavoro.Open(“C:\esempio.xlsm”)Aperto a VariabileDim wb come cartella di lavoro
Imposta wb = Workbooks.Open(“C:\example.xlsm”)ChiudereCartelle di lavoro ("Libro1"). Chiudi Salva modifiche: = Falso
Cartelle di lavoro ("Libro 1"). Chiudi Salva modifiche: = VeroSalvaCartelle di lavoro ("Libro1"). SalvaSalva comeCartelle di lavoro ("Libro1"). Salva con nome strFileNameProteggi/Non proteggereCartelle di lavoro (1). Proteggi la "password"
Cartelle di lavoro (1). Rimuovere la protezione dalla "password"Imposta su variabileDim wb come cartella di lavoro
Imposta wb = Cartelle di lavoro ("Libro1")Passa attraverso tutte le cartelle di lavoro nelle cartelle di lavoro

Dim wb come cartella di lavoro

Per ogni wb nelle cartelle di lavoro
MsgBox wb.Nome
wb successivo

Il controllo esisteIf Dir(“C:\Book1.xlsx”) = “” Allora
MsgBox “Il file non esiste.”
Finisci seCopia chiusaFileCopy “C:\file1.xlsx”,”C:\file2.xlsx”

Ritorna su

Impostazioni

DescrizioneCodice VBAAggiornamento dello schermoApplication.ScreenUpdating = False
Application.ScreenUpdating = TrueVisualizza avvisiApplication.DisplayAlerts = False
Application.DisplayAlerts = TrueEventiApplication.EnableEvents = False
Application.EnableEvents = TrueAbilita tasto AnnullaApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptConfronto testo - Ignora maiuscole/minuscoleOpzione Confronta testoRichiedi dichiarazione variabileOpzione esplicitaCalcoli automaticiApplicazione.Calcolo = xlManuale
Applicazione.Calcolo = xlAutomaticoControllo degli errori in backgroundApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = TrueVisualizza barra delle formuleApplication.DisplayFormulaBar = False
Application.DisplayFormulaBar = TrueCongela riquadriActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = TrueVisualizzazione a schermo interoApplication.DisplayFullScreen = False
Application.DisplayFullScreen = TrueAnteprima PageBreakActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewVisualizza barre di scorrimentoCon ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
Termina conCon ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
Termina conVisualizza barra di statoApplication.DisplayStatusBar = False
Application.DisplayStatusBar = TrueContenuto della barra di statoApplication.StatusBar = "Sto lavorando ora!!!"
Application.StatusBar = FalseVisualizza le schede della cartella di lavoroActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayWorkbookTabs = TrueNome utenteApplication.UserName = "AutomateExcel.com"Didascalia dell'appApplication.Caption = "Modello AutomateExcel"IngrandisciActiveWindow.Zoom = 80

Ritorna su

Errori

DescrizioneCodice VBAIn caso di errore: codice di arresto e errore di visualizzazioneIn caso di errore Vai a 0On Error - Salta l'errore e continua a correreIn caso di errore Riprendi AvantiIn caso di errore - Vai a una riga di codice [Etichetta]In caso di errore Vai a [Etichetta]Cancella (ripristina) l'erroreIn caso di errore Vai a -1Mostra numero di erroreMsgBox Err.NumeroMostra descrizione dell'erroreMsgBox Err.DescrizioneFunzione per generare il proprio erroreErr.Alza

Ritorna su

File

DescrizioneCodice VBACopia il fileFileCopy “C:\test\test_old.xlsx”, “C:\test\test_nuovo.xlsx”Cancella il fileUccidi "C:\test\example.xlsx"Crea cartellaMkDir “C:\test\”Elimina tutti i file dalla cartellaUccidi "C:\test\" e "*.*"Elimina cartellaUccidi "C:\test\" e "*.*"
RmDir “C:\test\”Elenco correntestrPath = CurDir()Questo percorso della cartella di lavorostrPath = ThisWorkbook.PathPassa attraverso tutti i file nella cartella

strFile = Dir(“C:\test” & “\*”)

Do While Len(strFile) > 0
Debug.Print strFile
strFile = Dir
Ciclo continuo

Ritorna su

Fantastico prodotto. AutoMacro non si limita a scrivere il tuo codice, ti insegna mentre procedi!" - Tony, UK

Scopri di più

Leggi le nostre oltre 900 recensioni

matrici

DescrizioneCodice VBACreareDim arr (da 1 a 3) come variante
arr(1) = “uno”
arr(2) = “due”
arr(3) = “tre”Crea da ExcelDim arr (da 1 a 3) come variante
Dim cell As Range, i As Integer
i = LBound(arr)
Per ogni cella nell'intervallo ("A1: A3")
io = io + 1
arr(i) = cella.valore
Cella successivaLeggi tutti gli articoliDim io come Long
Per i = LBound(arr) a UBound(arr)
MsgBox arr(i)
Avanti ioCancellareCancella arrangiamentoDa array a stringaDim sName As String
sName = Join(arr, “:”)Aumenta dimensioneReDim Mantieni arr(da 0 a 100)Valore impostatoarr(1) = 22

Ritorna su

Programmazione VBA | Il generatore di codice funziona per te!

Collezioni

DescrizioneCodice VBACreareDim coll come nuova collezione
coll.Aggiungi “uno”
coll.Aggiungi “due”Crea da ExcelDim coll come nuova collezione
Cella debole come intervallo
Per ogni cella nell'intervallo ("A1: A2")
coll.Aggiungi cella.valore
Cella successivaAggiungi articolocoll.Aggiungi “Valore”Aggiungi elemento primacoll.Aggiungi “Valore”, Prima:=1Aggiungi elemento dopocoll.Aggiungi “Valore”, Dopo:=1Leggi articoloMsgBox coll (1)Conta oggetticoll.ConteggioLeggi tutti gli articoliOggetto scuro come variante
Per ogni articolo In coll
Oggetto MsgBox
Articolo successivoRimuovi oggettocoll.Rimuovi (1)Rimuovi tutti gli elementiImposta coll = Nuova collezione

Ritorna su

Dizionari

DescrizioneCodice VBARiferimento richiestoStrumenti > Riferimenti > Microsoft Scripting RuntimeCreareDim dict As New Scripting.Dictionary
dict.Aggiungi “”
dict.Aggiungi “”Crea da ExcelDim dict As New Scripting.Dictionary
Cella debole come intervallo
Tasto dim come numero intero
Per ogni cella nell'intervallo ("A1: A10")
tasto = tasto + 1
dict.Aggiungi chiave, cella.valore
Cella successivaAggiungi articolodict.Aggiungi “Chiave”, “Valore”Modifica valoredict("Chiave") = "Valore"Ottieni valoreMsgBox dict(“Chiave”)Controlla il valoreSe dict.Exists ("Chiave") Allora
MsgBox “Esiste”
Finisci seRimuovi oggettodict.Rimuovi (“Chiave”)Rimuovi tutti gli elementidict.RimuovituttoPassa attraverso gli elementiTasto Dim Come Variante
Per ogni chiave In dict.Keys
Tasto MsgBox, dict(chiave)
Tasto successivoConta oggettidict.ConteggioFai distinzione tra maiuscole e minuscole Keydict.CompareMode = vbBinaryCompareRendi insensibile le maiuscole/minuscoledict.CompareMode = vbTextCompare

Ritorna su

AutoMacro - Il componente aggiuntivo VBA definitivo

AutoMacro: componente aggiuntivo VBA con centinaia di esempi di codice VBA pronti all'uso e molto altro!

Per saperne di più