Ściągawki VBA - polecenia i listy składni

Ściągawka VBA PDF (bezpłatne pobieranie)

Pobierz naszą bezpłatną ściągawkę Excel VBA w formacie PDF, aby uzyskać szybki dostęp!

Pobierać

Ściągawki VBA

Odwołaj się do tej strony, aby uzyskać listę wszystkich popularnych poleceń i składni VBA. Znajdziesz tu wiele podstawowych poleceń (np. wstawianie arkusza) i trochę zaawansowanej składni (np. praca z tablicami).

Porady:

Użyj CTRL + F, aby przeszukać tę stronę.

Dodaj tę stronę do zakładek (CTRL + D w Chrome)!

Pościel

OpisKod VBAAktywuj według nazwy kartyArkusze („Wejście”). AktywujAktywuj przez nazwę kodową VBAArkusz1.AktywujAktywuj według pozycji indeksuArkusze(1).AktywujNastępny arkuszAktywny arkusz.Następny.AktywujPobierz aktywny arkuszMsgBox ActiveSheet.NameWybierz arkuszArkusze („Wejście”). WybierzUstaw na zmiennąDim ws jako Arkusz
Ustaw ws = Aktywny arkuszNazwa / Zmień nazwęActiveSheet.Name = "Nowa nazwa"Dodaj arkuszArkusze.DodajDodaj arkusz i nazwęSheets.Add.Name = „Nowy arkusz”Dodaj arkusz do zmiennejDim ws As Worksheet
Ustaw ws = Arkusze.DodajKopiuj arkuszArkusze(„Arkusz1”).Kopiuj przed:=Arkusze(„Arkusz2”)Ukryj arkuszArkusze(„Arkusz1”).widoczne = Fałsz
lub
Arkusze(„Arkusz1”).widoczny = xlSheetHiddenOdkryj arkuszArkusze („Arkusz1”). Widoczne = Prawda
lub
Arkusze („Arkusz1”). Widoczny = xlArkusz WidocznyBardzo ukryj arkuszArkusze („Arkusz1”). Widoczny = xlArkuszBardzoUkrytyUsuń arkuszArkusze („Arkusz1”). UsuńWyczyść arkuszArkusze („Arkusz1”). Komórki.WyczyśćOdblokuj (bez hasła)Arkusze („Arkusz1”). Usuń ochronęOdblokuj (hasło)Arkusze („Arkusz1”). Odblokuj „Hasło”Chroń (bez hasła)Arkusze („Arkusz1”). ChrońChroń (hasło)Arkusze („Arkusz1”). Chroń „Hasło”Chroń, ale zezwalaj na dostęp VBAArkusze („Arkusz1”). ChrońTylko Interfejs Użytkownika:=Prawda

Wróć do góry

Komórki i zakresy

OpisKod VBAAktywuj komórkęZakres („B3”). Aktywuj
Komórki(3,2).AktywujWybierz zakresZakres („a1:a3”). Wybierz
Zakres(Zakres(„a1”), Zakres(„a3”)).Wybierz
Zakres (komórki (1, 1), komórki (3, 1)). WybierzZmień rozmiarZakres („B3”). Zmień rozmiar (2, 2). WybierzZrównoważyćZakres(„B3”).Przesunięcie(2,2)).WybierzKopiujZakres („A1:B3”). Zakres kopiowania („D1”)SkaleczenieZakres („A1:B3”). Zakres cięcia („D1”)KasowaćZakres („A1:B3”). Usuń
Zakres („A1:B3”). Usuń przesunięcie:=xlShiftToLeftJasneZakres („A1:A3”). Wyczyść
Zakres („A1:A3”). Wyczyść zawartość
Zakres („A1:A3”). Wyczyść formatLiczyćZakres („A1:A3”).LiczbaUstaw na zmiennąDim rng jako zakres
Ustaw rng = Zakres („A1”)Scal/RozłączZakres („A1:A3”). Scal
Zakres („A1:A3”).Zapętlaj komórki

Przyciemnij komórkę jako zakres

Dla każdej komórki w zakresie („A1:C3”)
MsgBox komórka.Wartość
Następna komórka

Wróć do góry

Wydziwianie

OpisKod VBAAktywujWiersze(1).Aktywuj
Wiersze(„1:1”).Aktywuj
Zakres („a1”). Cały wiersz. AktywujWysokość szerokośćZakres („A1”). CałyRow.RowHeight = 30KasowaćZakres („A1”). Cały wiersz. UsuńLiczyćZakres („A1”). Liczba wierszyWstawićZakres („A1”). Cały wiersz. WstawOstatnidim lRow tak długo
lRow = Cells(Rows.Count, 1).End(xlUp).RowKopiujZakres („1:1”) Zakres kopiowania („5:5”)WstawićZakres („1:1”). Kopiuj
Zakres („5:5”). Wstaw

Wróć do góry

Kolumny

