VBA apkrāptu lapas - komandas un sintakses saraksti

VBA apkrāptu lapa PDF (bezmaksas lejupielāde)

Ātrai uzziņai lejupielādējiet mūsu bezmaksas Excel VBA apkrāptu lapu PDF!

Lejupielādēt

VBA apkrāptu lapas

Skatiet šo lapu, lai skatītu visu izplatīto VBA komandu un sintakses sarakstus. Jūs atradīsit daudzas pamata komandas (piemēram, ievietojiet lapu) un dažas uzlabotas sintakses (piemēram, strādājot ar masīviem).

Padomi:

Izmantojiet CTRL + F, lai meklētu šajā lapā.

Pievienojiet šai lapai grāmatzīmi (pārlūkā Chrome CTRL + D)!

Loksnes

AprakstsVBA kodsAktivizēt pēc cilnes nosaukumaIzklājlapas (“Ievadi”). AktivizētAktivizēt pēc VBA koda nosaukuma1. lapa. AktivizētAktivizēt pēc indeksa pozīcijasIzklājlapas (1). AktivizētNākamā lapaActiveSheet.Next.ActivateIegūstiet ActiveSheetMsgBox ActiveSheet.NameAtlasiet IzklājlapaIzklājlapas (“Ievade”). IzvēlietiesIestatiet uz MainīgsDim ws kā darblapu
Iestatiet ws = ActiveSheetNosaukums / PārdēvētActiveSheet.Name = “JaunsNosaukums”Pievienot lapuLoksnes. PievienotPievienojiet lapu un nosaukumuSheets.Add.Name = “NewSheet”Pievienot lapu mainīgajamDim ws kā darblapa
Iestatiet ws = Sheets.AddKopēt lapuIzklājlapas (“Sheet1”). Kopēt pirms: = Sheets (“Sheet2”)Paslēpt lapuIzklājlapas (“Sheet1”). Redzams = False
vai
Izklājlapas (“Sheet1”). Redzams = xlSheetHiddenAtklāt lapuIzklājlapas (“Sheet1”). Visible = True
vai
Izklājlapas (“Sheet1”). Visible = xlSheetVisibleĻoti slēpta lapaIzklājlapas (“Sheet1”). Visible = xlSheetVeryHiddenIzdzēst lapuIzklājlapas (“Sheet1”). DzēstSkaidra lapaLoksnes (“1. lapa”). Šūnas. SkaidrsAtsaukt aizsardzību (bez paroles)Izklājlapas (“1. lapa”). NeaizsargātAtsaukt aizsardzību (parole)Izklājlapas (“Sheet1”). Atceliet “Paroles” aizsardzībuAizsargāt (bez paroles)Loksnes (“Sheet1”). AizsargātAizsargāt (parole)Izklājlapas (“Sheet1”). Aizsargājiet “Parole”Aizsargājiet, bet atļaujiet VBA piekļuviIzklājlapas (“Sheet1”). Aizsargāt UserInterfaceOnly: = True

Atgriezties uz augšu

Šūnas un diapazoni

AprakstsVBA kodsAktivizēt šūnuDiapazons (“B3”). Aktivizēt
Šūnas (3,2). AktivizētAtlasiet diapazonuDiapazons (“a1: a3”). Izvēlieties
Diapazons (Diapazons (“a1”), Diapazons (“a3”)). Izvēlieties
Diapazons (šūnas (1, 1), šūnas (3, 1)). IzvēlietiesMainīt izmēruDiapazons (“B3”). Mainīt izmērus (2, 2). AtlasietNobīdeDiapazons (“B3”). Nobīde (2, 2). IzvēlietiesKopētDiapazons (“A1: B3”). Kopēšanas diapazons (“D1”)GrieztDiapazons (“A1: B3”). Izgriezuma diapazons (“D1”)DzēstDiapazons (“A1: B3”). Dzēst
Diapazons (“A1: B3”). Dzēst maiņu: = xlShiftToLeftSkaidrsDiapazons (“A1: A3”). Skaidrs
Diapazons (“A1: A3”). Skaidrs saturs
Diapazons (“A1: A3”). ClearFormatSkaitsDiapazons (“A1: A3”)Iestatiet uz MainīgsDim rng kā diapazons
Iestatīt rng = Diapazons (“A1”)Apvienot/atvienotDiapazons (“A1: A3”). Apvienot
Diapazons (“A1: A3”). AtvienotCilpa caur šūnām

Dim šūna kā diapazons

Katrai diapazona šūnai (“A1: C3”)
MsgBox šūna. Vērtība
Nākamā šūna

Atgriezties uz augšu

Rindas

AprakstsVBA kodsAktivizētRindas (1). Aktivizēt
Rindas (“1: 1”). Aktivizēt
Diapazons (“a1”). EntireRow.ActivateAugstums PlatumsDiapazons (“A1”). EntireRow.RowHeight = 30DzēstDiapazons (“A1”). Visa rinda. DzēstSkaitsDiapazons (“A1”). Rindas. SkaitIevietotDiapazons (“A1”). EntireRow.InsertPēdējaisblāva lRinda tik ilgi
lRinda = šūnas (rindas. skaits, 1). beigas (xlUp). rindaKopētDiapazons (“1: 1”). Kopēšanas diapazons (“5: 5”)IevietotDiapazons (“1: 1”). Kopēt
Diapazons (“5: 5”)

Atgriezties uz augšu

Kolonnas

AprakstsVBA kodsAktivizētKolonnas (1). Aktivizēt
Kolonnas (“a: a”). Aktivizēt
Diapazons (“a1”). Visa kolonna. AktivizētAugstums PlatumsDiapazons (“A1”). Visa kolonna. Kolonnas platums = 30DzēstDiapazons (“A1”). Visa kolonna. DzēstSkaitsDiapazons (“A1”). Kolonnas. SkaitIevietotDiapazons (“A1”). Visa kolonna. IevietotPēdējaisblāva lCol tik ilgi
lCol = šūnas (1, Columns.Count). End (xlToLeft). SlejaKopētDiapazons (“A: A”). Kopēšanas diapazons (“E: E”)IevietotDiapazons (“A: A”). Kopēt
Diapazons (“E: E”)

Atgriezties uz augšu

Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!

Darba burtnīcas

AprakstsVBA kodsAktivizētDarbgrāmatas (“1. grāmata”). AktivizētAktivizēt pirmo atvēršanuDarbgrāmatas (1). AktivizētAktivizēt pēdējo atvēršanuDarbgrāmatas (Workbooks.Count). AktivizētIegūstiet ActivateWorkbookMsgBox ActiveWorkbook.NameIegūstiet šo darba grāmatu (ar VBA kodu)MsgBox ThisWorkbook.NamePievienotDarbgrāmatas. PievienotPievienot mainīgajamDim wb kā darbgrāmata
Iestatiet wb = darbgrāmatas. PievienotAtvērtDarbgrāmatas. Atvērt (“C: \ example.xlsm”)Atvērts mainīgajamDim wb kā darbgrāmata
Iestatiet wb = darbgrāmatas. Atveriet (“C: \ example.xlsm”)AizvērtDarbgrāmatas (“1. grāmata”). Aizvērt SaveChanges: = False
Darbgrāmatas (“1. grāmata”). Aizvērt SaveChanges: = TrueSaglabātDarbgrāmatas (“1. grāmata”). SaglabātSaglabāt kāDarbgrāmatas (“1. grāmata”). Saglabāt kā strFileNameAizsargāt/neaizsargātDarbgrāmatas (1). Aizsargājiet “paroli”
Darbgrāmatas (1). Aizsargāt “paroli”Iestatiet uz MainīgsDim wb kā darbgrāmata
Iestatīt wb = darbgrāmatas (“1. grāmata”)Izlasiet visu darbgrāmatu darbgrāmatās

Dim wb kā darbgrāmata

Par katru wb darbgrāmatās
MsgBox wb.Name
Nākamais wb

Pārbaudiet, vai pastāvJa Dir (“C: \ Book1.xlsx”) = “” Tad
MsgBox “Fails neeksistē.”
EndIfKopēšana aizvērtaFileCopy “C: \ file1.xlsx”, “C: \ file2.xlsx”

Atgriezties uz augšu

Iestatījumi

AprakstsVBA kodsEkrāna atjaunināšanaApplication.ScreenUpdating = Nepareizi
Application.ScreenUpdating = PatiessRādīt brīdinājumusApplication.DisplayAlerts = Nepareizi
Application.DisplayAlerts = PatiessNotikumiApplication.EnableEvents = Nepareizi
Application.EnableEvents = PatiessIespējot atcelšanas taustiņuApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptTeksta salīdzinājums - ignorēt reģistruOpcija Salīdzināt tekstuNepieciešama mainīga deklarācijaSkaidrs variantsAutomātiskie aprēķiniLietojumprogramma. Aprēķins = xlManual
Pielietojums. Aprēķins = xl AutomātisksPārbaudot fona kļūduApplication.ErrorCheckingOptions.BackgroundChecking = Nepareizi
Application.ErrorCheckingOptions.BackgroundChecking = PatiesaRādīt formulas josluApplication.DisplayFormulaBar = Nepareizs
Application.DisplayFormulaBar = PatiesaIesaldēt rūtisActiveWindow.FreezePanes = Nepareizi
ActiveWindow.FreezePanes = PatiesaPilnekrāna skatsApplication.DisplayFullScreen = Nepareizs
Application.DisplayFullScreen = PatiesaPageBreak priekšskatījumsActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewParādīt ritjoslasAr ActiveWindow
.DisplayHorizontalScrollBar = Nepareizi
.DisplayVerticalScrollBar = Nepareizi
Beidziet ar ActiveWindow
.DisplayHorizontalScrollBar = Patiess
.DisplayVerticalScrollBar = Patiesa
Beigt arDispleja statusa joslaApplication.DisplayStatusBar = Nepareizs
Application.DisplayStatusBar = PatiesaStatusa joslas satursApplication.StatusBar = “Es tagad strādāju !!!”
Application.StatusBar = NepareizsParādīt darbgrāmatas cilnesActiveWindow.DisplayWorkbookTabs = Nepareizi
ActiveWindow.DisplayWorkbookTabs = PatiesaLietotājvārdsApplication.UserName = “AutomateExcel.com”Lietotnes parakstsApplication.Caption = “AutomateExcel modelis”TālummaiņaActiveWindow.Zoom = 80

Atgriezties uz augšu

Kļūdas

AprakstsVBA kodsIeslēgta kļūda - apturēt kodu un parādīt kļūduKļūda Goto 0On Error - izlaidiet kļūdu un turpiniet darbuPar kļūdu Atsākt nākamoKļūdas gadījumā - pārejiet uz koda rindiņu [iezīme]Kļūda Goto [iezīme]Notīra (atiestata) kļūduKļūda GoTo -1Rādīt kļūdas numuruMsgBox kļūdas numursRādīt kļūdas aprakstuMsgBox kļūda. AprakstsFunkcija, lai radītu savu kļūduKļūda. Paceliet

Atgriezties uz augšu

Faili

AprakstsVBA kodsKopēt failuFileCopy “C: \ test \ test_old.xlsx”, “C: \ test \ test_new.xlsx”Izdzēst failuNogalināt “C: \ test \ example.xlsx”Izveidot mapiMkDir “C: \ test \”Dzēst visus failus no mapesNogaliniet “C: \ test \” un “*.*”Dzēst mapiNogaliniet “C: \ test \” un “*.*”
RmDir “C: \ test \”Pašreizējais direktorijsstrPath = CurDir ()Šī darba grāmatas ceļšstrPath = Šī darba grāmata. CeļšIzslēgt visus failus mapē

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

Darīt, kamēr Len (strFile)> 0
Atkļūdot. Drukāt strFile
strFile = Rež
Cilpa

