W tym artykule stworzymy makro do drukowania danych z różnych arkuszy.
Mamy różne surowe dane na dwóch arkuszach i chcemy dostosować wydruk z tych arkuszy.
Przed uruchomieniem makra musimy określić rodzaj wymaganego wydruku oraz określić nazwę, zakres lub własny widok.
Stworzyliśmy niestandardowy widok „customView1”.
Wyjaśnienie logiczne
Stworzyliśmy makro „PrintReports” do indywidualnego drukowania. To makro zapętli się od komórki A13 do ostatniego wiersza. Do indywidualnego drukowania możemy określić trzy różne typy.
Dla typu 1 musimy podać nazwę arkusza w następnej kolumnie.
Dla typu 2 musimy określić zakres, dla którego chcemy uzyskać wydruk.
Dla typu 3 musimy określić nazwę niestandardowego widoku.
Wyjaśnienie kodu
Dla każdej komórki1 w zakresie("A13", ActiveCell.End(xlDown))
Powyższy kod służy do pętli od komórki A13 do ostatniego wiersza.
DefinedName = ActiveCell.Offset(0, 1)).Wartość
Powyższy kod służy do pobrania wartości z komórki w następnej kolumnie z aktywnej komórki.
Wybierz komórkę sprawy1.Wartość
Przypadek 1
'Wybór zdefiniowanego arkusza
Arkusze (zdefiniowana nazwa). Wybierz
Przypadek 2
'Wybieranie zdefiniowanego zakresu
Application.Goto Reference:=DefiniedName
Przypadek 3
'Wybieranie zdefiniowanego widoku niestandardowego
ActiveWorkbook.CustomViews(DefinedName).Show
Koniec Wybierz
Powyższa instrukcja Select służy do wyboru określonego obszaru na podstawie typu zdefiniowanego przez użytkownika.
ActiveWindow.SelectedSheets.PrintOut
Powyższy kod służy do drukowania wybranego obszaru.
Proszę postępować zgodnie z poniższym kodem!
Option Explicit Sub PrintReports() 'Zadeklarowane zmienne Dim DefinedName As String Dim Cell1 As Range 'Wyłączanie aktualizacji ekranu Application.ScreenUpdating = False 'Przechodzenie w pętlę przez wszystkie komórki For Each Cell1 In Range("A13", ActiveCell.End(xlDown)) Arkusze („Main”). ).Select Case 2 'Wybieranie zdefiniowanego zakresu Application.Goto Reference:=DefinedName Case 3 'Wybieranie zdefiniowanego widoku niestandardowego ActiveWorkbook.CustomViews(DefinedName).Show End Select 'Drukowanie wymaganych danych ActiveWindow.SelectedSheets.PrintOut Next Application.ScreenUpdating = Prawdziwy koniec Sub
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail