VBA -huijausarkit - komennot ja syntaksiluettelot

VBA -huijaussivu PDF (ilmainen lataus)

Lataa ilmainen Excel VBA Cheat Sheet PDF pikaoppaaseen!

ladata

VBA -huijausarkit

Tältä sivulta löydät luettelot kaikista yleisimmistä VBA -komennoista ja syntaksista. Löydät monia peruskomentoja (esim. Lisää arkki) ja joitain kehittyneitä syntakseja (esim. Työskentely matriisien kanssa).

Vinkkejä:

Käytä CTRL + F etsiäksesi tätä sivua.

Lisää tämä sivu kirjanmerkkeihin (CTRL + D Chromessa)!

Arkit

KuvausVBA -koodiAktivoi välilehden nimen avullaSheets (“Input”). AktivoiAktivoi VBA -koodinimelläArkki 1.AktivoiAktivoi indeksin sijainnin avullaArkit (1) AktivoiSeuraava arkkiActiveSheet.Next.ActivateHanki ActiveSheetMsgBox ActiveSheet.NameValitse ArkkiSheets (”Input”)Aseta muuttujaksiDim ws kuin laskentataulukko
Aseta ws = ActiveSheetNimi / Nimeä uudelleenActiveSheet.Name = "UusiNimi"Lisää taulukkoArkit LisääLisää arkki ja nimiSheets.Add.Name = "NewSheet"Lisää taulukko muuttujaanDim ws laskentataulukkona
Aseta ws = Sheets.AddKopioi taulukkoSheets ("Sheet1"). Kopioi ennen: = Sheets ("Sheet2")Piilota taulukkoSheets (“Sheet1”). Látható = False
tai
Sheets (“Sheet1”). Látható = xlSheetHiddenNäytä arkkiSheets (“Sheet1”). Visible = True
tai
Sheets (“Sheet1”). Visible = xlSheetVisibleErittäin piilotettu arkkiSheets (“Sheet1”). Visible = xlSheetVeryHiddenPoista taulukkoSheets (“Sheet1”). PoistaKirkas arkkiSheets (“Sheet1”). SolutPoista suojaus (ei salasanaa)Sheets (“Sheet1”). Poista suojausPoista suojaus (salasana)Sheets (“Sheet1”). Poista salasanan suojausSuojaa (ei salasanaa)Arkit (“Sheet1”). SuojaaSuojaa (salasana)Sheets (“Sheet1”). Suojaa salasanaSuojaa, mutta salli VBA -käyttöSheets (“Sheet1”). Suojaa UserInterfaceOnly: = True

Palaa alkuun

Solut ja alueet

KuvausVBA -koodiAktivoi soluAlue (“B3”)
Solut (3,2) AktivoiValitse AlueAlue (“a1: a3”). Valitse
Alue (Alue (“a1”), Alue (“a3”))
Alue (Solut (1, 1), Solut (3, 1))Muuta kokoaAlue (“B3”). Muuta kokoa (2, 2)OffsetAlue (“B3”). Siirtymä (2, 2)KopioAlue ("A1: B3"). Kopioalue ("D1")LeikataAlue ("A1: B3"). Leikkausalue ("D1")PoistaaAlue (“A1: B3”). Poista
Alue ("A1: B3"). Poista siirto: = xlShiftToLeftAsia selväAlue (“A1: A3”)
Alue (“A1: A3”). ClearContents
Alue (“A1: A3”). ClearFormatKreiviAlue (“A1: A3”)Aseta muuttujaksiDim rng kuin alue
Aseta rng = Alue ("A1")Yhdistä/UnMergeAlue (“A1: A3”). Yhdistä
Alue (“A1: A3”). UnMergeKierrä selluloosia

Himmennä solu alueena

Jokaiselle alueen solulle ("A1: C3")
MsgBox -solu. Arvo
Seuraava solu

Palaa alkuun

Rivit

KuvausVBA -koodiAktivoidaRivit (1) Aktivoi
Rivit ("1: 1"). Aktivoi
Alue (“a1”). Koko rivi. AktivoiKorkeus leveysAlue ("A1"). Koko rivi. Rivin korkeus = 30PoistaaAlue ("A1"). Koko rivi. PoistaKreiviAlue ("A1"). RivitLisääAlue (“A1”) EntireRow.InsertKestäähimmeä lRivi niin kauan
lRivi = Solut (Rivien lukumäärä, 1). Loppu (xlUp)KopioAlue ("1: 1"). Kopioalue ("5: 5")LisääAlue ("1: 1")
Alue (“5: 5”)

Palaa alkuun

Sarakkeet

KuvausVBA -koodiAktivoidaSarakkeet (1) Aktivoi
Sarakkeet ("a: a"). Aktivoi
Alue ("a1"). Koko sarake. AktivoiKorkeus leveysAlue ("A1"). Koko sarake. Sarakkeen leveys = 30PoistaaAlue ("A1"). Koko sarake. PoistaKreiviAlue ("A1"). SarakkeetLisääAlue ("A1"). Koko sarakeKestäähimmeä lCol niin kauan
lCol = Solut (1, Columns.Count) .End (xlToLeft) .ColumnKopioAlue ("A: A"). Kopioalue ("E: E")LisääAlue ("A: A")
Alue (“E: E”)

Palaa alkuun

Oletko kyllästynyt etsimään esimerkkejä VBA -koodista? Kokeile AutoMacroa!

Työkirjat

KuvausVBA -koodiAktivoidaTyökirjat (“Kirja1”). AktivoiAktivoi ensin avattuTyökirjat (1) AktivoiAktivoi viimeksi avattuTyökirjat (työkirjat)Hanki ActivateWorkbookMsgBox ActiveWorkbook.NameHanki tämä työkirja (sisältää VBA -koodin)MsgBox ThisWorkbook.NameLisätäTyökirjat LisääLisää muuttujaanDim wb Työkirjana
Aseta wb = TyökirjatAvataTyökirjat.Open ("C: \ example.xlsm")Avoin muuttujalleDim wb Työkirjana
Aseta wb = Työkirjat.Open ("C: \ example.xlsm")kiinniTyökirjat (“Kirja1”). Sulje SaveChanges: = False
Työkirjat (“Kirja1”). Sulje SaveChanges: = TrueTallentaaTyökirjat (“Kirja1”). TallennaTallenna nimelläTyökirjat (“Kirja1”) Tallenna nimellä strFileNameSuojaa/poista suojausTyökirjat (1) .Suojaa "salasana"
Työkirjat (1) .Poista salasanan suojaAseta muuttujaksiDim wb työkirjana
Aseta wb = Työkirjat (“Kirja1”)Selaa kaikki työkirjat työkirjoissa

Dim wb Työkirjana

Jokaiselle wb: lle työkirjoissa
MsgBox wb.Name
Seuraava wb

Tarkista olemassaJos Dir ("C: \ Kirja1.xlsx") = "" Sitten
MsgBox "Tiedostoa ei ole olemassa."
Loppu JosKopio suljettuFileCopy “C: \ file1.xlsx”, ”C: \ file2.xlsx”

Palaa alkuun

asetukset

KuvausVBA -koodiNäytön päivitysApplication.ScreenUpdating = Väärä
Application.ScreenUpdating = TottaNäytä hälytyksetApplication.DisplayAlerts = Väärä
Application.DisplayAlerts = TottaTapahtumatApplication.EnableEvents = Väärä
Application.EnableEvents = TosiOta peruutuspainike käyttöönApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptTekstin vertailu - Ohita kirjainVaihtoehto Vertaa tekstiäVaadi muuttuva ilmoitusVaihtoehto SelkeäAutomaattiset laskelmatApplication.Calculation = xlManual
Application.Calculation = xlAutomaticTaustavirheen tarkistusApplication.ErrorCheckingOptions.BackgroundChecking = Väärä
Application.ErrorCheckingOptions.BackgroundChecking = TottaNäytä kaavapalkkiApplication.DisplayFormulaBar = Väärä
Application.DisplayFormulaBar = TottaJäädytä ruudutActiveWindow.FreezePanes = Väärä
ActiveWindow.FreezePanes = TottaKoko näytön näkymäApplication.DisplayFullScreen = Väärä
Application.DisplayFullScreen = TottaPageBreak -esikatseluActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewNäytä vierityspalkitActiveWindow'n kanssa
.DisplayHorizontalScrollBar = Väärä
.DisplayVerticalScrollBar = Väärä
Lopeta ActiveWindow'lla
.DisplayHorizontalScrollBar = Totta
.DisplayVerticalScrollBar = Totta
LopetaNäytä tilariviApplication.DisplayStatusBar = Väärä
Application.DisplayStatusBar = TottaTilapalkin sisältöApplication.StatusBar = "Työskentelen nyt !!!"
Application.StatusBar = VääräNäytä työkirjan välilehdetActiveWindow.DisplayWorkbookTabs = Väärä
ActiveWindow.DisplayWorkbookTabs = TottaKäyttäjänimiApplication.UserName = "AutomateExcel.com"Sovelluksen kuvatekstiApplication.Caption = “AutomateExcel -malli”ZoomausActiveWindow.Zoom = 80

Palaa alkuun

Virheet

