Przykłady Excel VBA

Jest to bardzo ważne, kiedy zacząłem pracować i uczyć się makr VBA, nie miałem pojęcia, od czego zacząć. Widzieliśmy już edytor VBA, który ma wszystkie definicje opcji i kart okna edytora VBA. Jako początkujący zawsze nie znamy sposobu, aby rozpocząć rzecz, dopóki jej nie znajdziemy. Ten artykuł jest rozwiązaniem dla tych, którzy mają trudności z używaniem i uczeniem się przykładów VBA oraz tworzeniem makr. Wszyscy mieliśmy do czynienia z czasem, w którym pewne rzeczy w Excelu mogły zostać zautomatyzowane za pomocą Makra. Ale ktoś, kto nie wie, jak korzystać z VBA, nie będzie w stanie go utworzyć. Będzie to przydatny przewodnik dla nowych użytkowników kodowania makr VBA.

Przykłady VBA w Excelu dla początkujących

Poniżej znajdują się przykłady VBA w Excelu:

Możesz pobrać ten szablon Excel Przykłady VBA tutaj - Szablon Excel Przykłady VBA

Przykład VBA nr 1

Zobaczmy prosty przykład użycia kodowania VBA. W tym celu wykonaj następujące kroki:

Krok 1: Otwórz moduł VBA, w którym będziemy pisać nasz kod z karty menu Wstaw, jak pokazano poniżej.

Krok 2: Teraz napisz podprocedurę makra VBA pod dowolną nazwą.

Kod:

 Sub VBA_Examples1 () End Sub

Krok 3: Zdefiniuj zmienną za pomocą DIM, w którym będziemy przechowywać liczby jako liczby całkowite.

Kod:

 Sub VBA_Examples1 () Dim A As Integer End Sub

Krok 4: Teraz podaj dowolną liczbę powyżej zdefiniowanej zmiennej, jak pokazano poniżej.

Kod:

 Sub VBA_Examples1 () Dim A As Integer A = 100 End Sub

Krok 5: Teraz użyjemy okna komunikatu, aby wydrukować wartość przechowywaną w zmiennej A.

Kod:

 Sub VBA_Examples1 () Dim A As Integer A = 100 MsgBox A End Sub

Krok 6: Uruchom kod, naciskając klawisz F8 lub klikając przycisk Play znajdujący się pod paskiem menu. Zobaczysz okno komunikatu z wartością 100.

Kod:

 Sub VBA_Examples1 () Dim A As Integer A = 100 MsgBox A End Sub

Krok 7: Można to zrobić również za pomocą funkcji drukowania debugowania, której wartości są widoczne w oknie natychmiastowym. ( Uwaga: naciśnij Ctrl + G, aby otworzyć bezpośrednie okno)

Kod:

 Sub VBA_Examples1 () Dim A As Integer A = 100 Debug. Print A End Sub

Przykład VBA nr 2

Teraz w tym przykładzie zobaczymy inny przykład, w którym użyjemy pętli For-Next do wydrukowania nazw arkuszy. W tym celu wykonaj następujące kroki:

Krok 1: Otwórz moduł i zapisz podprocedurę, jak pokazano poniżej. Możemy użyć dowolnej nazwy, aby to zdefiniować.

Kod:

 Sub VBA_Examples2 () End Sub

Krok 2: Wybierz zmienną jako liczbę całkowitą. Możemy wybrać zmienną nazwy, tak jak to zrobiliśmy w przykładzie-1.

Kod:

 Sub VBA_Examples2 () Dim A As Integer End Sub

Krok 3: Otwórz pętlę For-Next, jak pokazano poniżej.

Kod:

 Sub VBA_Examples2 () Dim A As Integer For Next A End Sub

Krok 4: Wybierz pozycję komórki, z której chcemy zobaczyć nazwy arkuszy. Tutaj, ponieważ nie mamy żadnego odniesienia do nagłówka, możemy zacząć od komórki 1.

Kod:

 Sub VBA_Examples2 () Dim A As Integer For A = 1 To Sheets.Count Next A End Sub

Krok 5: Teraz przypisujemy zmienną A z wartością komórki, aby zobaczyć nazwę arkusza, jak pokazano poniżej.

Kod:

 Sub VBA_Examples2 () Dim A As Integer For A = 1 To Sheets.Count Cells (A, 1) .Value = Sheets (A) .Name Next A End Sub

Krok 6: Teraz uruchom kod, naciskając klawisz F8 lub klikając przycisk Odtwórz.

Zobaczymy, ponieważ mieliśmy 3 arkusze, wszystkie nazwane są domyślne, więc ich nazwa została wydrukowana z komórki A1 do poniżej, aż do liczby arkuszy, które mamy.

Przykład VBA nr 3

W tym przykładzie nauczymy się drukować liczby. Ten proces jest taki sam, jak widzieliśmy w przykładzie 2. W tym celu wykonaj następujące kroki:

Krok 1: Otwórz moduł i napisz podprocedurę.

Kod:

 Sub VBA_Examples3 () End Sub

Krok 2: Rozważ zmienną używającą DIM jako liczby całkowitej. Ponieważ używamy liczb, należy użyć typu danych Integer.

Kod:

 Sub VBA_Examples3 () Dim A As Integer End Sub

Krok 3: Ponownie otwórz pętlę For-Next, jak pokazano poniżej.

Kod:

 Sub VBA_Examples3 () Dim A As Integer For Next A End Sub

Krok 4: Teraz wybierz zakres komórek, od którego chcemy zobaczyć liczbę do ostatniej w składni For.

Kod:

 Sub VBA_Examples3 () Dim A As Integer For A = 1 To 10 Next A End Sub

Krok 5: Teraz napraw pozycję komórki za pomocą zmiennej A. Tutaj drugi wierzchołek pozycji w komórce pokazuje numer kolumny. Gdy wybraliśmy 1, spodziewamy się zobaczyć liczby zaczynające się od komórki A1.

Kod:

 Sub VBA_Examples3 () Dim A As Integer For A = 1 To 10 Cells (A, 1) .Value = A Next A End Sub

Krok 6: Teraz uruchom kod, naciskając klawisz F8 lub klikając przycisk Odtwórz. Zobaczymy, liczby są generowane z komórki A1 do A10, zaczynając od 1 do 10 .

Krok 7: Co jeśli spróbujemy dodać te liczby w drugiej kolumnie? Zmień wierzchołek kolumny z 1 na 2. Lub dodaj kolejny wiersz kodu, jak pokazano poniżej.

Kod:

 Sub VBA_Examples3 () Dim A As Integer For A = 1 To 10 Cells (A, 1) .Value = A Cells (A, 2) .Value = A Next A End Sub

Krok 8: Ponownie uruchom cały kod, naciskając klawisz F8 lub klikając przycisk Odtwórz. Zobaczymy tę samą liczbę od 1 do 10 wydrukowaną w kolumnie B, a także z komórki B1 do B10.

Przykład VBA # 4

W tym przykładzie zobaczymy, jak zmienić kolor pustych komórek z wybranych zakresów. W tym celu użyliśmy tej samej liczby, co w powyższym przykładzie, ale usunęliśmy niektóre komórki, aby uzyskać wynik.

Krok 1: Otwórz moduł, napisz podprocedurę, jak pokazano poniżej.

Kod:

 Sub VBA_Example4 () End Sub

Krok 2: Zdefiniuj zmienną za pomocą DIM jako Zakresu, ponieważ wybieramy wychodzący zakres liczb.

Kod:

 Sub VBA_Example4 () Dim A As Range End Sub

Krok 3: Teraz ustaw tę zmienną jako Zaznaczenie

Kod:

 Sub VBA_Example4 () Dim A As Range Set A = Selection End Sub

Krok 4: Teraz wybierz zakres liczb za pomocą zdefiniowanej zmiennej A i wybierz xlCellTypeBlanks, aby zaznaczyć tylko puste komórki.

Kod:

 Sub VBA_Example4 () Dim A As Range Set A = Selection A.Cells.SpecialCells (xlCellTypeBlanks). Napis końcowy

Krok 5: Teraz, aby zmienić kolor wnętrza pustych komórek, użyj Interior.Color i wybierz kolor, za pomocą którego chcemy podświetlić puste komórki. Użyj typu vbBlue lub vbGreen, aby zdefiniować kolor. Korzystanie z VB jest koniecznością.

Kod:

 Sub VBA_Example4 () Dim A As Range Set A = Selection A.Cells.SpecialCells (xlCellTypeBlanks) .Interior.Color = vbBlue End Sub

Krok 6: Teraz wybierz zakres komórek, a następnie uruchom kod, naciskając klawisz F8 lub klikając przycisk Odtwórz. Zobaczymy, komórki A4 i A7, które były puste, są teraz podświetlone kolorem niebieskim, jak pokazano poniżej.

Plusy i minusy przykładów Excel VBA

  • VBA zwiększa wydajność pracy.
  • W ten sposób chcemy zredukować powtarzalne zadania za jednym razem.
  • Możemy stworzyć dowolny rodzaj Makra, jaki chcemy.
  • Możemy również nagrać Makro, jeśli wykonanie kodowania nie jest łatwe.
  • Ludzie, którzy nie mają wiedzy na temat kodowania lub idei, mogą mieć trudności z używaniem VBA Macro.

Rzeczy do zapamiętania

  • Początkujący w VBA powinien pamiętać o zapisaniu kodu w formacie Excel obsługującym makro. Pozwoli nam to zachować kod w tym samym pliku.
  • Zawsze kompiluj cały kod, nawet jeśli kod składa się z jednej linii. Zmniejszy to nasz czas debugowania, jeśli napotkasz błąd podczas uruchamiania kodu.
  • Zawsze rozpoczynaj proces uczenia się VBA lub innego języka programowania za pomocą małego i łatwego kodu. Zapewni to lepsze zrozumienie i pewność siebie.

Polecane artykuły

To jest przewodnik po przykładach VBA w Excelu. Tutaj omawiamy kilka użytecznych przykładów kodu makr VBA w programie Excel wraz z szablonem programu Excel do pobrania. Możesz także przejrzeć nasze inne sugerowane artykuły -

  1. Kolekcja VBA (przykłady)
  2. Instrukcje VBA IF | Szablony programu Excel
  3. Jak korzystać z funkcji sortowania Excel VBA?
  4. VBA While Loop (przykłady z szablonem Excel)
  5. VBA Environ

Kategoria:

VBA