VBA „Cheat Sheets“ - komandos ir sintaksės sąrašai

VBA apgaulės lapas PDF (nemokamai atsisiųsti)

Atsisiųskite nemokamą „Excel VBA Cheat Sheet PDF“ PDF, kad greitai gautumėte nuorodą!

parsisiųsti

VBA apgaulės lapai

Šiame puslapyje rasite visų bendrų VBA komandų ir sintaksės sąrašus. Rasite daug pagrindinių komandų (pvz., Įterpkite lapą) ir keletą išplėstinių sintaksių (pvz., Dirbdami su masyvais).

Patarimai:

Norėdami ieškoti šiame puslapyje, naudokite CTRL + F.

Pažymėkite šį puslapį (CTRL + D „Chrome“)!

Lakštai

apibūdinimasVBA kodasSuaktyvinti pagal skirtuko pavadinimąSkaičiuoklės („Įvestis“)Suaktyvinti pagal VBA kodo pavadinimą1 lapas. AktyvuotiSuaktyvinti pagal rodyklės pozicijąLakštai (1). AktyvintiKitas lapasActiveSheet.Next.ActivateGaukite „ActiveSheet“„MsgBox ActiveSheet.Name“Pasirinkite LapasSkaičiuoklės („Įvestis“). PasirinkiteNustatykite kintamąjįPritemdyti ws kaip darbalapį
Nustatykite ws = ActiveSheetPavadinimas / PervardytiActiveSheet.Name = „Naujas vardas“Pridėti lapąLakštai. PridėtiPridėkite lapą ir pavadinimąSheets.Add.Name = „NewSheet“Pridėti lapą prie kintamojoDim ws kaip darbalapis
Nustatykite ws = Sheets.AddKopijuoti lapąSkaičiuoklės („Sheet1“). Copy Before: = Sheets („Sheet2“)Slėpti lapąSkaičiuoklės („Lapas1“). Matomas = Netiesa
arba
Skaičiuoklės („Sheet1“). Látható = xlSheetHiddenRodyti lapąSkaičiuoklės („Sheet1“). Matomas = tiesa
arba
Skaičiuoklės („Sheet1“). Visible = xlSheetVisibleLabai slėpti lapąSkaičiuoklės („Sheet1“). Visible = xlSheetVeryHiddenIštrinti lapąSkaičiuoklės („Sheet1“). IštrintiSkaidrus lapasLakštai („Sheet1“). Ląstelės. IšvalytiAtšaukti apsaugą (be slaptažodžio)Lakštai („Sheet1“). NeapsaugotiAtšaukti apsaugą (slaptažodis)Skaičiuoklės („Sheet1“). Atšaukite „Password“ apsaugąApsaugoti (be slaptažodžio)Lakštai („Sheet1“). ApsaugokiteApsaugoti (slaptažodis)Skaičiuoklės („Sheet1“). Apsaugokite „Slaptažodį“Apsaugokite, bet leiskite VBA prieigąSkaičiuoklės („Sheet1“). Apsaugokite „UserInterfaceOnly“: = Tiesa

Grįžti į viršų

Ląstelės ir diapazonai

apibūdinimasVBA kodasSuaktyvinti langelįDiapazonas („B3“)
Ląstelės (3,2). AktyvintiPasirinkite diapazonąDiapazonas („a1: a3“). Pasirinkite
Diapazonas (diapazonas („a1“), diapazonas („a3“)). Pasirinkite
Diapazonas (langeliai (1, 1), langeliai (3, 1)). PasirinkitePakeisti dydįDiapazonas („B3“). Keisti dydį (2, 2). PasirinkitePoslinkisDiapazonas („B3“). Poslinkis (2, 2). PasirinkiteKopijuotiDiapazonas („A1: B3“). Kopijavimo diapazonas („D1“)IškirptiDiapazonas („A1: B3“). Pjovimo diapazonas („D1“)IštrintiDiapazonas („A1: B3“). Ištrinti
Diapazonas („A1: B3“). Ištrinti poslinkį: = xlShiftToLeftSkaidrusDiapazonas („A1: A3“)
Diapazonas („A1: A3“). „ClearContents“
Diapazonas („A1: A3“). „ClearFormat“GrafasDiapazonas („A1: A3“)Nustatykite kintamąjįDim rng kaip diapazonas
Nustatyti rng = Diapazonas („A1“)Sujungti/atjungtiDiapazonas („A1: A3“). Sujungti
Diapazonas („A1: A3“). „UnMerge“Keliaukite per ląsteles

