VBA petulehed - käsud ja süntaksiloendid

VBA petuleht PDF (tasuta allalaadimine)

Kiireks viitamiseks laadige alla meie tasuta Excel VBA petuleht PDF!

Lae alla

VBA petulehed

Sellelt lehelt leiate kõigi levinumate VBA käskude ja süntaksi loendid. Siit leiate palju põhilisi käske (nt lehe lisamine) ja mõnda täpsemat süntaksit (nt massiividega töötamine).

Nõuanded:

Selle lehe otsimiseks kasutage klahve CTRL + F.

Lisage see leht järjehoidjatesse (CTRL + D Chrome'is)!

Lehed

KirjeldusVBA koodAktiveeri vahekaardi nime järgiArvutustabelid („Sisend”). AktiveeriAktiveeri VBA koodnimegaLeht 1. AktiveeriAktiveeri indeksi positsiooni abilArvutustabelid (1). AktiveeriJärgmine lehtActiveSheet.Next.ActivateHankige ActiveSheetMsgBox ActiveSheet.NameValige LehtArvutustabelid („Sisend”). ValigeMäära muutujaDim ws töölehena
Määra ws = ActiveSheetNimi / ümbernimetamineActiveSheet.Name = "UusNimi"Lisa lehtLehed. LisaLisage leht ja nimiSheets.Add.Name = "Uus leht"Lisa leht muutujaleDim ws töölehena
Määra ws = Sheets.AddKopeeri lehtArvutustabelid („Leht1”). Kopeeri enne: = Lehed („Leht2”)Peida lehtArvutustabelid („leht 1”). Nähtav = vale
või
Arvutustabelid („leht 1”). Nähtav = xlSheetHiddenLehe peitmineSheets (“Sheet1”). Visible = True
või
Arvutustabelid („leht 1”). Visible = xlSheetVisibleVäga peidetud lehtArvutustabelid („Leht1”). Visible = xlSheetVeryHiddenKustuta lehtArvutustabelid („Leht1”). KustutaSelge lehtLehed („Sheet1”). Lahtrid. SelgeTühista kaitse (parooli pole)Sheets („Sheet1”). Kaitse eemaldamineTühista kaitse (parool)Arvutustabelid („Leht1”). Tühistage „Parooli” kaitseKaitsta (parooli pole)Lehed (“Sheet1”). KaitskeKaitsta (parool)Arvutustabelid („leht 1”). Kaitske parooliKaitske, kuid lubage juurdepääs VBA -leArvutustabelid („Leht1”). Kaitse UserInterfaceOnly: = Tõsi

Tagasi üles

Rakud ja vahemikud

KirjeldusVBA koodLahtri aktiveerimineVahemik (“B3”). Aktiveerige
Rakud (3,2). AktiveeriValige vahemikVahemik („a1: a3”). Valige
Vahemik (vahemik (“a1”), vahemik (“a3”)). Valige
Vahemik (lahtrid (1, 1), lahtrid (3, 1)). ValigeMuuda suurustVahemik (“B3”). Muuda suurust (2, 2). ValigeNiheVahemik (“B3”). Nihe (2, 2). ValigeKopeeriVahemik („A1: B3”). Kopeerimisvahemik („D1”)LõikaVahemik (“A1: B3”). Lõikevahemik (“D1”)KustutaVahemik („A1: B3”). Kustuta
Vahemik („A1: B3”). Kustuta nihe: = xlShiftToLeftSelgeVahemik (“A1: A3”). Selge
Vahemik (“A1: A3”). Selge sisu
Vahemik (“A1: A3”). ClearFormatKrahvVahemik („A1: A3”)Määra muutujaDim rng kui vahemik
Määra rng = vahemik ("A1")Ühenda/UnMergeVahemik („A1: A3”). Ühenda
Vahemik (“A1: A3”). UnMergeTsükkel läbi

Hämardage rakk vahemikuna

Iga vahemiku lahtri kohta ("A1: C3")
MsgBoxi lahter. Väärtus
Järgmine lahter

Tagasi üles

Ridad

KirjeldusVBA koodAktiveeriRidad (1). Aktiveeri
Ridad (“1: 1”). Aktiveerige
Vahemik („a1”). Kogu rida. AktiveeriKõrgus laiusVahemik (“A1”). Kogu rida. Rea kõrgus = 30KustutaVahemik (“A1”). Kogu rida. KustutaKrahvVahemik (“A1”). RidadSisestaVahemik (“A1”). EntireRow.InsertViimanehämar lRida nii kaua
lRida = lahtrid (ridade arv, 1). lõpp (xlUp). ridaKopeeriVahemik ("1: 1"). Kopeeri vahemik ("5: 5")SisestaVahemik (“1: 1”). Kopeeri
Vahemik (“5: 5”)

Tagasi üles

Veerud

KirjeldusVBA koodAktiveeriVeerud (1). Aktiveeri
Veerud (“a: a”). Aktiveerige
Vahemik („a1”). Kogu veerg. AktiveeriKõrgus laiusVahemik („A1”). Kogu veerg. Veeru laius = 30KustutaVahemik („A1”). Kogu veerg. KustutaKrahvVahemik („A1”). Veerud. LoendSisestaVahemik (“A1”). Kogu veerg. SisestaViimanehämaras lCol nii kaua
lCol = Lahtrid (1, Veerud. Loend). Lõpp (xlToLeft). VeergKopeeriVahemik ("A: A"). Kopeeri vahemik ("E: E")SisestaVahemik (“A: A”). Kopeeri
Vahemik (“E: E”). Sisesta

Tagasi üles

Kas olete väsinud VBA koodinäidete otsimisest? Proovige AutoMacrot!

Töövihikud

KirjeldusVBA koodAktiveeriTöövihikud (“Raamat1”). AktiveeriAktiveerige esmakordselt avatudTöövihikud (1). AktiveeriAktiveeri viimati avatudTöövihikud (töövihikud. Loend). AktiveeriHankige ActivateWorkbookMsgBox ActiveWorkbook.NameHangi see töövihik (sisaldab VBA koodi)MsgBox ThisWorkbook.NameLisamaTöövihikud. LisaLisa muutujaleDim wb Töövihikuna
Määra wb = Töövihikud. LisaAvatudTöövihikud. Avage ("C: \ example.xlsm")Avatud muutujaleDim wb Töövihikuna
Määra wb = Töövihikud. Ava ("C: \ example.xlsm")SulgeTöövihikud (“Raamat1”). Sulge SaveChanges: = False
Töövihikud (“Raamat1”). Sulge SaveChanges: = TrueSalvestaTöövihikud (“Raamat1”). SalvestaSalvesta kuiTöövihikud (“Raamat1”). SalvestaAs strFileNameKaitse/UnprotectTöövihikud (1). Parooli kaitsmine
Töövihikud (1). Vabastage parooli kaitseMäära muutujaDim wb töövihikuna
Määra wb = Töövihikud („Raamat1”)Loe kõik töövihikud töövihikutest läbi

Dim wb Töövihikuna

Iga wb kohta töövihikutes
MsgBox wb. Nimi
Järgmine wb

Kontrollige olemasoluKui Dir (“C: \ Book1.xlsx”) = “” Siis
MsgBox "Faili pole olemas."
EndIfKopeerimine suletudFileCopy “C: \ file1.xlsx”, ”C: \ file2.xlsx”

Tagasi üles

Seaded

KirjeldusVBA koodEkraani värskendamineApplication.ScreenUpdating = Vale
Application.ScreenUpdating = TõsiKuva hoiatusedApplication.DisplayAlerts = Vale
Application.DisplayAlerts = TõsiSündmusedApplication.EnableEvents = Vale
Application.EnableEvents = TõsiTühista võtiApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptTeksti võrdlus - ignoreeri juhtumitValik Võrdle tekstiNõua muutuvat deklaratsiooniValik SelgeAutomaatsed arvutusedApplication.Calculation = xlManual
Rakendus.Kalkulatsioon = xlAutomaatneTaustaviga kontrollimiselApplication.ErrorCheckingOptions.BackgroundChecking = Vale
Application.ErrorCheckingOptions.BackgroundChecking = TõsiKuva valemiribaApplication.DisplayFormulaBar = Vale
Application.DisplayFormulaBar = TõsiPaneelide külmutamineActiveWindow.FreezePanes = Vale
ActiveWindow.FreezePanes = TõsiTäisekraanvaadeApplication.DisplayFullScreen = Vale
Application.DisplayFullScreen = TõsiPageBreak eelvaadeActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewKuva kerimisribadActiveWindow abil
.DisplayHorizontalScrollBar = Vale
.DisplayVerticalScrollBar = Vale
Lõpeta ActiveWindow abil
.DisplayHorizontalScrollBar = Tõsi
.DisplayVerticalScrollBar = Tõsi
LõpetaKuva olekuribaApplication.DisplayStatusBar = Vale
Application.DisplayStatusBar = TõsiOlekuriba sisuApplication.StatusBar = "Ma töötan praegu !!!"
Application.StatusBar = ValeKuva töövihiku vahelehedActiveWindow.DisplayWorkbookTabs = Vale
ActiveWindow.DisplayWorkbookTabs = TõsiKasutajanimiApplication.UserName = "AutomateExcel.com"Rakenduse pealdisApplication.Caption = “AutomateExcel Model”SuumActiveWindow.Zoom = 80

Tagasi üles

Vead

KirjeldusVBA koodViga sees - Stoppkood ja kuvamisvigaVea korral läks 0On Error - jätke viga vahele ja jätkake töötamistVea korral Jätka järgmistVea korral - minge koodireale [silt]Tõrke korral läks [silt]Kustutab (lähtestab) tõrkeViga GoTo -1Kuva veanumberMsgBoxi vigane numberKuva vea kirjeldusMsgBoxi viga. KirjeldusFunktsioon oma vea genereerimiseksViga. Tõstke

Tagasi üles

Failid

KirjeldusVBA koodKopeeri failFileCopy “C: \ test \ test_old.xlsx”, “C: \ test \ test_new.xlsx”Kustuta failTapa "C: \ test \ example.xlsx"Loo kaustMkDir "C: \ test \"Kustuta kõik failid kaustastTapa "C: \ test" ja "*.*"Kustuta kaustTapa "C: \ test" ja "*.*"
RmDir "C: \ test \"Praegune kataloogstrPath = CurDir ()See töövihiku teestrPath = See töövihik. TeeSirvige kõiki kausta faile

strFile = Dir ("C: \ test" ja "\*")

Tehke samal ajal Len (strFile)> 0
Silumine. Prindi strFile
strFile = Rež
Loop

Tagasi üles

Suurepärane toode. AutoMacro mitte ainult ei kirjuta teie koodi, vaid õpetab, kui lähete! " - Tony, Suurbritannia

Lisateave

Lugege meie 900+ arvustust

Massiivid

KirjeldusVBA koodLooDim arr (1 kuni 3) Variandina
arr (1) = "üks"
arr (2) = “kaks”
arr (3) = "kolm"Loo ExcelistDim arr (1 kuni 3) Variandina
Dim dimmer As Range, i As Integer
i = LBound (arr)
Iga lahtri vahemikus ("A1: A3")
i = i + 1
arr (i) = rakk.väärtus
Järgmine lahterLugege kõiki punkteDim i kui pikk
I = LBound (arr) kuni UBound (arr)
MsgBox arr (i)
Edasi iKustutaKustuta arrMassiiv stringileDim sName nagu string
sName = Liitu (arr, “:”)Suurenda suurustReDim Preserve arr (0 kuni 100)Määra väärtusarr (1) = 22

Tagasi üles

VBA programmeerimine | Koodigeneraator töötab teie jaoks!

Kollektsioonid

KirjeldusVBA koodLooDim coll As New Collection
koll. Lisage "üks"
koll. Lisage "kaks"Loo ExcelistDim coll As New Collection
Hämardage rakk vahemikuna
Iga vahemiku lahtri kohta ("A1: A2")
koll. Lisage lahter. väärtus
Järgmine lahterLisa üksuskoll. Lisage „Väärtus”Lisa üksus ennekoll. Lisage "Väärtus", enne: = 1Lisa üksus pärastkoll. Lisage "Väärtus", pärast: = 1Loe üksustMsgBoxi koll (1)Loe esemeidcoll.CountLugege kõiki punkteDim element Variant
Iga üksuse kohta Koll
MsgBoxi üksus
Järgmine üksusEemalda üksuskoll. Eemalda (1)Eemalda kõik üksusedSet coll = Uus kogu

Tagasi üles

Sõnastikud

KirjeldusVBA koodNõutav viideTööriistad> Viited> Microsoft Scripting RuntimeLooDim dict as New Scripting. Sõnastik
dict. Lisage ""
dict. Lisage ""Loo ExcelistDim dict as New Scripting. Sõnastik
Hämardage rakk vahemikuna
Dim nupp täisarvuna
Iga vahemiku lahtri kohta („A1: A10”)
võti = võti + 1
dict. Lisage võti, cell.value
Järgmine lahterLisa üksusdict. Lisage „Võti”, „Väärtus”Muuda väärtustdict (“Key”) = “Value”Hankige väärtustMsgBox dict (“Võti”)Kontrollige väärtustKui dict.Exists (“Key”) Siis
MsgBox "Olemas"
Lõpp KuiEemalda üksusdict.Remove (“Võti”)Eemalda kõik üksuseddict.RemoveAllLoop kaudu üksusedDim nupp Variandina
Iga võtme jaoks dikt. Võtmed
MsgBoxi võti, dikt (võti)
Järgmine võtiLoe esemeiddikt. LoendMuutke võtmetähti tundlikuksdict.CompareMode = vbBinaryCompareMuutke võtmetähti tundmatuksdict.CompareMode = vbTextCompare

Tagasi üles

AutoMacro - ülim VBA lisandmoodul

AutoMacro: VBA lisandmoodul sadade kasutusvalmis VBA koodinäidetega ja palju muud!

Lisateave