W tym artykule dowiemy się, jak utworzyć formularz użytkownika do wyszukiwania i drukowania za pomocą VBA w programie Microsoft Excel.
Zrozummy za pomocą prostego ćwiczenia:-
Mamy dane w Arkuszu 1, w którym kolumna A zawiera identyfikator agenta, kolumna B zawiera nazwę, kolumnę C adres, kolumnę D miasto, kolumnę E region, kolumnę F kraj, a kolumnę G zawiera kod pocztowy.
W następnym arkuszu (arkusz 2) chcemy pobrać szczegóły zgodnie z poniższym obrazem:-
Jeśli przeszukujemy Agent Id, wszystkie szczegóły powinny pojawić się w zakresie A11:D11. A potem daj wydruk.
Wykonaj poniższe kroki, aby wyszukać i wydrukować szczegóły:-
- Naciśnij klawisz F11, aby otworzyć Edytor Visual Basic
- Włóż moduł, aby napisać kod dla przycisku wyszukiwania
- Napisz poniższy kod:-
Sub Searchdata() Dim Lastrow As Long Dim count As Integer Lastrow = Sheets("Data").Cells(Rows.count, 1).End(xlUp).Row For X = 2 To Lastrow If Sheets("Data"). Cells(X, 1) = Sheet3.Range("B3") Then Sheet3.Range("A11") = Sheets("Dane").Cells(X, 1) Sheet3.Range("B11") = Sheets(" Dane").Cells(X, 2) Sheet3.Range("C11") = Sheets("Dane").Cells(X, 3) & " " & Sheets("dane").Cells(X, 4) _ & " " & Sheets("dane").Cells(X, 5) & " " & Sheets("Dane").Cells(X, 6) Sheet3.Range("D11") = Sheets("Dane"). Komórki(X, 7) Koniec, jeśli następny X Koniec Sub
Wyjaśnienie kodu:- Najpierw zdefiniujemy zmienne, a następnie określiliśmy, który wiersz będzie ostatnim wierszem, a następnie określiliśmy, co i gdzie będzie przeszukiwany Agent Id, a następnie jak będzie aktualizowany zakres dla szukanego Agenta ID.
Teraz przypiszemy to makro do przycisku Szukaj.
- Kliknij prawym przyciskiem myszy przycisk
- Kliknij Przypisz makro
- Tutaj naszym tematem makra jest Searchdata, kliknij searchdata, a następnie kliknij OK
Uruchom makro:-
- Aby uruchomić makro, kliknij przycisk Szukaj
- Jeśli identyfikator agenta będzie tam, szczegóły zostaną zaktualizowane, w przeciwnym razie szczegóły się nie pojawią
Aby wydać wydruk, przypisz poniższe makro:-
- Wstaw przycisk z zakładki Deweloper>Wstaw>Przycisk(formant formularza)
- Napisz makro w tym samym modelu, w którym zapisaliśmy makro dla Searchdata, o nazwie tematu Printout
Sub PrintOut() Sheet3.Range("A1:D12").PrintPreview Sheet3.Range("A1:D12").PrintOut End Sub
- Przypisz makro do przycisku tak, jak przypisaliśmy do danych wyszukiwania
W ten sposób możemy przeszukać dane, a następnie wydać wydruk szukanym szczegółom poprzez VBA w Microsoft Excel.
Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail