VBA Cheat Sheets - Parancsok és szintaxislisták

VBA Cheat Sheet PDF (ingyenes letöltés)

Töltse le ingyenes Excel VBA Cheat Sheet PDF dokumentumunkat a gyors hivatkozás érdekében!

Letöltés

VBA csalólapok

Ezen az oldalon találja az összes gyakori VBA parancs és szintaxis listáját. Sok alapvető parancsot (pl. Munkalap beszúrása) és néhány speciális szintaxist talál (pl. Tömbökkel való munka).

Tippek:

A CTRL + F billentyűkombinációval kereshet ezen az oldalon.

Könyvjelzővel látja el ezt az oldalt (CTRL + D a Chrome -on)!

Ágynemű

LeírásVBA kódAktiválás a lap neve alapjánTáblázatok („Bemenet”)Aktiválás VBA kódnévvel1. lap. AktiválásAktiválás index pozícióvalTáblázatok (1). AktiválásKövetkező lapActiveSheet.Next.ActivateSzerezze be az ActiveSheet -etMsgBox ActiveSheet.NameVálassza a Lap lehetőségetTáblázatok („Bemenet”)Változó beállításaDim ws munkalapként
Állítsa be ws = ActiveSheetNév / ÁtnevezésActiveSheet.Name = "Újnév"Lap hozzáadásaLapok. HozzáadásAdja hozzá a lapot és a nevetSheets.Add.Name = „NewSheet”Adja hozzá a lapot a változóhozDim ws munkalapként
Állítsa be a ws = Sheets.AddLap másolásaTáblázatok („Sheet1”). Másolás előtt: = Sheets („Sheet2”)Lap elrejtéseTáblázatok („Sheet1”). Látható = Hamis
vagy
Táblázatok („Sheet1”). Látható = xlSheetHiddenTáblázat megjelenítéseTáblázatok („Lap1”). Látható = Igaz
vagy
Táblázatok („Sheet1”). Visible = xlSheetVisibleNagyon elrejtett lapTáblázatok („Sheet1”). Visible = xlSheetVeryHiddenLap törléseTáblázatok („Sheet1”). TörlésTiszta lapTáblázatok („1. lap”). SejtekVédelem feloldása (nincs jelszó)Táblázatok („Sheet1”). Védelem megszüntetéseVédelem feloldása (jelszó)Táblázatok („Sheet1”). A „Jelszó” védelmének feloldásaVédelem (nincs jelszó)Táblázatok („Sheet1”)Védelem (jelszó)Táblázatok („Sheet1”). Védje a „Jelszót”Védje, de engedélyezze a VBA -hozzáféréstTáblázatok („Sheet1”). UserInterfaceOnly védelme: = Igaz

Vissza a tetejére

Sejtek és tartományok

LeírásVBA kódA Cell aktiválásaTartomány („B3”)
Sejtek (3,2). AktiválásVálassza a Tartomány lehetőségetTartomány („a1: a3”). Válassza ki
Tartomány (Tartomány („a1”), Tartomány („a3”)). Válassza ki
Tartomány (cellák (1, 1), cellák (3, 1)). Válassza kiÁtméretezésTartomány („B3”). Átméretezés (2, 2). Válassza kiEltolásTartomány („B3”). Eltolás (2, 2). Válassza kiMásolatTartomány („A1: B3”). Másolási tartomány („D1”)VágottTartomány („A1: B3”). Vágási tartomány („D1”)TörölTartomány („A1: B3”). Törlés
Tartomány („A1: B3”). Törlés eltolása: = xlShiftToLeftEgyértelműTartomány („A1: A3”)
Tartomány („A1: A3”). ClearContents
Tartomány („A1: A3”). ClearFormatSzámolTartomány („A1: A3”)Változó beállításaDim rng mint tartomány
Állítsa be az rng = tartományt („A1”)Merge/UnMergeTartomány („A1: A3”). Egyesítés
Tartomány („A1: A3”)Loop keresztül cellák

Homályos cella mint tartomány

A tartomány minden cellájához („A1: C3”)
MsgBox cella. Érték
Következő cella

Vissza a tetejére

Sorok

LeírásVBA kódAktiváljaSorok (1). Aktiválás
Sorok („1: 1”). Aktiválja
Tartomány („a1”). EntireRow.ActivateMagasság szélességTartomány („A1”). EntireRow.RowHeight = 30TörölTartomány („A1”) .EtireRow.DeleteSzámolTartomány („A1”). Sorok. SzámBeszúrásTartomány („A1”) .EtireRow.InsertUtolsóhalvány lSor, ameddig
lRow = cellák (sorok száma, 1). vége (xlUp). sorMásolatTartomány („1: 1”). Másolási tartomány („5: 5”)BeszúrásTartomány („1: 1”). Másolás
Tartomány („5: 5”)

Vissza a tetejére

Oszlopok