Šviesos langelis kaip diapazonas

Kiekvienam diapazono langeliui („A1: C3“)
„MsgBox“ langelis. Vertė
Kitas langelis

Grįžti į viršų

Eilutės

apibūdinimasVBA kodasSuaktyvintiEilutės (1). Aktyvinti
Eilutės („1: 1“). Aktyvinti
Diapazonas („a1“). „EntireRow.Activate“Aukštis PlotisDiapazonas („A1“). „EntireRow.RowHeight“ = 30IštrintiDiapazonas („A1“). „EntireRow.Delete“GrafasDiapazonas („A1“). Eilutės. SkaičiusĮdėtiDiapazonas („A1“). „EntireRow.InsertPaskutinissilpnas l Eilė tol
lRow = Ląstelės (Eilučių skaičius, 1). Pabaiga (xlUp). EilutėKopijuotiDiapazonas („1: 1“). Kopijuoti diapazoną („5: 5“)ĮdėtiDiapazonas („1: 1“). Kopijuoti
Diapazonas („5: 5“)

Grįžti į viršų

Stulpeliai

apibūdinimasVBA kodasSuaktyvintiStulpeliai (1). Aktyvinti
Stulpeliai („a: a“). Aktyvinti
Diapazonas („a1“). Visa stulpelis. AktyvintiAukštis PlotisDiapazonas („A1“). Visa stulpelis. Stulpelio plotis = 30IštrintiDiapazonas („A1“). Visa stulpelis. IštrintiGrafasDiapazonas („A1“). Stulpeliai. SkaičiusĮdėtiDiapazonas („A1“). Visa stulpelis. ĮterptiPaskutinisdim lCol kaip ilgai
lCol = Ląstelės (1, Stulpeliai. Skaičius). Pabaiga (xlToLeft). StulpelisKopijuotiDiapazonas („A: A“). Kopijuoti diapazoną („E: E“)ĮdėtiDiapazonas („A: A“). Kopijuoti
Diapazonas („E: E“)

Grįžti į viršų

Pavargote ieškoti VBA kodo pavyzdžių? Išbandykite „AutoMacro“!

Darbo knygos

apibūdinimasVBA kodasSuaktyvintiDarbo knygos („1 knyga“)Suaktyvinti pirmą kartą atidarytąDarbo knygos (1). AktyvintiSuaktyvinti paskutinį kartą atidarytąDarbaknygės (Workbooks.Count). AktyvintiGaukite „ActivateWorkbook“„MsgBox ActiveWorkbook“. PavadinimasGaukite „ThisWorkbook“ (su VBA kodu)„MsgBox ThisWorkbook.Name“PapildytiDarbaknygės. PridėtiPridėti prie kintamojoDim wb Kaip darbo knyga
Nustatykite wb = Darbaknygės. PridėtiAtvirasDarbaknygės. Atidarykite („C: \ example.xlsm“)Atviras kintamajamDim wb Kaip darbo knyga
Nustatykite wb = Darbaknygės. Atidarykite („C: \ example.xlsm“)UždarytiDarbaknygės („Book1“). Uždaryti SaveChanges: = False
Darbaknygės („Book1“). Uždaryti SaveChanges: = TrueSutaupytiDarbo knygos („1 knyga“). IšsaugotiIšsaugoti kaipDarbaknygės („1 knyga“). Išsaugoti kaip strFileNameApsaugoti/neapsaugotiDarbo knygos (1). Apsaugokite „slaptažodį“
Darbo knygos (1). Apsaugokite „slaptažodį“Nustatykite kintamąjįDim wb kaip darbo knyga
Nustatykite wb = Darbaknygės („1 knyga“)Peržiūrėkite visą darbaknygę darbaknygėse

Dim wb Kaip darbo knyga

Už kiekvieną wb darbaknygėse
„MsgBox wb.Pavadinimas“
Kitas wb

Patikrinkite EgzistuojaJei Dir („C: \ Book1.xlsx“) = „“ Tada
„MsgBox“ Failas neegzistuoja.
EndIfKopija uždaryta„FileCopy“ „C: \ file1.xlsx“, „C: \ file2.xlsx“

Grįžti į viršų

Nustatymai

apibūdinimasVBA kodasEkrano atnaujinimasApplication.ScreenUpdating = Netiesa
Application.ScreenUpdating = TiesaRodyti įspėjimusApplication.DisplayAlerts = Netiesa
Application.DisplayAlerts = TiesaĮvykiaiApplication.EnableEvents = Netiesa
Application.EnableEvents = TiesaĮgalinti atšaukimo klavišąApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptTeksto palyginimas - ignoruoti raidęParinktis Lyginti tekstąReikalauti kintamosios deklaracijosPasirinkimas aiškusAutomatiniai skaičiavimaiApplication.Calculation = xlManual
Taikymas. Skaičiavimas = xlAutomatinisTikrinama fono klaidaApplication.ErrorCheckingOptions.BackgroundChecking = Netiesa
Application.ErrorCheckingOptions.BackgroundChecking = TiesaRodyti formulės juostąApplication.DisplayFormulaBar = Netiesa
Application.DisplayFormulaBar = TiesaUžšaldyti stiklaiActiveWindow.FreezePanes = Netiesa
ActiveWindow.FreezePanes = TiesaVisas ekranasApplication.DisplayFullScreen = Netiesa
Application.DisplayFullScreen = Tiesa„PageBreak“ peržiūraActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewRodyti slinkties juostasSu „ActiveWindow“
.DisplayHorizontalScrollBar = Netiesa
.DisplayVerticalScrollBar = Netiesa
Pabaikite su „ActiveWindow“
.DisplayHorizontalScrollBar = Tiesa
.DisplayVerticalScrollBar = Tiesa
Pabaiga suRodyti būsenos juostąApplication.DisplayStatusBar = Netiesa
Application.DisplayStatusBar = TiesaBūsenos juostos turinysApplication.StatusBar = "Aš dabar dirbu !!!"
Application.StatusBar = NetiesaRodyti darbaknygės skirtukusActiveWindow.DisplayWorkbookTabs = Netiesa
ActiveWindow.DisplayWorkbookTabs = TiesaVartotojo vardasApplication.UserName = „AutomateExcel.com“Programos antraštėApplication.Caption = „AutomateExcel Model“Mastelis„ActiveWindow.Zoom“ = 80

Grįžti į viršų

Klaidos

apibūdinimasVBA kodasĮjungta klaida - sustabdyti kodą ir rodyti klaidąKlaida Goto 0On Error - praleiskite klaidą ir tęskite darbąDėl klaidos Tęsti toliauKlaida - eikite į kodo eilutę [etiketė]Įvyko klaida [etiketė]Išvalo (atkuria) klaidąKlaida „GoTo -1“Rodyti klaidos numerį„MsgBox“ klaidos numerisRodyti klaidos aprašą„MsgBox“ klaida. AprašymasFunkcija, kuri sukuria savo klaidąKlaida. Pakelkite

Grįžti į viršų

Failai

apibūdinimasVBA kodasKopijuoti failą„FileCopy“ „C: \ test \ test_old.xlsx“, „C: \ test \ test_new.xlsx“Ištrinti failąNužudyti „C: \ test \ example.xlsx“Sukurti aplankąMkDir „C: testas“Ištrinkite visus failus iš aplankoNužudykite „C: \ test“ ir „*.*“Ištrinti aplankąNužudykite „C: \ test“ ir „*.*“
RmDir „C: testas“Dabartinis katalogasstrPath = CurDir ()Šis darbo knygos keliasstrPath = Ši darbo knyga. KeliasPeržiūrėkite visus aplanko failus

strFile = Dir („C: \ test“ ir „\*“)

„Do while Len“ („strFile“)> 0
Derinimas. Spausdinti strFile
strFile = Rež
Kilpa

Grįžti į viršų

Puikus produktas. „AutoMacro“ ne tik rašo jūsų kodą, bet ir moko jums einant! " - Tony, JK

Sužinokite daugiau

Perskaitykite mūsų 900+ apžvalgas

Masyvai

apibūdinimasVBA kodasSukurtiDim arr (nuo 1 iki 3) Kaip variantas
arr (1) = „vienas“
arr (2) = „du“
arr (3) = „trys“Sukurkite iš „Excel“Dim arr (nuo 1 iki 3) Kaip variantas
Šviesos langelis kaip diapazonas, o kaip sveikasis skaičius
i = LBound (arr)
Kiekvienam diapazono langeliui („A1: A3“)
i = i + 1
arr (i) = ląstelė. vertė
Kitas langelisSkaityti visus elementusDim i kaip ilgas
I = LBound (arr) į UBound (arr)
„MsgBox“ (i)
Kitas I.IštrintiIštrinti arrMasyvas į eilutęDim sName As String
sName = Prisijungti (arr, „:“)Padidinti dydį„ReDim Preserve arr“ (nuo 0 iki 100)Nustatykite vertęarr (1) = 22

Grįžti į viršų

VBA programavimas | Kodo generatorius jums tinka!

Kolekcijos

apibūdinimasVBA kodasSukurtiDim coll As New Collection
rinkinys. Pridėkite „vienas“
rinkinys. Pridėkite „du“Sukurkite iš „Excel“Dim coll As New Collection
Šviesos langelis kaip diapazonas
Kiekvienam diapazono langeliui („A1: A2“)
rinkti. Pridėti langelį. vertė
Kitas langelisPridėti daiktąsurinkite. Pridėkite „Vertė“Pridėti elementą anksčiaucoll. Pridėti „Value“, Prieš: = 1Pridėti elementą pocoll. Pridėti „Value“, po: = 1Skaityti elementą„MsgBox“ rinkinys (1)Skaičiuoti daiktussurašytiSkaityti visus elementusApšviesti elementą kaip variantą
Kiekvienam elementui
„MsgBox“ elementas
Kitas elementasPašalinti daiktąsurinkti. Pašalinti (1)Pašalinti visus elementusSet coll = Nauja kolekcija

Grįžti į viršų

Žodynai

apibūdinimasVBA kodasBūtina nuorodaĮrankiai> Nuorodos> „Microsoft Scripting Runtime“SukurtiDim diktas kaip naujas scenarijus. Žodynas
dict.Add ““
dict.Add ""Sukurkite iš „Excel“Dim diktas kaip naujas scenarijus. Žodynas
Šviesos langelis kaip diapazonas
„Dim“ klavišas kaip sveikasis skaičius
Kiekvienam diapazono langeliui („A1: A10“)
raktas = klavišas + 1
dict.Add raktas, cell.value
Kitas langelisPridėti daiktądict.Add "Key", "Value"Keisti vertędict („raktas“) = „vertė“Gaukite vertę„MsgBox dict“ („raktas“)Patikrinkite vertęJei dikt. Egzistuoja („Raktas“) Tada
„MsgBox“ egzistuoja
Pabaiga JeiPašalinti daiktądict.Remove („Raktas“)Pašalinti visus elementusdict.RemoveAllPeržiūrėkite elementus„Dim“ klavišas Kaip variantas
Už kiekvieną raktą dikt. Raktus
„MsgBox“ raktas, diktas (raktas)
Kitas raktasSkaičiuoti daiktusdikt. SkaičiusPadarykite, kad didžiosios ir mažosios raidės nebūtų jautriosdict.CompareMode = vbBinaryComparePadaryti didžiosios ir mažosios raidžių nejautriasdict.CompareMode = vbTextCompare

Grįžti į viršų

„AutoMacro“ - galutinis VBA priedas

„AutoMacro“: VBA priedas su šimtais paruoštų naudoti VBA kodų pavyzdžių ir daug daugiau!

Sužinokite daugiau