Foi de cheat VBA - Comenzi și liste de sintaxă

VBA Cheat Sheet PDF (Descărcare gratuită)

Descărcați PDF-ul nostru gratuit VBA Cheat Sheet pentru referințe rapide!

Descarca

Foi de înșelăciune VBA

Consultați această pagină pentru listele tuturor comenzilor și sintaxei VBA comune. Veți găsi multe comenzi de bază (de exemplu, introduceți o foaie) și o sintaxă avansată (de exemplu, lucrați cu tablouri).

Sfaturi:

Utilizați CTRL + F pentru a căuta pe această pagină.

Marcați această pagină (CTRL + D pe Chrome)!

Foi

DescriereCodul VBAActivați după numele filelorFoi de calcul („Introducere”). ActivațiActivați după numele codului VBAFoaie 1. ActivațiActivați după poziția indexuluiFoi (1). ActivațiFoaia următoareActiveSheet.Next.ActivateObțineți ActiveSheetMsgBox ActiveSheet.NameSelectați FoaieFoi de calcul („Introducere”). SelectațiSetați la VariabilăDim ws ca Foaie de lucru
Setați ws = ActiveSheetNume / RedenumireActiveSheet.Name = „NewName”Adăugați o foaieFoi. AdăugațiAdăugați foaie și numeSheets.Add.Name = „Foaie nouă”Adăugați o foaie la variabilăDim ws Ca foaie de lucru
Set ws = Sheets.AddCopiați foaiaFoi („Sheet1”). Copiați înainte: = Foi („Sheet2”)Ascundeți foaiaFoi („Sheet1”). Vizibil = False
sau
Foi („Sheet1”). Visible = xlSheetHiddenAfișează foaiaFoi de calcul („Foaie1”). Vizibil = Adevărat
sau
Foi („Sheet1”). Vizibil = xlSheetVisibleFoarte ascunde foaiaFoi de calcul („Sheet1”). Vizibil = xlSheetVeryHiddenȘtergeți foaiaFoi („Sheet1”). ȘtergețiȘtergeți foaiaFoi („Sheet1”). Celule.ClarAnulați protecția (fără parolă)Foi („Foaie1”). NeprotejațiAnulați protecția (parola)Foi de calcul („Foaie1”). Dezactivați „Parola”Protejați (fără parolă)Foi („Sheet1”). ProtejațiProtejați (parola)Foi de calcul („Foaie1”). Protejați „Parola”Protejați, dar permiteți accesul VBAFoi de calcul („Sheet1”). Protejați UserInterfaceOnly: = True

Reveniți în partea de sus

Celule și intervale

DescriereCodul VBAActivați celulaGama („B3”). Activați
Celule (3,2). ActivațiSelectați RangeRange („a1: a3”). Selectați
Range (Range („a1”), Range („a3”)). Selectați
Gama (celule (1, 1), celule (3, 1)). SelectațiRedimensionațiGama („B3”). Redimensionare (2, 2). SelectațiDecalajRange („B3”). Offset (2, 2). SelectațiCopieGama („A1: B3”). Gama de copiere („D1”)A tăiaGama („A1: B3”). Gama de tăiere („D1”)ȘtergeInterval („A1: B3”). Ștergeți
Range („A1: B3”). Ștergeți shift: = xlShiftToLeftclarGama („A1: A3”). Ștergeți
Gama („A1: A3”). ClearContents
Gama („A1: A3”). ClearFormatNumaraInterval („A1: A3”). NumărSetați la VariabilăDim rng ca Range
Setați rng = Range („A1”)Merge / UnMergeInterval („A1: A3”). Îmbinați
Interval („A1: A3”). UnMergeBuclă prin celule

Dim celula ca interval

Pentru fiecare celulă din interval („A1: C3”)
Celula MsgBox.Value
Următoarea celulă

Reveniți în partea de sus

Rânduri

DescriereCodul VBAActivatiRânduri (1). Activați
Rânduri („1: 1”). Activați
Range („a1”). EntireRow.ActivateÎnălțime lățimeRange („A1”). EntireRow.RowHeight = 30ȘtergeRange („A1”). EntireRow.DeleteNumaraGama („A1”). Rânduri.NumărIntroduceRange („A1”). EntireRow.InsertUltimuldim lRow cât timp
lRow = Celule (Rows.Count, 1). End (xlUp) .RowCopieGama („1: 1”). Gama de copiere („5: 5”)IntroduceGama („1: 1”). Copiați
Gama („5: 5”). Introduceți

Reveniți în partea de sus

Coloane