Atgriezties uz augšu

Lielisks produkts. AutoMacro ne tikai raksta jūsu kodu, bet arī māca jums ejot! " - Tonijs, Lielbritānija

Uzzināt vairāk

Izlasiet mūsu 900+ pārskatus

Masīvi

AprakstsVBA kodsIzveidotDim arr (1 līdz 3) Kā variants
arr (1) = “viens”
arr (2) = “divi”
arr (3) = “trīs”Izveidot no ExcelDim arr (1 līdz 3) Kā variants
Dim šūna kā diapazons, i kā vesels skaitlis
i = LBound (arr)
Katrai diapazona šūnai (“A1: A3”)
i = i + 1
arr (i) = šūna.vērtība
Nākamā šūnaIzlasiet visus vienumusDim i kā garš
I = LBound (arr) līdz UBound (arr)
MsgBox ieeja (i)
Tālāk iDzēstDzēst arrMasīvs uz virkniDim sName As String
sName = Pievienoties (arr, “:”)Palielināt izmēruReDim Preserve arr (no 0 līdz 100)Iestatiet vērtībuarr (1) = 22

Atgriezties uz augšu

VBA programmēšana | Kodu ģenerators strādā jūsu labā!

Kolekcijas

AprakstsVBA kodsIzveidotDim coll kā jauna kolekcija
koll. Pievienojiet “viens”
koll. Pievienojiet “divi”Izveidot no ExcelDim coll kā jauna kolekcija
Dim šūna kā diapazons
Katrai diapazona šūnai (“A1: A2”)
Coll. Pievienot šūnu. vērtība
Nākamā šūnaPievienot vienumucoll. Pievienojiet “Value”Pievienot vienumu pirmscoll. Pievienot “Value”, Pirms: = 1Pievienot vienumu pēccoll. Pievienot “Value”, pēc: = 1Lasīt vienumuMsgBox kolls (1)Skaitīt vienumuscoll.CountIzlasiet visus vienumusIzgaismot vienumu kā variantu
Katram vienumam Sadaļā
MsgBox vienums
Nākamais vienumsNoņemt vienumusadaļa. Noņemt (1)Noņemt visus vienumusSet coll = Jauna kolekcija

Atgriezties uz augšu

Vārdnīcas

AprakstsVBA kodsNepieciešamā atsauceRīki> Atsauces> Microsoft skriptu izpildlaiksIzveidotDim dict kā jauns skripts. Vārdnīca
dict. Pievienojiet “”
dict. Pievienojiet “”Izveidot no ExcelDim dict kā jauns skripts. Vārdnīca
Dim šūna kā diapazons
Dim taustiņš Kā vesels skaitlis
Katrai diapazona šūnai (“A1: A10”)
atslēga = taustiņš + 1
dict.Add key, cell.value
Nākamā šūnaPievienot vienumudict. Pievienojiet “Atslēga”, “Vērtība”Mainīt vērtībudict (“Atslēga”) = “Vērtība”Iegūstiet vērtībuMsgBox dict (“Atslēga”)Pārbaudiet vērtībuJa diktē.Pastāv (“Atslēga”) Tad
MsgBox “Pastāv”
Beigas JaNoņemt vienumudict.Remove (“Atslēga”)Noņemt visus vienumusdict.RemoveAllIzslēgt vienumusDim taustiņš Kā variants
Katrai atslēgai In dict.Keys
MsgBox atslēga, diktēt (atslēga)
Nākamā atslēgaSkaitīt vienumusdiktēt. SkaitsPadariet atslēgu reģistru nejutīgudict.CompareMode = vbBinaryComparePadarīt atslēgas reģistru nejutīgudict.CompareMode = vbTextCompare

Atgriezties uz augšu

AutoMacro - galīgā VBA pievienojumprogramma

AutoMacro: VBA pievienojumprogramma ar simtiem lietošanai gatavu VBA kodu piemēru un vēl daudz vairāk!

Uzzināt vairāk