LeírásVBA kódAktiváljaOszlopok (1). Aktiválás
Oszlopok („a: a”)
Tartomány („a1”). Teljes oszlop. AktiválásMagasság szélességTartomány („A1”). Teljes oszlop. Oszlopszélesség = 30TörölTartomány („A1”). Teljes oszlop. TörlésSzámolTartomány („A1”). Oszlopok. SzámBeszúrásTartomány („A1”). EntireColumn.InsertUtolsóhalvány lCol olyan sokáig
lCol = Cellak (1, Oszlopok. Szám). Vége (xlToLeft). OszlopMásolatTartomány („A: A”). Másolási tartomány („E: E”)BeszúrásTartomány („A: A”). Másolat
Tartomány („E: E”)

Vissza a tetejére

Unod már a VBA kódpéldák keresését? Próbálja ki az AutoMacro -t!

Munkafüzetek

LeírásVBA kódAktiváljaMunkafüzetek („Könyv1”). AktiválásElső megnyitás aktiválásaMunkafüzetek (1). AktiválásUtolsó megnyitás aktiválásaMunkafüzetek (Workbooks.Count). AktiválásTöltse le az ActivateWorkbookotMsgBox ActiveWorkbook.NameGet ThisWorkbook (VBA kódot tartalmaz)MsgBox ThisWorkbook.NameHozzáadásMunkafüzetekHozzáadás a változóhozDim wb Mint munkafüzet
Állítsa be a wb = Workbooks.AddNyisd kiMunkafüzetek. Nyissa meg („C: \ example.xlsm”)Nyitott a változóraDim wb Mint munkafüzet
Állítsa be a wb = Workbooks.Open ("C: \ example.xlsm")BezárásMunkafüzetek („Könyv1”). Bezárás SaveChanges: = Hamis
Munkafüzetek („Könyv1”). Bezárás SaveChanges: = TrueMegmentMunkafüzetek („Könyv1”). MentésMentés máskéntMunkafüzetek („Könyv1”). SaveAs strFileNameVédelem/védelem megszüntetéseMunkafüzetek (1). Védje a „jelszót”
Munkafüzetek (1). A „jelszó” védelmének feloldásaVáltozó beállításaDim wb munkafüzetként
Set wb = Munkafüzetek („Könyv1”)Az összes munkafüzet áttekintése a munkafüzetekben

Dim wb Mint munkafüzet

Minden wb -hez a munkafüzetekben
MsgBox wb.Name
Következő wb

Ellenőrizze a Létezik lehetőségetHa Dir („C: \ Book1.xlsx”) = „” Akkor
MsgBox "A fájl nem létezik."
EndIfMásolás zárvaFileCopy „C: \ file1.xlsx”, „C: \ file2.xlsx”

Vissza a tetejére

Beállítások

LeírásVBA kódKépernyő frissítéseApplication.ScreenUpdating = Hamis
Application.ScreenUpdating = IgazRiasztások megjelenítéseApplication.DisplayAlerts = Hamis
Application.DisplayAlerts = IgazEseményekApplication.EnableEvents = Hamis
Application.EnableEvents = IgazMégse gomb engedélyezéseApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptSzöveg összehasonlítás - Kis- és nagybetűk figyelmen kívül hagyásaOpció Szöveg összehasonlításaVáltozó nyilatkozatot igényelExplicit lehetőségAutomatikus számításokApplication.Calculation = xlManual
Alkalmazás. Számítás = xlAutomatikusHáttérhiba ellenőrzésApplication.ErrorCheckingOptions.BackgroundChecking = Hamis
Application.ErrorCheckingOptions.BackgroundChecking = IgazKépletsáv megjelenítéseApplication.DisplayFormulaBar = Hamis
Application.DisplayFormulaBar = IgazBefagyasztó panelekActiveWindow.FreezePanes = Hamis
ActiveWindow.FreezePanes = IgazTeljes képernyős nézetApplication.DisplayFullScreen = Hamis
Application.DisplayFullScreen = IgazPageBreak PreviewActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewGörgetősávok megjelenítéseActiveWindow -val
.DisplayHorizontalScrollBar = Hamis
.DisplayVerticalScrollBar = Hamis
Vége ActiveWindow -val
.DisplayHorizontalScrollBar = Igaz
.DisplayVerticalScrollBar = Igaz
Vége ezzelÁllapotsor megjelenítéseApplication.DisplayStatusBar = Hamis
Application.DisplayStatusBar = IgazÁllapotsor tartalmaApplication.StatusBar = "Most dolgozom !!!"
Application.StatusBar = HamisMunkafüzet lapok megjelenítéseActiveWindow.DisplayWorkbookTabs = Hamis
ActiveWindow.DisplayWorkbookTabs = IgazFelhasználónévApplication.UserName = „AutomateExcel.com”AlkalmazásfeliratApplication.Caption = “AutomateExcel Model”ZoomolásActiveWindow.Zoom = 80

Vissza a tetejére

Hibák