DescriereCodul VBAActivatiColoane (1). Activați
Coloane („a: a”). Activați
Range („a1”). EntireColumn.ActivateÎnălțime lățimeGama („A1”). EntireColumn.ColumnWidth = 30ȘtergeRange („A1”). EntireColumn.DeleteNumaraInterval („A1”). Coloane. NumărIntroduceRange („A1”). EntireColumn.InsertUltimuldim lCol cât timp
lCol = Celule (1, Columns.Count) .End (xlToLeft) .ColumnCopieGama („A: A”). Gama de copiere („E: E”)IntroduceGama („A: A”). Copiați
Gama („E: E”). Introduceți

Reveniți în partea de sus

V-ați săturat să căutați exemple de cod VBA? Încercați AutoMacro!

Cărți de lucru

DescriereCodul VBAActivatiCărți de lucru („Book1”). ActivațiActivați prima deschidereCărți de lucru (1). ActivațiActivați ultima deschidereCărți de lucru (Workbooks.Count). ActivațiObțineți ActivateWorkbookMsgBox ActiveWorkbook.NameObțineți acest manual (care conține cod VBA)MsgBox ThisWorkbook.NameAdăugaCărți de lucru.AdăugareAdăugați la VariabilăDim wb Ca registru de lucru
Setați wb = Workbooks.AddDeschisCărți de lucru.Open („C: \ example.xlsm”)Deschis la VariabilăDim wb Ca registru de lucru
Setați wb = Workbooks.Open („C: \ example.xlsm”)ÎnchideCărți de lucru („Book1”). Închideți SaveChanges: = False
Cărți de lucru („Book1”). Închideți SaveChanges: = TrueSalvațiCărți de lucru („Book1”). SalvațiSalvează caCărți de lucru („Book1”). SaveAs strFileNameProtejați / NeprotejațiCărți de lucru (1). Protejați „parola”
Cărți de lucru (1). Dezprotejați „parola”Setați la VariabilăDim wb ca registru de lucru
Set wb = Workbooks („Book1”)Buclați prin toate registrele de lucru din registrele de lucru

Dim wb Ca registru de lucru

Pentru fiecare wb din registrele de lucru
MsgBox wb.Name
Următorul wb

Verifică ExistaDacă Dir („C: \ Book1.xlsx”) = „” Atunci
MsgBox „Fișierul nu există”.
EndIfCopie închisăFileCopy „C: \ file1.xlsx”, „C: \ file2.xlsx”

Reveniți în partea de sus

Setări

DescriereCodul VBAActualizarea ecranuluiApplication.ScreenUpdating = Fals
Application.ScreenUpdating = AdevăratAfișați alerteApplication.DisplayAlerts = Fals
Application.DisplayAlerts = AdevăratEvenimenteApplication.EnableEvents = Fals
Application.EnableEvents = AdevăratActivați tasta de anulareApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptComparare text - Ignorați majusculeOpțiune Comparați textulSolicitați o declarație variabilăOpțiune explicităCalcule automateApplication.Calculation = xlManual
Aplicație.Calcul = xlAutomaticVerificarea erorilor de fundalApplication.ErrorCheckingOptions.BackgroundChecking = Fals
Application.ErrorCheckingOptions.BackgroundChecking = AdevăratAfișați bara de formuleApplication.DisplayFormulaBar = Fals
Application.DisplayFormulaBar = AdevăratÎnghețare panouriActiveWindow.FreezePanes = Fals
ActiveWindow.FreezePanes = AdevăratVizualizare ecran completApplication.DisplayFullScreen = Fals
Application.DisplayFullScreen = AdevăratPageBreak PreviewActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewAfișați bare de derulareCu ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
Încheiați cuWindowWindow
.DisplayHorizontalScrollBar = Adevărat
.DisplayVerticalScrollBar = Adevărat
Se termina cuAfișează bara de stareApplication.DisplayStatusBar = Fals
Application.DisplayStatusBar = AdevăratConținutul barei de stareApplication.StatusBar = „Lucrez acum !!!”
Application.StatusBar = FalseAfișați filele din Registrul de lucruActiveWindow.DisplayWorkbookTabs = Fals
ActiveWindow.DisplayWorkbookTabs = AdevăratNume de utilizatorApplication.UserName = „AutomateExcel.com”Legenda aplicațieiApplication.Caption = „Modelul AutomateExcel”ZoomActiveWindow.Zoom = 80

Reveniți în partea de sus

Erori

