Selles artiklis loome makro, et printida andmeid erinevatelt lehtedelt.
Meil on kahel lehel erinevad lähteandmed ja me tahame nendelt lehtedelt väljatrükki kohandada.
Enne makro käivitamist peame määrama vajaliku väljatrüki tüübi ja nime, vahemiku või kohandatud vaate.
Oleme loonud kohandatud vaate “customView1”.
Loogiline seletus
Oleme kohandatud printimiseks loonud makro „PrintReports”. See makro hakkab liikuma lahtrist A13 viimasele reale. Kohandatud printimiseks saame määrata kolm erinevat tüüpi.
Tüübi 1 puhul peame järgmises veerus täpsustama lehe nime.
Tüübi 2 puhul peame määrama vahemiku, mille jaoks me soovime väljatrükki.
Tüübi 3 puhul peame määrama kohandatud vaate nime.
Koodi selgitus
Iga lahtri1 vahemikus ("A13", ActiveCell.End (xlDown))
Ülaltoodud koodi kasutatakse silmusena, mis algab lahtrist A13 viimasele reale.
DefinedName = ActiveCell.Offset (0, 1) .Väärtus
Ülaltoodud koodi kasutatakse aktiivse lahtri järgmise veeru lahtri väärtuse saamiseks.
Valige Case Cell1.Value
Juhtum 1
'Määratud lehe valimine
Arvutustabelid (DefinedName). Valige
Juhtum 2
'Määratud vahemiku valimine
Application.Goto Viide: = DefinedName
Juhtum 3
'Määratud kohandatud vaate valimine
ActiveWorkbook.CustomViews (DefinedName). Näita
Lõpp Vali
Ülaltoodud lauset Select kasutatakse valitud ala valimiseks vastavalt kasutaja määratud tüübile.
ActiveWindow.SelectedSheets.PrintOut
Ülaltoodud koodi kasutatakse valitud ala printimiseks.
Palun järgige koodi allpool
Suvand Explicit Sub PrintReports () 'Deklareeritud muutujad Dim DefinedName As String Dim Cell1 As Range' Ekraani värskenduste keelamine Application.ScreenUpdating = False ("Main"). Aktiveerige 'Lahtri valimine Cell1. Valige' Lehe nime või määratletud vahemiku väärtuse hankimine DefinedName = ActiveCell.Offset (0, 1) .Väärtus Valige Case Cell1.Value Case 1 'Määratud lehe valimine Sheets (DefinedName ). Valige juhtum 2 'Määratud vahemiku valimine Rakendus. Goto Reference: = DefinedName Case 3' Määratud kohandatud vaate valimine ActiveWorkbook.CustomViews (DefinedName). Näita lõppu Valige nõutavate andmete printimine ActiveWindow.SelectedSheets.PrintOut Next Application.ScreenUpdating = True End Sub
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile