Zestaw Excel VBA
„Set” jest słowem kluczowym używanym w programowaniu VBA do przypisania odwołania do obiektu lub zakresu komórek, które pozostaną stałe w całym programie lub kodzie w programie Excel. Zestaw VBA w zasadzie pomaga nam uniknąć powtarzalnego wprowadzania zakresu, który musimy wybrać podczas wykonywania kodu. W programie Excel „Zestaw” jest stosowany głównie w arkuszach / zakresie komórek w określonym arkuszu.
Składnia:
Ustaw nazwę obiektu / zmienną = Obiekt / Zakres
Uwaga: musisz mieć kartę Deweloper w arkuszu programu Excel.Jeśli nie widzisz karty „Deweloper” w programie Excel, zapoznaj się z poniższymi krokami:
Krok 1: Kliknij opcję pliku .
Krok 2: Zostanie wyświetlone menu rozwijane. Kliknij kartę Opcje .
Krok 3: Po kliknięciu „Opcje” pojawi się okno dialogowe, jak pokazano poniżej, i kliknij opcję Dostosuj wstążkę .
Krok 4: Kiedy przeciągniemy w dół opcje dostosowywania wstążki, znajdziemy opcję dla programisty, musimy zaznaczyć to pole, które pozwoli nam używać VBA w programie Excel.
Jak używać zestawu słów kluczowych w VBA?
Poniżej znajdują się różne przykłady użycia słowa kluczowego set w programie Excel VBA.
Możesz pobrać ten szablon VBA Set Excel tutaj - VBA Set Excel TemplateZestaw Excel VBA - przykład nr 1
Weźmy prosty przykład słowa kluczowego Set w programie Excel VBA. Załóżmy, że chcielibyśmy wybrać zakres i ustawić go jako zakres ustalony, aby uniknąć powtórzeń. Poniżej znajduje się zakres komórek zawierający nazwy:
Wykonaj poniższe kroki, aby użyć zestawu słów kluczowych w programie Excel VBA:
Krok 1: Kliknij kartę „Deweloper”, a następnie kliknij opcję „Visual Basic” po lewej stronie (pierwsza opcja), jak pokazano poniżej.
Po kliknięciu pojawi się nowe okno, jak pokazano poniżej:
Zauważysz, że po lewej stronie znajdują się dwie zakładki: „Arkusz1 (Arkusz1)” i „ThisWorkbook”. Jedyną różnicą jest „Arkusz1”, gdy chcemy wykonać kod tylko dla tego konkretnego arkusza, aw „ThisWorkbook” możemy napisać kod i wykonać, który można zastosować dla całego skoroszytu programu Excel.
Krok 2: Kliknij dwukrotnie „Arkusz 1 (Arkusz 1), a zobaczysz pusty ekran, w którym musimy napisać kod. Najpierw zadeklaruj podzbiór jako Nazwa podrzędna i naciśnij klawisz Enter, a zobaczysz podzbiór utworzony, jak pokazano poniżej:
Kod:
Sub setexmp () End Sub
W ten sposób tworzymy podzbiór i automatycznie pojawia się „End Sub”. Jest to domyślnie funkcja programu Excel. Jeśli „End Sub” nie pojawi się, kod nie zostanie wykonany i zgłosi błąd.
Krok 3: Teraz zadeklarujemy zmienne do użycia w kodzie.
Wpisz Dim nazwa zmiennej i typ zmiennej. Tutaj nazwa będzie podobna do tożsamości zakresu i typu, czy będzie to liczba całkowita, długa, łańcuchowa, zakres itp.
Kod:
Sub setexmp () Dim Rnst As Range End Sub
Tutaj „Rnst” jest nazwą zmiennej i przypisuje (As) jako funkcję Range. Zaalarmuje to system, że dokonany zostanie wybór zakresu.
Krok 4: Następnie wpisz słowo kluczowe „Ustaw” i podaj zakres, używając formatu: Ustaw zmienną = Zakres („zakres komórek”) .
Kod:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") End Sub
Krok 5: Musimy wybrać określony zakres wierszy. Dlatego wpisz wybierz jako Rnst. Wybierz Zobacz zrzut ekranu poniżej:
Kod:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst Wybierz End Sub
Krok 6: Uruchom kod, naciskając klawisz F5 lub Run i zobacz wynik.
Wybierze określony zakres, który jest od komórek A2 do A11.
Zestaw Excel VBA - Przykład 2
Załóżmy, że chcemy wkleić te komórki lub zakres w innej komórce. Użyjemy tego samego kodu jak powyżej i dodamy kod do wklejenia tych danych w wielu kolumnach.
Wykonaj poniższe kroki:
Krok 1: Teraz skopiujemy zakres komórek, który jest kolumną nazwy. Wpisz copy, tj. „Rnst.Copy”, gdy wpiszesz „Rnst.”, Pojawi się rodzaj menu rozwijanego. Zawiera różne funkcje, takie jak kopiowanie, wklejanie itp.
Krok 2: Możesz przewinąć w dół i wybrać żądaną funkcję, którą chcesz wykonać. Tutaj wpisz „Kopiuj”, jak pokazano na zrzucie ekranu poniżej:
Kod:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst.Wybierz Rnst. Kopiuj End Sub
Krok 3: Skompiluj kod, naciskając klawisz F8.
Po uruchomieniu tej funkcji kopiowania zobaczysz, że w programie Excel zakres jest kopiowany, a wokół zakresu komórek pojawiają się kropkowane linie, jak pokazano poniżej:
Krok 4: Teraz musimy wkleić te komórki, powiedzmy w sąsiednich kolumnach jeden po drugim, więc musimy użyć funkcji pętli „For” i przypuśćmy, że 5 razy musimy wkleić, więc napiszemy ją, jak pokazano poniżej:
Dla liczb całkowitych i = 1 do 5 -> określa, ile razy musimy wkleić dane. Jeśli 5, to 1 do 5, w zależności od tego, co wolisz.
Kod:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst Wybierz Rnst. Kopiuj dla i = 1 do 5 End Sub
Krok 5: Wybierz komórkę, w której chcesz wkleić ten zakres komórek. Załóżmy, że chcemy rozpocząć wklejanie od kolumny B2, a następnie wklejanie danych powinno być dynamiczne, tj. Powinno automatycznie wybierać sąsiednie kolumny jeden po drugim bez nakładania się. Stąd składnia będzie następująca: „Komórka (numer wiersza, numer kolumny) .PasteSpecial”.
Komórki (2, i + 1). WklejSpecjalne, Tutaj 2-> reprezentuje numer wiersza, a i + 1 -> reprezentuje numer kolumny. i + 1 oznacza, że pierwsza wartość I zadeklarowana w pętli „For” to i = 1, stąd wartość kolumny stanie się 2, oznacza to, że zacznie ona wklejać z kolumny B. A gdy i gdy wartość wzrośnie, będzie nadal wybierać sąsiednie kolumny jeden po drugim.
Kod:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst. Wybierz Rnst. Kopiuj dla i = 1 do 5 komórek (2, i + 1). Wklej Specjalny xl Wartości Koniec Sub
Krok 6: Wpisz „ Next i ”, co oznacza, że zwiększasz wartość „i” jeden po drugim, aby wklejenie kolumn pozostało dynamiczne.
Kod:
Sub setexmp () Dim Rnst As Range Set Rnst = Range ("A2: A11") Rnst. Wybierz Rnst. Kopiuj dla i = 1 do 5 komórek (2, i + 1).
Krok 7: Naciśnij „F8”, aby zobaczyć kod wykonywany wiersz po wierszu i pokaże wklejanie komórek w sąsiednich kolumnach jeden po drugim.
Tutaj możesz zobaczyć, że wartość i wynosi 1, a dane zostały wklejone zgodnie z potrzebą w kolumnie B.
Krok 8: Teraz, gdy ponownie naciśniesz „F8”, zobaczysz, że teraz wartość i wynosi 2. Stąd 2 + 1 stanie się 3, a dane zostaną wklejone do komórki (2, 3), tj. Wartość wiersza jest taka sama, ale kolumna zmiany liczby, jak pokazano na zrzucie ekranu poniżej:
Po zakończeniu powtarzania pętli dane zostaną wklejone 5 razy, tj. Od liczby 1 do 5, zaczynając wklejać od kolumny B do kolumny F, jak pokazano poniżej:
Zestaw Excel VBA - przykład nr 3
Załóżmy, że chcielibyśmy wyświetlić liczbę komórek w tym zakresie w oknie komunikatu pojawiającym się po kliknięciu przycisku. Weźmiemy te same dane, jak pokazano poniżej.
Ponadto uruchomimy kod tego przykładu w nowym arkuszu. Dlatego dodaj nowy arkusz, aw oknie VBA pojawi się on jak poniżej:
Będziemy musieli wstawić opcję przycisku polecenia. Jest to funkcja programu Excel, dlatego wykonaj następujące czynności:
Krok 1: Wprowadź nazwę podzestawu, powiedz „Setcount ()”, jak pokazano na zrzucie ekranu poniżej:
Kod:
Sub Setcount () End Sub
Krok 2: Zadeklaruj tę samą zmienną „Rnct” jako zakres w podzbiorze, jak pokazano na zrzucie ekranu poniżej:
Kod:
Sub Setcount () Dim Rnct As Range End Sub
Krok 3: Następnie wpisz słowo kluczowe „Ustaw” i podaj zakres.
Kod:
Sub Setcount () Dim Rnct As Range Set Rnct = Range ("A2: A11") End Sub
Krok 4: Teraz, po ustaleniu zakresu, musimy zobaczyć wyskakujące okienko lub okno dialogowe pokazujące liczbę komórek w zakresie. Dlatego użyj funkcji „MsgBox”, która po wykonaniu pojawi się w oknie dialogowym. Wpisz „nazwa zmiennej MsgBox.count”. Chwilę po wpisaniu nazwy zmiennej, a następnie kropki (.) Pojawia się menu rozwijane zawierające różne funkcje i wybieramy „count” lub ręcznie wpisz „count”.
Wpisz „MsgBox Rnct.count”, a po wykonaniu pojawi się liczba.
Krok 5: Teraz chcemy wstawić przycisk polecenia i po kliknięciu tego przycisku powinno pojawić się okno komunikatu.
Kliknij „Wstaw” na karcie „Deweloper”, jak zaznaczono w czerwonym polu, a zobaczysz menu kategorii „Formanty formularza”. Kliknij pierwszy prostokąt w kształcie pudełka, który będziemy musieli ręcznie narysować i wstawić do arkusza programu Excel:
Krok 6: Po kliknięciu prostokątnego pola narysuj i wstaw pole w arkuszu, a po rozpoczęciu rysowania pojawi się okno dialogowe, jak pokazano poniżej. Jest to przycisk okna „Przypisz makro” i wybierz makro podzestawu „Setcount”. Kliknij „OK”.
Oznacza to, że do tego przycisku przypisaliśmy makro count. I po kliknięciu uruchomi się.
Krok 7: Pojawi się, jak pokazano poniżej w programie Excel.
Krok 8: Kliknij go prawym przyciskiem myszy i zmień nazwę za pomocą opcji „ Edytuj tekst ”, jak pokazano poniżej:
Krok 9: Nadaj mu nazwę „COUNT”, a zobaczysz go w programie Excel, licząc jak pokazano poniżej.
Krok 10: Następnie kliknij przycisk „COUNT”: Po kliknięciu przycisku „COUNT” pojawi się okno komunikatu, jak pokazano poniżej:
Jak widzimy, istnieje 10 nazwisk, które pokazały prawidłową liczbę z zakresu od A2 do A11.
Rzeczy do zapamiętania
- Upewnij się, że karta „Deweloper” jest włożona do wstążek programu Excel, aby uruchomić kody VBA.
- „Zestaw” jest stosowany głównie w arkuszach / zakresie komórek w określonym arkuszu.
Polecane artykuły
To jest przewodnik po zestawie VBA. Tutaj omawiamy, jak przypisać odwołanie do obiektu lub zakresu komórek za pomocą słowa kluczowego VBA Set programu Excel wraz z praktycznymi przykładami i szablonem programu Excel do pobrania. Poniżej znajduje się kilka przydatnych artykułów Excela związanych z VBA -
- Funkcja konkatenacji VBA
- Samouczki na temat zestawów ikon programu Excel
- Praca z komórkami zakresu w VBA
- Rozwiąż równanie w programie Excel