Goljufski listi VBA - ukazi in seznami skladenj

VBA Cheat Sheet PDF (brezplačen prenos)

Prenesite naš brezplačni PDF datoteko Excel VBA Cheat Sheet PDF za hitro referenco!

Prenesi

Goljufske liste VBA

Na tej strani najdete sezname vseh pogostih ukazov in skladnje VBA. Našli boste veliko osnovnih ukazov (npr. Vstavite list) in nekaj napredne skladnje (npr. Delo z matrikami).

Nasveti:

Za iskanje po tej strani uporabite CTRL + F.

To stran dodajte med zaznamke (CTRL + D v Chromu)!

Listi

OpisKoda VBAAktivirajte z imenom zavihkaListi (»Vnos«). AktivirajteAktivirajte s kodnim imenom VBAList 1. AktivirajteAktivirajte z indeksnim položajemListi (1). AktivirajteNaslednji listActiveSheet.Next.ActivatePridobite ActiveSheetMsgBox ActiveSheet.NameIzberite ListListi (»Vnos«). IzberiteNastavite na spremenljivoZatemni kot delovni list
Nastavite ws = ActiveSheetIme / PreimenujActiveSheet.Name = “Novoime”Dodaj listListi.DodajDodajte list in imeSheets.Add.Name = “NewSheet”Dodaj list spremenljivkiZatemni kot delovni list
Set ws = Sheets.AddKopiraj listListi (»List1«). Kopiraj prej: = Listi (»List2«)Skrij listListi (»List1«). Visible = False
ali
Listi (»List1«). Visible = xlSheetHiddenRazkrij listListi (»List1«). Vidno = Res
ali
Listi (»List1«). Vidni = xlSheetVisibleZelo skrije listListi (»List1«). Vidno = xlSheetVeryHiddenIzbriši listListi (»List1«). IzbrišiČist listListi ("List1"). Celice.ČistiOdstrani zaščito (brez gesla)Listi (»List1«). Odstrani zaščitoOdstrani zaščito (geslo)Listi (»List1«). Odstranite zaščito »Geslo«Zaščita (brez gesla)Listi ("List1"). ZaščititeZaščita (geslo)Listi (»List1«). Zaščitite »Geslo«Zaščitite, vendar dovolite dostop VBAListi (»List1«). Zaščitite UserInterfaceOnly: = True

Nazaj na vrh

Celice in razponi

OpisKoda VBAAktivirajte celicoObseg (“B3”). Aktivirajte
Celice (3,2). AktivirajteIzberite obsegRazpon (»a1: a3«). Izberite
Domet (Razpon (“a1”), Domet (“a3”)). Izberite
Obseg (celice (1, 1), celice (3, 1)). IzberiteSpremeni velikostRazpon ("B3"). Spremenite velikost (2, 2). IzberiteOdmikRazpon (“B3”). Odmik (2, 2) .IzberiteKopiratiObseg (“A1: B3”). Obseg kopiranja (“D1”)IzrežiRazpon (“A1: B3”). Obseg rezanja (“D1”)IzbrišiObseg (“A1: B3”). Izbriši
Obseg (“A1: B3”). Izbriši premik: = xlShiftToLeftJasnoDomet (“A1: A3”). Jasno
Obseg (“A1: A3”). ClearContents
Obseg (“A1: A3”). ClearFormatPreštejRazpon (»A1: A3«). ŠtetjeNastavite na spremenljivoZatemni rng kot domet
Nastavi rng = območje ("A1")Združi/odstraniObseg (»A1: A3«). Združite
Razpon (»A1: A3«). OdstraniZanka skozi celice

Zatemni celico kot obseg

Za vsako celico v razponu ("A1: C3")
Celica MsgBox.Vrednost
Naslednja celica

Nazaj na vrh

Vrstice

OpisKoda VBAAktivirajVrstice (1). Aktivirajte
Vrstice (»1: 1«). Aktivirajte
Obseg (»a1«). EntireRow.ActivateVišina širinaRazpon (»A1«). EntireRow.RowHeight = 30IzbrišiObseg (»A1«). EntireRow.DeletePreštejObseg (“A1”). Vrstice.ŠteviloVstaviObseg (“A1”). EntireRow.InsertNazadnjedim lRed tako dolgo
lRow = Celice (vrstice. število, 1). konec (xlUp). vrsticaKopiratiObseg ("1: 1"). Obseg kopiranja ("5: 5")VstaviObseg ("1: 1"). Kopiraj
Obseg ("5: 5"). Vstavi

Nazaj na vrh

Stolpci