DescriereCodul VBAOn Error - Opriți codul și afișați eroareaLa Eroare Goto 0On Error - Omiteți eroarea și continuați să rulațiLa eroare Reluați în continuareOn Error - Accesați o linie de cod [Etichetă]On Error Goto [Label]Eroare de ștergere (resetare)La eroare GoTo -1Afișați numărul de eroareMsgBox Err.NumberAfișează descrierea eroriiMsgBox Err. DescriereFuncția de a genera propria eroareErr.Ridică

Reveniți în partea de sus

Dosare

DescriereCodul VBACopiaza fisierFileCopy „C: \ test \ test_old.xlsx”, „C: \ test \ test_new.xlsx”Sterge fisierulOmoară „C: \ test \ example.xlsx”Creați folderMkDir „C: \ test \”Ștergeți toate fișierele din folderOmoară „C: \ test \” și „*. *”Ștergeți folderulOmoară „C: \ test \” și „*. *”
RmDir „C: \ test \”Directorul curentstrPath = CurDir ()Calea acestui manualstrPath = ThisWorkbook.PathBuclați toate fișierele din dosar

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

Faceți în timp ce Len (strFile)> 0
Debug.Print strFile
strFile = Dir
Buclă

Reveniți în partea de sus

Produs grozav. AutoMacro nu doar îți scrie codul, ci te învață pe măsură ce mergi! "- Tony, Marea Britanie

Află mai multe

Citiți peste 900 de recenzii

Matrice

DescriereCodul VBACreaDim arr (1 până la 3) Ca variantă
arr (1) = „unul”
arr (2) = „doi”
arr (3) = „trei”Creați din ExcelDim arr (1 până la 3) Ca variantă
Dim celulă ca gamă, i ca număr întreg
i = LBound (arr)
Pentru fiecare celulă din interval („A1: A3”)
i = i + 1
arr (i) = valoare.celulă
Următoarea celulăCitiți toate articoleleDim i as Long
Pentru i = LBound (arr) To UBound (arr)
MsgBox arr (i)
Apoi euŞtergeȘtergeți arArray to StringDim sName As String
sName = Join (arr, „:”)Măriți dimensiuneaReDim Preserve arr (0 la 100)Setați valoareaarr (1) = 22

Reveniți în partea de sus

Programare VBA | Generatorul de coduri funcționează pentru dvs.!

Colecții

DescriereCodul VBACreaDim coll Ca colecție nouă
col. Adăugați „unul”
col. Adăugați „doi”Creați din ExcelDim coll Ca colecție nouă
Dim celula ca interval
Pentru fiecare celulă din interval („A1: A2”)
coll.Add cell.value
Următoarea celulăAdaugare elementcol. Adăugați „Valoare”Adăugați un articol înaintecol. Adăugați „Valoare”, înainte: = 1Adăugați un articol dupăcol. Adăugați „Valoare”, după: = 1Citiți articolulMsgBox coll (1)Numărați articolecol. ContCitiți toate articoleleReduceți elementul ca variantă
Pentru fiecare articol În col
Element MsgBox
Următorul elementEliminați elementulcol. Elimină (1)Eliminați toate articoleleSet coll = Colecție nouă

Reveniți în partea de sus

Dicționare

DescriereCodul VBAReferință obligatorieInstrumente> Referințe> Microsoft Scripting RuntimeCreaDim dict As New Scripting.Dictionary
dict.Add „”
dict.Add „”Creați din ExcelDim dict As New Scripting.Dictionary
Dim celula ca interval
Tasta Dim ca întreg
Pentru fiecare celulă din interval („A1: A10”)
cheie = cheie + 1
dict.Add key, cell.value
Următoarea celulăAdaugare elementdict.Adăugați „Cheie”, „Valoare”Schimbați valoareadict („Cheie”) = „Valoare”Obțineți valoareMsgBox dict („Cheie”)Verificați valoareaDacă dict.Există („Cheie”) Atunci
MsgBox „Exista”
End IfEliminați elementuldict.Remove („Cheie”)Eliminați toate articoleledict.RemoveAllBuclați prin articoleTasta Dim ca variantă
Pentru fiecare tastă din cuvinte cheie
Cheie MsgBox, dict (cheie)
Tasta următoareNumărați articoledict.CountFaceți cheia sensibilă la majusculedict.CompareMode = vbBinaryCompareFaceți cheia majusculă să fie nesensibilădict.CompareMode = vbTextCompare

Reveniți în partea de sus

AutoMacro - Completul VBA final

AutoMacro: supliment VBA cu sute de exemple de coduri VBA gata de utilizat și multe altele!

Aflați mai multe