OpisKod VBAAktywujKolumny(1).Aktywuj
Kolumny(„a:a”).Aktywuj
Zakres („a1”). Cała kolumna. AktywujWysokość szerokośćZakres („A1”).Cała kolumna.Szerokość kolumny = 30KasowaćZakres („A1”). Cała kolumna. UsuńLiczyćZakres („A1”).Liczba kolumnWstawićZakres („A1”). Cała kolumna. WstawOstatnidim lCol tak długo
lCol = Cells(1, Columns.Count).End(xlToLeft).ColumnKopiujZakres („A: A”). Zakres kopiowania („E: E”)WstawićZakres („A: A”). Kopiuj
Zakres („E: E”). Wstaw

Wróć do góry

Masz dość wyszukiwania przykładów kodu VBA? Wypróbuj Automakro!

Zeszyty ćwiczeń

OpisKod VBAAktywujSkoroszyty („Książka1”). AktywujAktywuj pierwsze otwarcieSkoroszyty(1).AktywujAktywuj ostatnio otwarteSkoroszyty (Workbooks.Count). AktywujPobierz ActivateWorkbookMsgBox ActiveWorkbook.NamePobierz ten skoroszyt (zawierający kod VBA)MsgBox ThisWorkbook.NameDodaćSkoroszyty.DodajDodaj do zmiennejDim wb jako skoroszyt
Ustaw wb = Skoroszyty.DodajotwartySkoroszyty.Otwórz("C:\przykład.xlsm")Otwórz na zmiennąDim wb jako skoroszyt
Ustaw wb = Skoroszyty.Otwórz("C:\przykład.xlsm")BliskoSkoroszyty("Książka1").Zamknij ZapiszZmiany:=Fałsz
Skoroszyty("Książka1").Zamknij ZapiszZmiany:=PrawdaZapisaćSkoroszyty („Książka1”). ZapiszZapisz jakoSkoroszyty („Książka1”). Zapisz jako strFileNameChroń/OdbezpieczSkoroszyty(1).Chroń „hasło”
Skoroszyty(1).Odbezpiecz „hasło”Ustaw na zmiennąDim wb jako skoroszyt
Ustaw wb = Skoroszyty("Książka1")Zapętlaj cały skoroszyt w skoroszytach

Dim wb jako skoroszyt

Dla każdego wb w skoroszytach
MsgBox wb.Name
Następny wb

Sprawdź istniejeJeśli katalog(„C:\Book1.xlsx”) = „” Wtedy
MsgBox „Plik nie istnieje”.
EndIfKopiowanie zamknięteFileCopy „C:\plik1.xlsx”, „C:\plik2.xlsx”

Wróć do góry

Ustawienia

OpisKod VBAAktualizacja ekranuApplication.ScreenUpdating = Fałsz
Application.ScreenUpdating = PrawdaWyświetl alertyApplication.DisplayAlerts = False
Application.DisplayAlerts = PrawdaWydarzeniaApplication.EnableEvents = False
Application.EnableEvents = PrawdaWłącz klawisz anulowaniaApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptPorównywanie tekstu - ignoruj ​​wielkość literOpcja Porównaj tekstWymagaj deklaracji zmiennejOpcja WyraźnaObliczenia automatyczneAplikacja.Obliczenia = xlPodręcznik
Aplikacja.Calculation = xlAutomaticSprawdzanie błędów w tleApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = PrawdaWyświetl pasek formułyApplication.DisplayFormulaBar = False
Application.DisplayFormulaBar = PrawdaZablokuj szybyActiveWindow.FreezePanes = Fałsz
ActiveWindow.FreezePanes = PrawdaWidok pełnoekranowyApplication.DisplayFullScreen = Fałsz
Application.DisplayFullScreen = PrawdaPodgląd podziału stronyActiveWindow.View = xlPageBreakPodgląd
ActiveWindow.View = xlNormalViewWyświetl paski przewijaniaZ ActiveWindow
.DisplayHorizontalScrollBar = Fałsz
.DisplayVerticalScrollBar = False
Zakończ z ActiveWindow
.DisplayHorizontalScrollBar = Prawda
.DisplayVerticalScrollBar = Prawda
Kończyć zWyświetl pasek stanuApplication.DisplayStatusBar = False
Application.DisplayStatusBar = PrawdaZawartość paska stanuApplication.StatusBar = „Teraz pracuję!!!”
Application.StatusBar = FalseWyświetl zakładki skoroszytuActiveWindow.DisplayWorkbookTabs = Fałsz
ActiveWindow.DisplayWorkbookTabs = PrawdaNazwa UżytkownikaApplication.UserName = „AutomateExcel.com”Podpis aplikacjiApplication.Caption = "Model AutomateExcel"PowiększenieAktywne okno.Zoom = 80

Wróć do góry

Błędy

