VBA fuskblad - kommandon och syntaxlistor

VBA Cheat Sheet PDF (gratis nedladdning)

Ladda ner vår gratis Excel VBA Cheat Sheet PDF för snabb referens!

Ladda ner

VBA fuskblad

Hänvisa till denna sida för listor över alla vanliga VBA -kommandon och syntax. Du hittar många grundläggande kommandon (t.ex. infoga ett blad) och en del avancerad syntax (t.ex. att arbeta med matriser).

Tips:

Använd CTRL + F för att söka på den här sidan.

Bokmärk den här sidan (CTRL + D i Chrome)!

Ark

BeskrivningVBA -kodAktivera med fliknamnArk ("Inmatning"). AktiveraAktivera med VBA -kodnamnBlad 1.AktiveraAktivera efter indexpositionArk (1) .AktiveraNästa bladActiveSheet.Next.ActivateSkaffa ActiveSheetMsgBox ActiveSheet.NameVälj ArkArk ("Inmatning"). VäljStäll in på variabelDim ws som arbetsblad
Ange ws = ActiveSheetNamn / Byt namnActiveSheet.Name = “Nytt namn”Lägg till bladArk. Lägg tillLägg till blad och namnSheets.Add.Name = “NewSheet”Lägg till blad i variabelDim ws Som arbetsblad
Ange ws = Sheets.AddKopiera bladSheets ("Sheet1"). Kopiera före: = Sheets ("Sheet2")Dölj bladArk ("Ark1"). Synlig = falskt
eller
Sheets ("Sheet1"). Synlig = xlSheetHiddenUnhide SheetSheets ("Sheet1"). Synligt = sant
eller
Sheets ("Sheet1"). Visible = xlSheetVisibleVery Hide SheetSheets ("Sheet1"). Visible = xlSheetVeryHiddenTa bort bladArk ("Ark1"). RaderaTydligt arkArk ("Sheet1"). Cells.ClearAvskydda (inget lösenord)Ark ("Sheet1"). OskyddadAvskydda (lösenord)Kalkylark ("Ark1"). Skydda "Lösenord"Skydda (inget lösenord)Ark ("Ark1"). SkyddaSkydda (lösenord)Ark ("Ark1"). Skydda "Lösenord"Skydda men tillåt VBA -åtkomstSheets ("Sheet1"). Skydda UserInterfaceOnly: = True

Tillbaka till toppen

Celler och intervall

BeskrivningVBA -kodAktivera CellOmråde ("B3"). Aktivera
Celler (3,2) .AktiveraVälj intervallOmråde ("a1: a3"). Välj
Område (intervall ("a1"), intervall ("a3")). Välj
Område (celler (1, 1), celler (3, 1)) .VäljÄndra storlekOmråde ("B3"). Ändra storlek (2, 2) .VäljOffsetOmråde (“B3”). Offset (2, 2) .VäljKopieraOmråde ("A1: B3"). Kopieringsintervall ("D1")SkäraOmråde ("A1: B3"). Klippområde ("D1")RaderaOmråde ("A1: B3"). Radera
Område ("A1: B3"). Radera skift: = xlShiftToLeftKlarOmråde ("A1: A3"). Tydligt
Område ("A1: A3"). ClearContents
Område ("A1: A3"). ClearFormatRäknaOmråde ("A1: A3"). RäknaStäll in på variabelDim rng som Range
Ställ in rng = Range (“A1”)Slå ihop/ta bortOmråde ("A1: A3"). Slå ihop
Område ("A1: A3"). UnMergeLoop Through Cellls

Dim cell As Range

För varje cell i intervallet ("A1: C3")
MsgBox cell. Värde
Nästa cell

Tillbaka till toppen

Rader

BeskrivningVBA -kodAktiveraRader (1) .Aktivera
Rader (“1: 1”). Aktivera
Område ("a1"). EntireRow.ActivateHöjd breddOmråde (“A1”). EntireRow.RowHeight = 30RaderaOmråde ("A1"). EntireRow.DeleteRäknaOmråde ("A1"). Rader. AntalFöra inOmråde ("A1"). EntireRow.InsertSistadim lRad så länge
lRow = Cells (Rows.Count, 1) .End (xlUp) .RowKopieraOmråde ("1: 1"). Kopieringsintervall ("5: 5")Föra inOmråde ("1: 1"). Kopiera
Område (“5: 5”). Infoga