OpisKoda VBAAktivirajStolpci (1). Aktivirajte
Stolpci (»a: a«). Aktivirajte
Obseg (»a1«). Celoten stolpec.AktivirajVišina širinaRazpon (“A1”). EntireColumn.ColumnWidth = 30IzbrišiObseg (»A1«). Celoten stolpec.IzbrišiPreštejObseg (»A1«). Stolpci.ŠteviloVstaviObseg ("A1"). Celoten stolpecNazadnjedim lCol tako dolgo
lCol = celice (1, stolpci. število). konec (xlToLeft). stolpecKopiratiObseg ("A: A"). Kopiraj obseg ("E: E")VstaviObseg ("A: A"). Kopiraj
Obseg ("E: E"). Vstavi

Nazaj na vrh

Utrujen od iskanja primerov kode VBA? Preizkusite AutoMacro!

Delovni zvezki

OpisKoda VBAAktivirajDelovni zvezki (»Knjiga1«). AktivirajteAktiviraj prvo odprtoDelovni zvezki (1). AktivirajteAktiviraj Zadnje odprtoDelovni zvezki (Delovni zvezki. Štetje). AktivirajtePridobite ActivateWorkbookMsgBox ActiveWorkbook.NamePridobite ta delovni zvezek (ki vsebuje kodo VBA)MsgBox ThisWorkbook.NameDodajDelovni zvezki.DodajDodaj spremenljivkiDim wb Kot delovni zvezek
Nastavi wb = Delovni zvezki.DodajOdprtoDelovni zvezki. Odprite (»C: \ example.xlsm«)Odpri za spremenljivkoDim wb Kot delovni zvezek
Set wb = Delovni zvezki.Odpri (“C: \ example.xlsm”)ZapriDelovni zvezki (»Knjiga1«). Zaprite Shrani spremembe: = Napačno
Delovni zvezki (»Knjiga1«). Zaprite Shrani spremembe: = TrueShraniDelovni zvezki (»Knjiga1«). ShraniteShrani kotDelovni zvezki (»Knjiga1«). Shrani kot strFileNameZaščiti/odstrani zaščitoDelovni zvezki (1). Zaščitite »geslo«
Delovni zvezki (1). Odstranite zaščito »gesla«Nastavite na spremenljivoZatemni wb kot delovni zvezek
Set wb = Delovni zvezki (»Knjiga1«)Prelistajte ves delovni zvezek v delovnih zvezkih

Dim wb Kot delovni zvezek

Za vsako wb v delovnih zvezkih
MsgBox wb.Name
Naslednja wb

Preveri obstajaČe je Dir (“C: \ Book1.xlsx”) = “” Potem
MsgBox "Datoteka ne obstaja."
KonecKopija zaprtaFileCopy “C: \ file1.xlsx”, “C: \ file2.xlsx”

Nazaj na vrh

Nastavitve

OpisKoda VBAPosodobitev zaslonaApplication.ScreenUpdating = Napačno
Application.ScreenUpdating = ResPrikaz opozorilApplication.DisplayAlerts = Napačno
Application.DisplayAlerts = ResDogodkiApplication.EnableEvents = False
Application.EnableEvents = TrueOmogoči tipko za preklicApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptPrimerjaj besedilo - Prezri velike in male črkeMožnost Primerjaj besediloZahtevajte spremenljivkoMožnost izrecnoSamodejni izračuniApplication.Calculation = xlPriročnik
Application.Calculation = xlAutomaticPreverjanje napak v ozadjuApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = ResPrikaz vrstice formuleApplication.DisplayFormulaBar = Neresnično
Application.DisplayFormulaBar = ResZamrzni podoknaActiveWindow.FreezePanes = Napačno
ActiveWindow.FreezePanes = ResCelozaslonski pogledApplication.DisplayFullScreen = Neresnično
Application.DisplayFullScreen = ResPredogled preloma straniActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewPrikaz drsnih trakovZ aktivnim oknom
.DisplayHorizontalScrollBar = Neresnično
.DisplayVerticalScrollBar = False
Končaj z Z aktivnim oknom
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = Res
Končaj sPrikaz vrstice stanjaApplication.DisplayStatusBar = False
Application.DisplayStatusBar = ResVsebina vrstice stanjaApplication.StatusBar = "Zdaj delam !!!"
Application.StatusBar = NapačnoPrikaz zavihkov delovnega zvezkaActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayWorkbookTabs = ResUporabniško imeApplication.UserName = “AutomateExcel.com”Napis aplikacijeApplication.Caption = “AutomateExcel model”PovečavaActiveWindow.Zoom = 80

Nazaj na vrh

Napake

