Indholdsfortegnelse
VBA Cheat Sheet PDF (gratis download)
Download vores gratis Excel VBA Cheat Sheet PDF for hurtig reference!
Hent
VBA snydeark
Se denne side for lister over alle almindelige VBA -kommandoer og syntaks. Du finder mange grundlæggende kommandoer (f.eks. Indsæt et ark) og nogle avancerede syntaxer (f.eks. Arbejde med arrays).
Tips:
Brug CTRL + F til at søge på denne side.
Bogmærk denne side (CTRL + D i Chrome)!
Ark
BeskrivelseVBA -kodeAktiver ved fanenavnArk ("Input"). AktiverAktiver ved VBA -kodenavnArk 1.AktiverAktiver efter indekspositionArk (1) .AktiverNæste arkActiveSheet.Next.ActivateHent ActiveSheetMsgBox ActiveSheet.NameVælg ArkArk ("Input"). VælgIndstil til variabelDim ws som regnearkIndstil ws = ActiveSheetNavn / OmdøbActiveSheet.Name = "Nyt navn"Tilføj arkArk. TilføjTilføj ark og navnSheets.Add.Name = "NewSheet"Tilføj ark til variabelDim ws Som regneark
Indstil ws = Sheets.AddKopier arkArk ("Ark1"). Kopi før: = Ark ("Ark2")Skjul arkArk ("Ark1"). Synlig = Falsk
eller
Ark ("Ark1"). Synlig = xlSheetHiddenSkjul arkArk ("Ark1"). Synligt = sandt
eller
Ark ("Ark1"). Synlig = xlSheetVisibleMeget skjul arkArk ("Ark1"). Synlig = xlSheetVeryHiddenSlet arkArk ("Ark1"). SletKlar arkArk ("Ark1"). Celler.KlarFjern beskyttelse (ingen adgangskode)Ark ("Ark1"). BeskyttetFjern beskyttelse (adgangskode)Ark ("Sheet1"). Fjern beskyttelsen af "Password"Beskyt (ingen adgangskode)Ark ("Ark1"). BeskytBeskyt (adgangskode)Ark ("Ark1"). Beskyt "Adgangskode"Beskyt, men tillad VBA -adgangArk ("Sheet1"). Beskyt UserInterfaceOnly: = True
Tilbage til toppen
Celler og områder
BeskrivelseVBA -kodeAktiver celleOmråde ("B3"). AktiverCeller (3,2) .AktiverVælg områdeOmråde ("a1: a3"). Vælg
Range (Range (“a1”), Range (“a3”)). Vælg
Område (celler (1, 1), celler (3, 1)) .VælgÆndre størrelsenOmråde ("B3"). Tilpas størrelse (2, 2) .VælgForskydningOmråde ("B3"). Offset (2, 2) .VælgKopiOmråde ("A1: B3"). Kopieringsområde ("D1")SkæreOmråde ("A1: B3"). Skær rækkevidde ("D1")SletOmråde ("A1: B3"). Slet
Område ("A1: B3"). Slet skift: = xlShiftToLeftKlarOmråde ("A1: A3"). Klar
Område (“A1: A3”). ClearContents
Område (“A1: A3”). ClearFormatTælleOmråde ("A1: A3"). AntalIndstil til variabelDim rng som Range
Indstil rng = Range (“A1”)Flet/Fjern fletningOmråde ("A1: A3"). Flet
Rækkevidde ("A1: A3"). Fjern fletningLoop Through Cellls
Dim celle som område
For hver celle i området ("A1: C3")
MsgBox celle. Værdi
Næste celle
Tilbage til toppen
Rækker
BeskrivelseVBA -kodeAktiverRækker (1) .AktiverRækker ("1: 1"). Aktiver
Område ("a1"). EntireRow.ActivateHøjde breddeOmråde (“A1”). EntireRow.RowHeight = 30SletOmråde ("A1"). EntireRow.DeleteTælleOmråde ("A1"). Rækker.TællingIndsætOmråde ("A1"). EntireRow.InsertSidstdim lRække så længe
lRække = Celler (Rækker.Tælling, 1) .Slut (xlUp) .RækkeKopiOmråde ("1: 1"). Kopieringsområde ("5: 5")IndsætOmråde ("1: 1"). Kopiér
Område (“5: 5”). Indsæt
Tilbage til toppen
Kolonner
BeskrivelseVBA -kodeAktiverKolonner (1) .AktiverKolonner ("a: a"). Aktiver
Område ("a1"). EntireColumn.ActivateHøjde breddeOmråde ("A1"). EntireColumn.ColumnWidth = 30SletOmråde ("A1"). EntireColumn.DeleteTælleOmråde ("A1"). Kolonner.TællingIndsætOmråde ("A1"). EntireColumn.InsertSidstdæmpet lCol så længe
lCol = Celler (1, Columns.Count) .End (xlToLeft) .ColumnKopiOmråde ("A: A"). Kopieringsområde ("E: E")IndsætOmråde (“A: A”). Kopiér
Område (“E: E”). Indsæt
Tilbage til toppen
Træt af at søge efter eksempler på VBA -kode? Prøv AutoMacro!
Arbejdsbøger
BeskrivelseVBA -kodeAktiverArbejdsbøger ("Bog1"). AktiverAktiver først åbnetArbejdsbøger (1) .AktiverAktiver sidst åbnetWorkbooks (Workbooks.Count) .AktiverHent ActivateWorkbookMsgBox ActiveWorkbook.NameHent ThisWorkbook (indeholdende VBA -kode)MsgBox ThisWorkbook.NameTilføjeWorkbooks.AddTilføj til variabelDim wb Som projektmappeIndstil wb = Workbooks.AddÅbenWorkbooks.Open (“C: \ example.xlsm”)Åben for variabelDim wb Som projektmappe
Indstil wb = Workbooks.Open (“C: \ example.xlsm”)TætWorkbooks (“Book1”). Luk SaveChanges: = Falsk
Workbooks (“Book1”). Luk SaveChanges: = TrueGemmeArbejdsbøger ("Bog1"). GemGem somWorkbooks ("Book1"). SaveAs strFileNameBeskyt/fjern beskyttelseArbejdsbøger (1). Beskyt “adgangskode”
Arbejdsbøger (1). Beskyt “adgangskode”Indstil til variabelDim wb som projektmappe
Indstil wb = Workbooks (“Bog1”)Sløjfe igennem alle projektmapper i projektmapper
Dim wb Som projektmappe
For hver wb i projektmapper
MsgBox wb.Name
Næste wb
MsgBox "Filen findes ikke."
Afslut HvisKopi lukketFileCopy "C: \ file1.xlsx", "C: \ file2.xlsx"
Tilbage til toppen
Indstillinger
BeskrivelseVBA -kodeSkærmopdateringApplication.ScreenUpdating = FalskApplication.ScreenUpdating = TrueVis advarslerApplication.DisplayAlerts = Falsk
Application.DisplayAlerts = TrueBegivenhederApplication.EnableEvents = Falsk
Application.EnableEvents = TrueAktiver Annuller -tastApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptSammenlign tekst - Ignorer sagMulighed Sammenlign tekstKræv variabel erklæringMulighed eksplicitAutomatiske beregningerApplication.Calculation = xlManual
Beregning = xlAutomatiskBaggrundsfejlkontrolApplication.ErrorCheckingOptions.BackgroundChecking = Falsk
Application.ErrorCheckingOptions.BackgroundChecking = TrueVis formelbjælkeApplication.DisplayFormulaBar = Falsk
Application.DisplayFormulaBar = TrueFrys ruderActiveWindow.FreezePanes = Falsk
ActiveWindow.FreezePanes = SandtFuld skærmvisningApplication.DisplayFullScreen = Falsk
Application.DisplayFullScreen = TrueSideBreak -forhåndsvisningActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewVis rullepanelerMed ActiveWindow
.DisplayHorizontalScrollBar = Falsk
.DisplayVerticalScrollBar = Falsk
Afslut medWith ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
Afslut medVis statuslinjeApplication.DisplayStatusBar = Falsk
Application.DisplayStatusBar = TrueStatuslinje IndholdApplication.StatusBar = "Jeg arbejder nu !!!"
Application.StatusBar = FalskVis faner i projektmappenActiveWindow.DisplayWorkbookTabs = Falsk
ActiveWindow.DisplayWorkbookTabs = TrueBrugernavnApplication.UserName = “AutomateExcel.com”App CaptionApplication.Caption = “AutomateExcel Model”ZoomActiveWindow.Zoom = 80
Tilbage til toppen
Fejl
BeskrivelseVBA -kodeOn Error - Stop kode og vis fejlVed fejl Gå til 0Ved fejl - Spring fejl over, og fortsæt med at køreVed fejl Genoptag næsteVed fejl - Gå til en kodelinje [Etiket]Ved fejl Goto [Label]Sletter (nulstiller) fejlVed fejl GoTo -1Vis fejlnummerMsgBox Err.NummerVis fejlbeskrivelseMsgBox Err.BeskrivelseFunktion til at generere egen fejlErr.RaiseTilbage til toppen
Filer
BeskrivelseVBA -kodeKopier filFileCopy “C: \ test \ test_old.xlsx”, “C: \ test \ test_new.xlsx”Slet filDræb "C: \ test \ example.xlsx"Lav mappeMkDir “C: \ test \”Slet alle filer fra mappeDræb "C: \ test \" & "*.*"Slet mappeDræb "C: \ test \" & "*.*"RmDir “C: \ test \”Nuværende bibliotekstrPath = CurDir ()ThisWorkbook PathstrPath = ThisWorkbook.PathLoop gennem alle filer i mappen
strFile = Dir (“C: \ test” & “\*”)
Gør Mens Len (strFile)> 0
Debug.Print strFile
strFile = Dir
Sløjfe
Tilbage til toppen
Fantastisk produkt. AutoMacro skriver ikke bare din kode, den lærer, mens du går! " - Tony, Storbritannien
Lær mereLæs vores 900+ anmeldelser
Arrays
BeskrivelseVBA -kodeskabDim arr (1 til 3) Som variantarr (1) = "en"
arr (2) = “to”
arr (3) = “tre”Opret 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) = celle.værdi
Næste celleLæs alle varerDim i som lang
For i = LBound (arr) Til UBound (arr)
MsgBox arr (i)
Næste iSletteSlet arrArray til strengDim sName som streng
sName = Deltag (arr, “:”)Forøg størrelseReDim Bevar arr (0 til 100)Indstil værdiarr (1) = 22
Tilbage til toppen
VBA -programmering | Kodegenerator virker for dig!
Samlinger
BeskrivelseVBA -kodeskabDim coll Som ny samlingtilføj "en"
tilføj "to"Opret fra ExcelDim coll Som ny samling
Dim celle som område
For hver celle i området ("A1: A2")
tilføj celleværdi
Næste celleTilføj elementtilføj "Værdi"Tilføj element førtilføj “Værdi”, før: = 1Tilføj element eftertilføj “Værdi”, Efter: = 1Læs vareMsgBox coll (1)Tæl varercoll.TællingLæs alle varerDim element Som variant
For hver vare I coll
MsgBox -element
Næste elementFjern elementfjern. (1)Fjern alle varerSet coll = Ny samling
Tilbage til toppen
Ordbøger
BeskrivelseVBA -kodePåkrævet referenceVærktøjer> Referencer> Microsoft Scripting RuntimeskabDim dict som ny scripting. Ordbogdikter. Tilføj “”
dikter. Tilføj “”Opret fra ExcelDim dict som ny scripting. Ordbog
Dim celle som område
Dim -tast Som heltal
For hver celle i området ("A1: A10")
nøgle = nøgle + 1
dict.Add key, cell.value
Næste celleTilføj elementdict.Add “Nøgle”, “Værdi”Skift værdidict (“Key”) = “Value”Få værdiMsgBox dict ("nøgle")Kontroller værdienHvis dict.Exists ("Key") derefter
MsgBox "eksisterer"
Afslut HvisFjern elementdict.Remove ("nøgle")Fjern alle varerdict.RemoveAllSløjfe gennem elementerDim -tast Som variant
For hver nøgle I dikt. Nøgler
MsgBox -nøgle, dict (nøgle)
Næste nøgleTæl varerdikt.TællingGør nøgletal følsomtdict.CompareMode = vbBinaryCompareGør nøgletal ufølsomtdict.CompareMode = vbTextCompare
Tilbage til toppen
AutoMacro - Den ultimative VBA -tilføjelse
AutoMacro: VBA-tilføjelse med hundredvis af klar-til-brug-VBA-kodeeksempler og meget mere!
Lær mere