Tillbaka till toppen

Kolumner

BeskrivningVBA -kodAktiveraKolumner (1) .Aktivera
Kolumner ("a: a"). Aktivera
Område ("a1"). EntireColumn.ActivateHöjd breddOmråde ("A1"). EntireColumn.ColumnWidth = 30RaderaOmråde ("A1"). EntireColumn.DeleteRäknaOmråde ("A1"). Kolumner.räkningFöra inOmråde ("A1"). EntireColumn.InsertSistadim lCol så länge
lCol = Cells (1, Columns.Count) .End (xlToLeft) .ColumnKopieraOmråde ("A: A"). Kopieringsintervall ("E: E")Föra inOmråde (“A: A”). Kopiera
Område (“E: E”). Infoga

Tillbaka till toppen

Trött på att söka efter exempel på VBA -kod? Prova AutoMacro!

Arbetsböcker

BeskrivningVBA -kodAktiveraArbetsböcker (“Bok1”). AktiveraAktivera först öppnatArbetsböcker (1) .AktiveraAktivera Senast öppnatArbetsböcker (Workbooks.Count) .AktiveraSkaffa ActivateWorkbookMsgBox ActiveWorkbook.NameSkaffa ThisWorkbook (innehåller VBA -kod)MsgBox ThisWorkbook.NameLägg tillArbetsböcker.Lägg tillLägg till i variabelDim wb Som arbetsbok
Ange wb = Workbooks.AddÖppenWorkbooks.Open (“C: \ example.xlsm”)Öppen för variabelDim wb Som arbetsbok
Ställ in wb = Workbooks.Open (“C: \ example.xlsm”)StängaWorkbooks (“Book1”). Stäng SaveChanges: = False
Workbooks (“Book1”). Stäng SaveChanges: = TrueSparaArbetsböcker ("Bok1"). SparaSpara somWorkbooks (“Book1”). SaveAs strFileNameSkydda/avskyddaArbetsböcker (1). Skydda "lösenord"
Arbetsböcker (1). Skydda "lösenord"Ställ in på variabelDim wb som arbetsbok
Ställ in wb = Workbooks (“Book1”)Loop Through All Workbook in Workbooks

Dim wb Som arbetsbok

För varje wb i arbetsböcker
MsgBox wb.Name
Nästa wb

Kontrollera finnsOm Dir (“C: \ Book1.xlsx”) = “” Sedan
MsgBox "Filen finns inte."
EndIfKopia stängdFileCopy "C: \ file1.xlsx", "C: \ file2.xlsx"

Tillbaka till toppen

inställningar

BeskrivningVBA -kodSkärmuppdateringApplication.ScreenUpdating = Falskt
Application.ScreenUpdating = TrueVisa varningarApplication.DisplayAlerts = Falskt
Application.DisplayAlerts = TrueevenemangApplication.EnableEvents = Falskt
Application.EnableEvents = TrueAktivera Avbryt nyckelApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptTextjämförelse - Ignorera fallAlternativ Jämför textKräv variabeldeklarationAlternativ ExplicitAutomatiska beräkningarApplication.Calculation = xlManual
Application.Calculation = xlAutomaticBakgrundsfelkontrollApplication.ErrorCheckingOptions.BackgroundChecking = Falskt
Application.ErrorCheckingOptions.BackgroundChecking = TrueVisa formelfältetApplication.DisplayFormulaBar = Falskt
Application.DisplayFormulaBar = TrueFrys rutorActiveWindow.FreezePanes = Falskt
ActiveWindow.FreezePanes = TrueHelskärmsvyApplication.DisplayFullScreen = Falskt
Application.DisplayFullScreen = TrueFörhandsvisning av sidbrytningActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewVisa rullningslisterMed ActiveWindow
.DisplayHorizontalScrollBar = Falskt
.DisplayVerticalScrollBar = Falskt
Avsluta med ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
Sluta medVisa statusfältApplication.DisplayStatusBar = Falskt
Application.DisplayStatusBar = TrueStatusfältets innehållApplication.StatusBar = "Jag jobbar nu !!!"
Application.StatusBar = FalsktVisa flikar i arbetsbokenActiveWindow.DisplayWorkbookTabs = Falskt
ActiveWindow.DisplayWorkbookTabs = TrueAnvändarnamnApplication.UserName = “AutomateExcel.com”ApptextningApplication.Caption = “AutomateExcel Model”ZoomActiveWindow.Zoom = 80