OpisKod VBAW przypadku błędu - kod zatrzymania i błąd wyświetlaniaW przypadku błędu Przejdź do 0W przypadku błędu - pomiń błąd i kontynuuj działaniePrzy błędzie Wznów DalejW przypadku błędu - przejdź do wiersza kodu [Etykieta]W przypadku błędu Przejdź do [Etykieta]Czyści (resetuje) błądW przypadku błędu Przejdź do -1Pokaż numer błęduMsgBox Err.NumerPokaż opis błęduMsgBox Err.OpisFunkcja generowania własnego błęduBłąd.Podnieś

Wróć do góry

Pliki

OpisKod VBASkopiuj plikFileCopy „C:\test\stary_test.xlsx”, „C:\test\test_nowy.xlsx”Usunąć plikZabij „C:\test\przykład.xlsx”Utwórz folderMkDir „C:\test\”Usuń wszystkie pliki z folderuZabij „C:\test\” i „*.*”Usunięty folderZabij „C:\test\” i „*.*”
RmDir „C:\test\”Aktualny katalogstrŚcieżka = CurDir()Ścieżka do tego skoroszytustrPath = ThisWorkbook.PathPrzeprowadź pętlę przez wszystkie pliki w folderze

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

Zrób, gdy Len(strFile) > 0
Debug.Print strFile
strFile = Katalog
Pętla

Wróć do góry

Świetny produkt. AutoMakro nie tylko pisze Twój kod, ale uczy, jak Ty!” – Tony, Wielka Brytania

Ucz się więcej

Przeczytaj nasze ponad 900 recenzji

Tablice

OpisKod VBATworzyćDim arr (1 do 3) jako wariant
arr(1) = „jeden”
arr(2) = „dwa”
arr(3) = „trzy”Twórz z ExcelaDim arr (1 do 3) jako wariant
Dim cell As Range, i As Integer
i = LBound(arr)
Dla każdej komórki w zakresie („A1:A3”)
ja = ja + 1
arr(i) = komórka.wartość
Następna komórkaPrzeczytaj wszystkie przedmiotyDim ja jak Long
For i = LBound(arr) To UBound(arr)
MsgBox arr(i)
Dalej jaUsuwaćWymażTablica do ciąguDim sName As String
sName = Dołącz(arr, „:”)Zwiększ rozmiarReDim Zachowaj arr(0 do 100)Ustalić wartośćprzykł(1) = 22

Wróć do góry

Programowanie VBA | Generator kodu działa dla Ciebie!

Kolekcje

OpisKod VBATworzyćDim coll jako nowa kolekcja
kol.Dodaj „jeden”
kol.Dodaj „dwa”Twórz z ExcelaDim coll jako nowa kolekcja
Przyciemnij komórkę jako zakres
Dla każdej komórki w zakresie („A1:A2”)
coll.Dodaj komórkę.wartość
Następna komórkaDodaj Przedmiotkol.Dodaj „Wartość”Dodaj przedmiot przedcoll.Dodaj „Wartość”, Przed:=1Dodaj przedmiot pocoll.Dodaj „Wartość”, po:=1Przeczytaj elementMsgBox kol. (1)Policz przedmiotycoll.CountPrzeczytaj wszystkie przedmiotyPrzyciemnij element jako wariant
Dla każdego przedmiotu w kol.
Element MsgBox
Następny przedmiotUsuń przedmiotkol.Usuń (1)Usuń wszystkie elementyUstaw coll = Nowa kolekcja

Wróć do góry

Słowniki

OpisKod VBAWymagane referencjeNarzędzia > Referencje > Microsoft Scripting RuntimeTworzyćDim dict As New Scripting.Dictionary
dykt.Dodaj „”
dykt.Dodaj „”Twórz z ExcelaDim dict As New Scripting.Dictionary
Przyciemnij komórkę jako zakres
Klawisz przyciemniania jako liczba całkowita
Dla każdej komórki w zakresie („A1:A10”)
klawisz = klawisz + 1
dict.Add klucz, komórka.wartość
Następna komórkaDodaj Przedmiotdict.Dodaj „Klucz”, „Wartość”Zmiana walutydict("Klucz") = "Wartość"Uzyskaj wartośćMsgBox dykt("Klucz")Sprawdź wartośćJeśli dict.Exists(„Klucz”) Wtedy
MsgBox „Istnieje”
Zakończ, jeśliUsuń przedmiotdykt.Usuń („Klucz”)Usuń wszystkie elementydykt.UsuńWszystkoZapętlaj przedmiotyPrzycisk ściemniania jako wariant
Dla każdego klawisza W dict.Keys
Klawisz MsgBox, dict(klucz)
Następny kluczPolicz przedmiotydykt.CountSpraw, aby wielkość liter była wrażliwadict.CompareMode = vbBinaryCompareSpraw, aby klucze były niewrażliwedict.CompareMode = vbTextCompare

Wróć do góry

AutoMacro - najlepszy dodatek VBA

AutoMacro: dodatek VBA z setkami gotowych do użycia przykładów kodu VBA i wiele więcej!

Ucz się więcej