OpisKoda VBANapaka pri vklopu - koda zaustavitve in napaka na zaslonuPri napaki Pojdi na 0Napaka pri vklopu - preskočite napako in nadaljujte z izvajanjemOn Napaka Nadaljuj NaprejNapaka pri vklopu - pojdite na vrstico kode [Oznaka]Pri napaki Pojdi na [Oznaka]Počisti (ponastavi) napakoNapaka GoTo -1Pokaži številko napakeMsgBox Err.ŠtevilkaPokaži opis napakeMsgBox Err. OpisFunkcija ustvarjanja lastne napakeNapaka dvig

Nazaj na vrh

Datoteke

OpisKoda VBAKopiraj datotekoFileCopy "C: \ test \ test_old.xlsx", "C: \ test \ test_new.xlsx"Izbriši datotekoUbijte "C: \ test \ example.xlsx"Ustvari mapoMkDir "C: \ test \"Izbrišite vse datoteke iz mapeUbijte "C: \ test \" & "*.*"Izbriši mapoUbijte "C: \ test \" & "*.*"
RmDir "C: \ test \"Trenutni imenikstrPath = CurDir ()Ta pot delovne knjigestrPath = ThisWorkbook.PathPrelistajte vse datoteke v mapi

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

Do While Len (strFile)> 0
Odpravi napako. Natisni strFile
strFile = Dir
Zanka

Nazaj na vrh

Odličen izdelek. AutoMacro ne samo napiše vašo kodo, ampak uči, ko greste! " - Tony, UK

Nauči se več

Preberite naše 900+ ocene

Nizovi

OpisKoda VBAUstvariZatemni arr (1 do 3) kot varianto
arr (1) = "ena"
arr (2) = "dva"
arr (3) = "tri"Ustvari iz ExcelaZatemni arr (1 do 3) kot varianto
Zatemni celico kot obseg, i kot celo število
i = LBound (arr)
Za vsako celico v razponu ("A1: A3")
i = i + 1
arr (i) = celica.vrednost
Naslednja celicaPreberite vse postavkeDim i as Long
Za i = LBound (arr) Za UBound (arr)
MsgBox arr (i)
Naprej iIzbrišiIzbriši naslNiz v nizZatemni ime kot niz
sName = Pridruži se (arr, “:”)Povečajte velikostReDim Preserve arr (0 do 100)Nastavi vrednostarr (1) = 22

Nazaj na vrh

Programiranje VBA | Generator kod deluje za vas!

Zbirke

OpisKoda VBAUstvariDim coll kot nova zbirka
coll.Dodaj "eno"
coll.Dodaj "dva"Ustvari iz ExcelaDim coll kot nova zbirka
Zatemni celico kot obseg
Za vsako celico v razponu ("A1: A2")
coll.Dodaj cell.value
Naslednja celicaDodaj elementcoll.Dodajte »vrednost«Dodaj element prejcoll.Dodajte "vrednost", Pred: = 1Dodaj element pocoll.Dodajte "Value", After: = 1Preberi postavkoMsgBox coll (1)Štej predmetecoll.CountPreberite vse postavkeZatemni element kot varianto
Za vsak predmet V zborniku
MsgBox element
Naslednji elementOdstrani elementcoll.Odstrani (1)Odstranite vse elementeSet coll = Nova zbirka

Nazaj na vrh

Slovarji

OpisKoda VBAZahtevana referencaOrodja> Reference> Microsoft Scripting RuntimeUstvariDim dict Kot novo skriptno besedišče
dict.Add “”
dict.Add “”Ustvari iz ExcelaDim dict Kot novo skriptno besedišče
Zatemni celico kot obseg
Zatemni tipka kot celo število
Za vsako celico v razponu ("A1: A10")
ključ = ključ + 1
dict.Add key, cell.value
Naslednja celicaDodaj elementdict.Add “Key”, “Value”Spremeni vrednostdict ("Key") = "Vrednost"Pridobite vrednostMsgBox dict ("ključ")Preverite vrednostČe dict.Exists (“Key”) Potem
MsgBox "Obstaja"
Konec ČeOdstrani elementdict.Remove ("ključ")Odstranite vse elementedict.RemoveAllPrelistajte elementeZatemnitev tipke kot varianta
Za vsak ključ V razl. Ključih
MsgBox ključ, dict (ključ)
Naslednji ključŠtej predmetedict.CountNaj bodo ključi občutljividict.CompareMode = vbBinaryCompareNaredite ključe velike in občutljivedict.CompareMode = vbTextCompare

Nazaj na vrh

AutoMacro - Ultimate VBA dodatek

AutoMacro: dodatek VBA s stotinami primerov kode VBA, pripravljenimi za uporabo, in še veliko več!

Nauči se več