Z metodami spotkałeś się już w tym kursie, przypomnij sobie stronę Formularze. Przedstawiłem na niej dwie metody operujące na formularzach, metodę Show która wyświetla formularz i metodę Hide ukrywającą formularz. Na tej stronie przedstawię kilka metod których możemy użyć bezpośrednią w arkuszu Excela.
metoda - procedura podobna do instrukcji lub funkcji, operująca na konkretnych obiektach.
Metoda jest akcją, którą może wykonać obiekt lub którą wykonujemy na obiekcie. Najogólniej możemy powiedzieć że metoda to procedura związana z konkretnym obiektem. Ponieważ kod metody jest częścią obiektu, obiekt że tak powiem wie co ma robić kiedy wywołamy określoną metodę. Oczywiście różne obiekty mogą posiadać i wykonywać różne metody.
Jak już wspomniałem metody to zadania (akcje) które dany obiekt może wykonać lub które mogą być wykonane na danym obiekcie. Za pomocą metody możemy na przykład zapisać czy wydrukować dokument, lub wyczyścić zawartość komórek arkusza. W poniższych przykładach przedstawiam kilka praktycznych zastosowań niektórych metod. Tekst kodu przykładów w kolorze zielonym zaczynający się od znaku ' jest komentarzem i nie ma wpływu na działanie przykładów.
Sub WyczyscWszystko()
Range("A1").Clear 'Za pomocą metody Clear czyścimy zawartość i przywracamy domyślne formatowanie komórkę A1 arkusza Excela.
End Sub
Sub WyczyscZawartosc()
Range("A1").ClearContents 'Wykorzystując metodę ClearContents czyścimy tylko zawartość komórki A1 arkusza.
End Sub
Sub WyczyscFormat()
Range("A1").ClearFormats 'Korzystając z metody ClearFormats przywracamy formatowanie domyślne dla komórki A1 .
End Sub
Sub WyczyscZakres()
Range("A1:D10").ClearContents 'Czyścimy zawartość komórek z zakresu A1:D10, analogicznie możemy zastosować metody Clear i ClearFormats.
End Sub
Sub Czyszczenie()
For Each obiekt In Worksheets("Arkusz1").Range("A1:M25")
If IsNumeric(obiekt.Value) = True Then
If obiekt.Value < 0 Then
obiekt.ClearContents
End If
End If
Next 'Za pomocą pętli For Each...Next przeszukiwany jest zakres komórek A1:M25 arkusza Excela o nazwie Arkusz1. Korzystając z metody ClearContents czyszczona jest zawartość komórek o wartościach mniejszych od 0.
End Sub
Sub Zapisywanie()
ActiveWorkbook.Save 'Metoda Save zapisuje obiekt, nasz kod powoduje zapisanie zmian w aktywnym dokumencie Excela.
End Sub
Sub Podgląd()
Worksheets("Arkusz1").PrintPreview 'Za pomocą metody PrintPreview wyświetlamy podgląd wydruku arkusza o nazwie Arkusza1.
End Sub
Sub Drukuj()
Range("B4:H22").PrintOut 'Metoda PrintOut drukuje wskazany obiekt. Powyższy kod spowoduje wydrukowanie zawartości zakresu komórek B2:H22, na domyślnej drukarce z domyślnymi (lub zdefiniowanymi wcześniej) opcjami.
End Sub
Aby przetestować przykłady umieść kody z przykładów w module standardowym, jeżeli nie wiesz jak to zrobić wykonaj następujące czynności:
Z menu Widok wybieramy Paski narzędzi a następnie opcje Visual Basic, (jeżeli pasek nie jest widoczny).
Z paska narzędzi Visual Basic wybieramy przycisk Edytor Visual Basic.
W nowo otwartym oknie Microsoft Visual Basic-Zeszyt1 z menu View (Widok) wybieramy opcję ProjectExplorer (Eksploator projektu). Powinno się otworzyć okno Project-VBAProject (Projekt-VBAProject) oczywiście punktu tego nie wykonujemy, jeżeli okienko było wcześniej otwarte.
Następnie w celu wstawienia nowego modułu, z menu Insert (Wstaw) wybieramy opcję Module (Moduł). Wstawiony obiekt Module1 (Moduł1) powinien się pojawić oknie Project-VBAProject. Powinno się też pojawić okno Zeszyt1-Module1(Code) (Zeszyt1-Moduł1(Kod programu)). Jeżeli okno się nie pojawi aby je uaktywnić w oknie Project-VBAProject klikamy dwa razy lewym przyciskiem myszy na obiekt Module1 (Moduł1).
W nowo otwartym oknie Zeszyt1-Module1(Code) (Zeszyt1-Moduł1(Kod programu)) piszemy (wstawiamy) kody z przykładów.
Zamykamy Edytor VisualBasic (Alt+Q) i powracamy do arkusza Excela.
Nasze kody możemy uruchomić na różne sposoby, ja wykorzystałem przycisk z paska narzędzi Formularze. Aby tego dokonać wykonaj następujące czynności.
Z menu Widok dokumentu Excela wybieramy Paski narzędzi a następnie opcję Formularze.
Z paska narzędzi Formularze wybieramy ikonę Przycisk a następnie miejsce w arkuszu gdzie chcemy go umieścić.
Powinno się otworzyć okno Przypisz makro, (jeżeli okno się nie otworzy klikamy prawym przyciskiem myszy na nasz wstawiony przycisk i wybieramy opcję Przypisz makro...). W oknie tym zaznaczamy odpowiednią nazwę procedury na przykład Zapisywanie i klikamy przycisk OK.
Kliknij na jakieś miejsce w arkuszu (celem zlikwidowania zaznaczenia przycisku) a następnie na wstawiony przycisk i przetestuj działanie przykładu.
Możemy też zmienić tekst wyświetlany na przycisku, odpowiedni do wykonywanej metody.
Klikamy prawym przyciskiem myszy na przycisku.
Z otwartego menu wybieramy opcję Edytuj tekst i zmieniamy tekst na przycisku.
|