VBA Cheat Sheets - Kommandoer og syntakslister

VBA Cheat Sheet PDF (gratis nedlasting)

Last ned vår gratis Excel VBA Cheat Sheet PDF for rask referanse!

nedlasting

VBA jukseark

Se denne siden for lister over alle vanlige VBA -kommandoer og syntaks. Du finner mange grunnleggende kommandoer (f.eks. Sett inn et ark) og noen avanserte syntakser (f.eks. Arbeider med matriser).

Tips:

Bruk CTRL + F for å søke på denne siden.

Legg til bokmerke for denne siden (CTRL + D på Chrome)!

Ark

BeskrivelseVBA -kodeAktiver etter kategorienavnArk ("Inndata"). AktiverAktiver etter VBA -kodenavnArk 1.AktiverAktiver etter indeksposisjonArk (1). AktiverNeste arkActiveSheet.Next.ActivateFå ActiveSheetMsgBox ActiveSheet.NameVelg ArkArk ("Inndata"). VelgSett til variabelDim ws som regneark
Sett ws = ActiveSheetNavn / Gi nytt navnActiveSheet.Name = "Nytt navn"Legg til arkArk. Legg tilLegg til ark og navnSheets.Add.Name = "NewSheet"Legg til ark i variabelDim ws Som regneark
Sett ws = Sheets.AddKopier arkArk ("Ark1"). Kopier før: = Ark ("Ark2")Skjul arkArk ("Ark1"). Synlig = Feil
eller
Ark ("Ark1"). Synlig = xlSheetHiddenSkjul arkArk ("Ark1"). Synlig = sant
eller
Ark ("Ark1"). Synlig = xlSheetVisibleVery Hide SheetArk ("Ark1"). Synlig = xlSheetVeryHiddenSlett arkArk ("Ark1"). SlettKlar arkArk ("Sheet1"). Cells.ClearFjern beskyttelsen (intet passord)Ark ("Ark1"). Beskytter ikkeFjern beskyttelsen (passord)Ark ("Ark1"). Fjern beskyttelsen av "Passord"Beskytt (ikke passord)Ark ("Ark1"). BeskyttBeskytt (passord)Ark ("Ark1"). Beskytt "Passord"Beskytt, men tillat VBA -tilgangArk ("Ark1"). Beskytt UserInterfaceOnly: = True

Tilbake til toppen

Celler og områder

BeskrivelseVBA -kodeAktiver celleOmråde ("B3"). Aktiver
Celler (3,2). AktiverVelg RangeOmråde ("a1: a3"). Velg
Range (Range (“a1”), Range (“a3”)). Velg
Område (celler (1, 1), celler (3, 1)). VelgEndre størrelseOmråde (“B3”). Endre størrelse (2, 2). VelgOffsetOmråde ("B3"). Forskyvning (2, 2) .VelgKopiereOmråde ("A1: B3"). Kopieringsområde ("D1")SkjæreOmråde ("A1: B3"). Klippområde ("D1")SlettOmråde ("A1: B3"). Slett
Område ("A1: B3"). Slett skift: = xlShiftToLeftKlarOmråde ("A1: A3"). Klar
Område ("A1: A3"). ClearContents
Område ("A1: A3"). ClearFormatTelleOmråde ("A1: A3"). AntallSett til variabelDim rng som Range
Sett rng = Range (“A1”)Slå sammen/fjern sammenslåingOmråde ("A1: A3"). Slå sammen
Rekkevidde ("A1: A3"). Opphev sammenslåingLoop Through Cellls

Dim cell As Range

For hver celle i området ("A1: C3")
MsgBox cell. Verdi
Neste celle

Gå tilbake til toppen

Rader

BeskrivelseVBA -kodeAktiverRader (1). Aktiver
Rader ("1: 1"). Aktiver
Område ("a1"). EntireRow.ActivateHøyde breddeOmråde ("A1"). EntireRow.RowHeight = 30SlettOmråde ("A1"). EntireRow.DeleteTelleOmråde ("A1"). Rader.TallSett innOmråde ("A1"). EntireRow.InsertSistedim lRekke så lenge
lRow = Cells (Rows.Count, 1) .End (xlUp) .RowKopiereOmråde ("1: 1"). Kopieringsområde ("5: 5")Sett innOmråde ("1: 1"). Kopier
Område (“5: 5”). Sett inn

Tilbake til toppen

Kolonner

BeskrivelseVBA -kodeAktiverKolonner (1). Aktiver
Kolonner ("a: a"). Aktiver
Område ("a1"). EntireColumn.ActivateHøyde breddeOmråde ("A1"). EntireColumn.ColumnWidth = 30SlettOmråde ("A1"). EntireColumn.DeleteTelleOmråde ("A1"). Kolonner. AntallSett innOmråde ("A1"). Hele kolonnen. Sett innSistedim lCol så lenge
lCol = Celler (1, Columns.Count) .End (xlToLeft) .ColumnKopiereOmråde ("A: A"). Kopieringsområde ("E: E")Sett innOmråde ("A: A"). Kopier
Område (“E: E”). Sett inn

Gå tilbake til toppen

Lei av å søke etter eksempler på VBA -kode? Prøv AutoMacro!

Arbeidsbøker

BeskrivelseVBA -kodeAktiverArbeidsbøker ("Bok1"). AktiverAktiver først åpnetArbeidsbøker (1). AktiverAktiver sist åpnetArbeidsbøker (Workbooks.Count) .AktiverFå ActivateWorkbookMsgBox ActiveWorkbook.NameFå ThisWorkbook (inneholder VBA -kode)MsgBox ThisWorkbook.NameLegge tilArbeidsbøker.Legg tilLegg til variabelDim wb Som arbeidsbok
Sett wb = Workbooks.AddÅpenWorkbooks.Open (“C: \ example.xlsm”)Åpen for variabelDim wb Som arbeidsbok
Sett wb = Workbooks.Open (“C: \ example.xlsm”)LukkWorkbooks (“Book1”). Lukk SaveChanges: = False
Workbooks (“Book1”). Lukk SaveChanges: = TrueLagreArbeidsbøker ("Bok1"). LagreLagre somArbeidsbøker ("Bok1"). SaveAs strFileNameBeskytt/fjern beskyttelsenArbeidsbøker (1). Beskytt “passord”
Arbeidsbøker (1). Beskytt “passord”Sett til variabelDim wb som arbeidsbok
Sett wb = Workbooks (“Book1”)Sløyfe gjennom alle arbeidsbøkene i arbeidsbøker

Dim wb Som arbeidsbok

For hver wb i arbeidsbøker
MsgBox wb.Name
Neste wb

Sjekk finnesHvis Dir (“C: \ Book1.xlsx”) = “” Da
MsgBox "Filen eksisterer ikke."
Slutt omKopi lukketFileCopy “C: \ file1.xlsx”, “C: \ file2.xlsx”

Tilbake til toppen

Innstillinger

BeskrivelseVBA -kodeSkjermoppdateringApplication.ScreenUpdating = Falsk
Application.ScreenUpdating = TrueVis varslerApplication.DisplayAlerts = Falsk
Application.DisplayAlerts = TruearrangementerApplication.EnableEvents = Falsk
Application.EnableEvents = TrueAktiver Avbryt -nøkkelApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptTekst sammenligne - Ignorer sakAlternativ Sammenlign tekstKrev variabel erklæringAlternativ EksplisittAutomatiske beregningerApplication.Calculation = xlManual
Application.Calculation = xlAutomaticBakgrunnsfeilkontrollApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = TrueVis formellinjenApplication.DisplayFormulaBar = Falsk
Application.DisplayFormulaBar = TrueFrys ruterActiveWindow.FreezePanes = Falsk
ActiveWindow.FreezePanes = TrueFullskjermsvisningApplication.DisplayFullScreen = Falsk
Application.DisplayFullScreen = TrueForhåndsvisning av sidenActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewVis rullefeltMed ActiveWindow
.DisplayHorizontalScrollBar = Falsk
.DisplayVerticalScrollBar = Falsk
Avslutt med ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
Slutt medVis statuslinjeApplication.DisplayStatusBar = Falsk
Application.DisplayStatusBar = TrueStatuslinje InnholdApplication.StatusBar = "Jeg jobber nå !!!"
Application.StatusBar = FalskVis faner i arbeidsbokActiveWindow.DisplayWorkbookTabs = Falsk
ActiveWindow.DisplayWorkbookTabs = TrueBrukernavnApplication.UserName = “AutomateExcel.com”ApptekstApplication.Caption = “AutomateExcel Model”ZoomActiveWindow.Zoom = 80

Gå tilbake til toppen

Feil

BeskrivelseVBA -kodePå feil - Stoppkode og visningsfeilVed feil Gå til 0On Error - Hopp over feil og fortsett å kjøreVed feil Fortsett nesteVed feil - Gå til en kodelinje [Etikett]Ved feil Gå til [Etikett]Sletter (tilbakestiller) feilVed feil GoTo -1Vis feilnummerMsgBox Err.NummerVis feilbeskrivelseMsgBox Err.BeskrivelseFunksjon for å generere egen feilErr.Raise

Tilbake til toppen

Filer

BeskrivelseVBA -kodeKopier filFileCopy “C: \ test \ test_old.xlsx”, “C: \ test \ test_new.xlsx”Slett filDrep "C: \ test \ example.xlsx"Lag mappeMkDir “C: \ test \”Slett alle filer fra mappenDrep "C: \ test \" og "*.*"Slett mappeDrep "C: \ test \" og "*.*"
RmDir “C: \ test \”Gjeldende katalogstrPath = CurDir ()ThisWorkbook PathstrPath = ThisWorkbook.PathSløyfe gjennom alle filer i mappen

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

Do While Len (strFile)> 0
Debug.Print strFile
strFile = Dir
Løkke

Tilbake til toppen

Flott produkt. AutoMacro skriver ikke bare koden din, den lærer når du går! " - Tony, Storbritannia

Lære mer

Les våre 900+ anmeldelser

Matriser

BeskrivelseVBA -kodeSkapeDim arr (1 til 3) Som variant
arr (1) = “en”
arr (2) = “to”
arr (3) = “tre”Lag fra ExcelDim arr (1 til 3) Som variant
Dim cell As Range, i As Integer
i = LBound (arr)
For hver celle i området ("A1: A3")
i = i + 1
arr (i) = celleverdi
Neste celleLes alle varerDim i som Long
For i = LBound (arr) Til UBound (arr)
MsgBox arr (i)
Neste jegViske utSlett arrArray to StringDim sName Som streng
sName = Bli med (arr, “:”)Øk størrelseReDim Preserve arr (0 til 100)Angi verdiarr (1) = 22

Tilbake til toppen

VBA -programmering | Kodegenerator fungerer for deg!

Samlinger

BeskrivelseVBA -kodeSkapeDim coll Som ny samling
legg til "en"
legg til «to»Lag fra ExcelDim coll Som ny samling
Dim cell As Range
For hver celle i området ("A1: A2")
legg til celleverdi
Neste celleLegg til elementlegg til «Verdi»Legg til element førlegg til "Verdi", før: = 1Legg til element etterlegg til "Verdi", Etter: = 1Les elementMsgBox coll (1)Tell elementercoll.CountLes alle varerDim element Som variant
For hver vare I koll
MsgBox -element
Neste elementFjerne gjenstandfjerning (1)Fjern alle elementerSett coll = Ny samling

Tilbake til toppen

Ordbøker

BeskrivelseVBA -kodeObligatorisk referanseVerktøy> Referanser> Microsoft Scripting RuntimeSkapeDim dict As New Scripting.Diction
dikter. Legg til “”
dikter. Legg til “”Lag fra ExcelDim dict As New Scripting.Diction
Dim cell As Range
Dim -tast Som Heltall
For hver celle i området ("A1: A10")
nøkkel = nøkkel + 1
dict.Add key, cell.value
Neste celleLegg til elementdict.Add “Key”, “Value”Endre verdidict ("Key") = "Verdi"Få verdiMsgBox dict ("nøkkel")Se etter verdiHvis dict.Exists ("Key") Da
MsgBox "eksisterer"
Slutt omFjerne gjenstanddict.Remove ("nøkkel")Fjern alle elementerdict.RemoveAllSløyfe gjennom elementerDim -tast Som variant
For hver nøkkel I dikt. Nøkler
MsgBox -nøkkel, dict (nøkkel)
Neste nøkkelTelle elementerdikt. telleGjør Key Case Sensitivedict.CompareMode = vbBinaryCompareGjør nøkkelen ufølsomdict.CompareMode = vbTextCompare

Gå tilbake til toppen

AutoMacro - Det ultimate VBA -tillegget

AutoMacro: VBA-tillegg med hundrevis av eksempler på VBA-kode som er klare til bruk og mye mer!

Lære mer