LeírásVBA kódOn Error - Stop kód és megjelenítési hibaHiba: Goto 0On Error - Kihagyja a hibát, és folytatja a futástHiba esetén Folytassa a következőtHiba esetén - Ugrás a kód sorára [Címke]Hiba a hiba miatt [címke]Törli (visszaállítja) a hibátGoTo -1 hiba eseténHiba szám megjelenítéseMsgBox hibaszámHiba leírásának megjelenítéseMsgBox Err. LeírásFunkció saját hiba generálásáraErr. Emelje fel

Vissza a tetejére

Fájlok

LeírásVBA kódFájl másolás, fájl másolásaFileCopy "C: \ test \ test_old.xlsx", "C: \ test \ test_new.xlsx"Fájl törlése„C: \ test \ example.xlsx” megöléseMappa készítéseMkDir „C: \ teszt”Az összes fájl törlése a mappábólÖld meg a „C: \ test \” és a „*.*”Mappa törléseÖld meg a „C: \ test \” és a „*.*”
RmDir „C: \ teszt”Aktuális címtárstrPath = CurDir ()Ez a munkakönyv útvonalastrPath = ThisWorkbook.PathLépjen végig a mappában lévő összes fájlon

strFile = Dir ("C: \ teszt" és "\*")

Csináld közben Len (strFile)> 0
Hibakeresés. StrFile nyomtatása
strFile = Irány
Hurok

Vissza a tetejére

Nagyszerű termék. Az AutoMacro nem csak írja a kódját, hanem menet közben is tanít! " - Tony, Egyesült Királyság

Tudj meg többet

Olvassa el 900+ véleményünket

Tömbök

LeírásVBA kódTeremtDim arr (1 - 3) Variantként
arr (1) = „egy”
arr (2) = „kettő”
arr (3) = „három”Hozzon létre ExcelbőlDim arr (1 - 3) Variantként
Homályos cella mint tartomány, és mint egész
i = LBound (arr)
A tartomány minden cellájához („A1: A3”)
i = i + 1
arr (i) = cella.érték
Következő cellaOlvassa el az összes elemetDim i as Long
I = LBound (arr) - UBound (arr)
MsgBox arr (i)
Következő iTörliTörlés arrTömb karakterlánchozDim sName As String
sName = Csatlakozás (arr, “:”)Méret növeléseReDim Preserve arr (0 és 100 között)Érték beállításaarr (1) = 22

Vissza a tetejére

VBA programozás | A kódgenerátor működik az Ön számára!

Gyűjtemények

LeírásVBA kódTeremtDim coll As New Collection
coll. Adja hozzá az „egyet”
coll. Adja hozzá a „kettőt”Hozzon létre ExcelbőlDim coll As New Collection
Homályos cella mint tartomány
A tartomány minden cellájához („A1: A2”)
coll.Cella hozzáadása.érték
Következő cellaElem hozzáadásacoll. Adja hozzá az „Value” értéketTétel hozzáadása előttecoll. Add „Value”, Before: = 1Elem hozzáadása utáncoll.Add "Value", After: = 1Tétel olvasásaMsgBox kollázs (1)Elemek számolásakoll.számlálásOlvassa el az összes elemetDim item As Variant
Minden egyes cikkhez Összefoglalva
MsgBox elem
Következő elemElem eltávolításakoll. Eltávolítás (1)Minden elem eltávolításaSet coll = Új gyűjtemény

Vissza a tetejére

Szótárak

LeírásVBA kódKötelező hivatkozásEszközök> Hivatkozások> Microsoft Scripting RuntimeTeremtDim dict As New Scripting.Dictionary
dict.Ad ""
dict.Ad ""Hozzon létre ExcelbőlDim dict As New Scripting.Dictionary
Homályos cella mint tartomány
Dim gomb Egész számként
A tartomány minden cellájához („A1: A10”)
kulcs = kulcs + 1
dict.Add key, cell.value
Következő cellaElem hozzáadásadict. Adja hozzá a „Kulcs”, „Érték” értéketÉrték módosításadict („Kulcs”) = „Érték”Értéket szerezniMsgBox dict („Kulcs”)Ellenőrizze az értéketHa dikt.Létezik („Kulcs”) Akkor
MsgBox „Létezik”
Vége HaElem eltávolításadict.Remove („Kulcs”)Minden elem eltávolításadict.RemoveAllLoop keresztül elemekDim gomb Variantként
Minden kulcshoz Dict.Keys
MsgBox kulcs, dict (kulcs)
Következő kulcsElemek számolásadikt. SzámLegyen érzékeny a kis- és nagybetűk közöttdict.CompareMode = vbBinaryCompareTegye érzéketlenné a kulcsbetűketdict.CompareMode = vbTextCompare

Vissza a tetejére

AutoMacro - A végső VBA bővítmény

AutoMacro: VBA bővítmény több száz használatra kész VBA kód példával és még sok mással!

Tudj meg többet