KuvausVBA -koodiOn Error - Pysäytyskoodi ja näyttövirheVirhe Siirry 0On Error - Ohita virhe ja jatka käyttöäVirhe Jatka seuraavaksiVirheessä - Siirry koodiriville [Label]Virhe Siirry [Label]Poistaa (nollaa) virheenVirhe GoTo -1Näytä virheen numeroMsgBox -virhenumeroNäytä virheen kuvausMsgBox -virhe KuvausToiminto tuottaa oman virheenErr. Nosta

Palaa alkuun

Tiedostot

KuvausVBA -koodiKopioi tiedostoFileCopy "C: \ test \ test_old.xlsx", "C: \ test \ test_new.xlsx"Poista tiedostoTapa "C: \ test \ example.xlsx"Tee kansioMkDir "C: \ test \"Poista kaikki tiedostot kansiostaTapa "C: \ test \" & "*.*"Poista kansioTapa "C: \ test \" & "*.*"
RmDir "C: \ test \"Nykyinen hakemistostrPath = CurDir ()Tämä työkirjan polkustrPath = Tämä työkirja.PolkuSelaa kaikki kansion tiedostot

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

Tee samalla Len (strFile)> 0
Debug.Tulosta strFile
strFile = Ohj
Silmukka

Palaa alkuun

Suuri tuote. AutoMacro ei vain kirjoita koodiasi, se opettaa aina! " - Tony, Iso -Britannia

Lue lisää

Lue yli 900 arvostelua

Taulukot

KuvausVBA -koodiLuodaDim arr (1 to 3) Varianttina
arr (1) = "yksi"
arr (2) = “kaksi”
arr (3) = “kolme”Luo ExcelistäDim arr (1 to 3) Varianttina
Himmennä solu alueena ja i kokonaislukuna
i = LBound (arr)
Jokaiselle alueen solulle ("A1: A3")
i = i + 1
arr (i) = solu.arvo
Seuraava soluLue kaikki kohteetDim i yhtä pitkä
I = LBound (arr) - UBound (arr)
MsgBox arr (i)
Seuraavaksi minäPoistaPoista saapArray merkkijonoonDim sName As String
sName = Liity (arr, ":")Suurenna kokoaReDim Preserve arr (0-100)Aseta arvoarr (1) = 22

Palaa alkuun

VBA -ohjelmointi | Koodigeneraattori toimii sinulle!

Kokoelmat

KuvausVBA -koodiLuodaDim coll As New Collection
coll. Lisää "yksi"
coll. Lisää "kaksi"Luo ExcelistäDim coll As New Collection
Himmennä solu alueena
Jokaiselle alueen solulle ("A1: A2")
coll.Lisää solun arvo
Seuraava soluLisää tavaraLisää "Arvo"Lisää kohde ennenLisää "Arvo", Ennen: = 1Lisää kohde jälkeenLisää "Arvo", jälkeen: = 1Lue kohdeMsgBox coll (1)Laske kohteetcoll.CountLue kaikki kohteetDim -kohde Vaihtoehtona
Jokaiselle nimikkeelle Yhteenveto
MsgBox -kohde
Seuraava kohdePoista esinepoista (1)Poista kaikki kohteetSet coll = Uusi kokoelma

Palaa alkuun

Sanakirjat

KuvausVBA -koodiVaadittu viiteTyökalut> Viitteet> Microsoft Scripting RuntimeLuodaDim dict As New Scripting.Dictionary
dict.Lisää ""
dict.Lisää ""Luo ExcelistäDim dict As New Scripting.Dictionary
Himmennä solu alueena
Himmennysnäppäin kokonaislukuna
Jokaiselle alueen solulle ("A1: A10")
avain = näppäin + 1
Lisää avain, soluarvo
Seuraava soluLisää tavaradict.Lisää "Avain", "Arvo"Muuta arvoadict ("Avain") = "Arvo"Hanki arvoMsgBox dict (“Avain”)Tarkista arvoJos sanelu on olemassa ("Avain") Sitten
MsgBox "On olemassa"
Loppu JosPoista esinedict.Remove (“Avain”)Poista kaikki kohteetdict.RemoveAllKierrä kohteet läpiHimmennysnäppäin Vaihtoehtona
Jokaiselle näppäimelle Dict.Keys
MsgBox -avain, sanelu (avain)
Seuraava avainLaske kohteetmääräTee avainkoko herkkädict.CompareMode = vbBinaryCompareTee avainkotelosta erottavadict.CompareMode = vbTextCompare

Palaa alkuun

AutoMacro - Ultimate VBA -laajennus

AutoMacro: VBA-apuohjelma, jossa on satoja valmiita VBA-koodiesimerkkejä ja paljon muuta!

Lue lisää