Tillbaka till toppen

Fel

BeskrivningVBA -kodOn Error - Stoppkod och visningsfelVid fel Gå till 0Vid fel - Hoppa över fel och fortsätt köraVid fel Återuppta nästaVid fel - Gå till en kodrad [Etikett]Vid fel Gå till [Etikett]Rensar (återställer) felVid fel GoTo -1Visa felnummerMsgBox Err.NummerVisa felbeskrivningMsgBox Err.BeskrivningFunktion för att generera eget felErr.Rise

Tillbaka till toppen

Filer

BeskrivningVBA -kodKopiera filFileCopy “C: \ test \ test_old.xlsx”, “C: \ test \ test_new.xlsx”Radera filDöda "C: \ test \ exempel.xlsx"Skapa mappMkDir “C: \ test \”Ta bort alla filer från mappenDöda "C: \ test \" & "*.*"Ta bort mappDöda "C: \ test \" & "*.*"
RmDir “C: \ test \”Nuvarande katalogstrPath = CurDir ()ThisWorkbook PathstrPath = ThisWorkbook.PathGå igenom alla filer i mappen

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

Gör medan Len (strFile)> 0
Debug.Print strFile
strFile = Dir
Slinga

Tillbaka till toppen

Bra produkt. AutoMacro skriver inte bara din kod, den lär ut när du går! " - Tony, Storbritannien

Läs mer

Läs våra 900+ recensioner

Matriser

BeskrivningVBA -kodSkapaDim arr (1 till 3) som variant
arr (1) = “en”
arr (2) = “två”
arr (3) = “tre”Skapa från ExcelDim arr (1 till 3) som variant
Dim cell As Range, i As Integer
i = LBound (arr)
För varje cell i intervallet ("A1: A3")
i = i + 1
arr (i) = cell.värde
Nästa cellLäs alla artiklarDim i som Long
För i = LBound (arr) Till UBound (arr)
MsgBox arr (i)
Nästa iRaderaRadera arrArray till strängDim sName som sträng
sName = Gå med (arr, “:”)Öka storlekReDim Preserve arr (0 till 100)Satt värdearr (1) = 22

Tillbaka till toppen

VBA -programmering | Kodgenerator fungerar för dig!

Samlingar

BeskrivningVBA -kodSkapaDim coll As New Collection
Lägg till "en"
Lägg till "två"Skapa från ExcelDim coll As New Collection
Dim cell As Range
För varje cell i intervallet ("A1: A2")
coll.Add cell.value
Nästa cellLägg till varaLägg till "Värde"Lägg till artikel innanLägg till ”Värde”, Innan: = 1Lägg till artikel efterLägg till ”Värde”, Efter: = 1Läs artikelMsgBox coll (1)Räkna objektkoll.räkningLäs alla artiklarDim objekt som variant
För varje artikel i koll
MsgBox -objekt
Nästa objektTa bort sakcoll. Ta bort (1)Ta bort alla objektSet coll = Ny samling

Tillbaka till toppen

Ordböcker

BeskrivningVBA -kodObligatorisk referensVerktyg> Referenser> Microsoft Scripting RuntimeSkapaDim dict As New Scripting.Dictionary
dict.Add “”
dict.Add “”Skapa från ExcelDim dict As New Scripting.Dictionary
Dim cell As Range
Dim -tangent som heltal
För varje cell i intervallet ("A1: A10")
nyckel = nyckel + 1
dict.Add key, cell.value
Nästa cellLägg till varadict.Add “Key”, “Value”Ändra värdedict (“Key”) = “Value”Få värdeMsgBox dict ("nyckel")Sök efter värdeIf dict.Exists (“Key”) Då
MsgBox ”existerar”
Avsluta omTa bort sakdict.Remove (“Nyckel”)Ta bort alla objektdict.RemoveAllLoop Through ItemsDim -tangent Som variant
För varje nyckel i dict.Keys
MsgBox -nyckel, dict (key)
Nästa nyckelRäkna objektdict.CountGör Key Case Sensitivedict.CompareMode = vbBinaryCompareGör Key Case okänsligdict.CompareMode = vbTextCompare

Tillbaka till toppen

AutoMacro - Det ultimata VBA -tillägget

AutoMacro: VBA-tillägg med hundratals färdiga VBA-exempel och mycket mer!

Läs mer