V tem članku bomo ustvarili makro za tiskanje podatkov z različnih listov.
V dveh listih imamo različne surove podatke in želimo prilagoditi izpis iz teh listov.
Pred zagonom makra moramo določiti vrsto zahtevanega izpisa in podati ime, obseg ali pogled po meri.
Ustvarili smo pogled po meri »customView1«.
Logična razlaga
Ustvarili smo makro »PrintReports« za tiskanje po meri. Ta makro bo zankal od celice A13 do zadnje vrstice. Za tiskanje po meri lahko določimo tri različne vrste.
Za tip 1 moramo v naslednjem stolpcu podati ime lista.
Za tip 2 moramo določiti obseg, za katerega želimo izpis.
Za tip 3 moramo določiti ime pogleda po meri.
Razlaga kode
Za vsako celico 1 v razponu ("A13", ActiveCell.End (xlDown))
Zgornja koda se uporablja za zanko od celice A13 do zadnje vrstice.
DefinedName = ActiveCell.Offset (0, 1) .Vrednost
Zgornja koda se uporablja za pridobivanje vrednosti iz celice v naslednjem stolpcu iz aktivne celice.
Izberite celica velikih črk 1. Vrednost
Primer 1
'Izbira definiranega lista
List (DefinedName) .Izberi
Primer 2
'Izbira določenega območja
Application.Goto Reference: = DefinedName
Primer 3
'Izbira definiranega pogleda po meri
ActiveWorkbook.CustomViews (DefinedName) .Show
Konec Izberite
Zgornji stavek Select se uporablja za izbiro podanega območja glede na vrsto, ki jo je določil uporabnik.
ActiveWindow.SelectedSheets.PrintOut
Zgornja koda se uporablja za tiskanje izbranega območja.
Za kodo sledite spodaj
Možnost Explicit Sub PrintReports () "Deklarirane spremenljivke Dim DefinedName As String Dim Cell1 As Range" Onemogočanje posodobitev zaslona Application.ScreenUpdating = False "Ponavljanje po vseh celicah za vsako celico1 v razponu (" A13 ", ActiveCell.End (xlDown)) ("Main"). Activate 'Izbira celice Cell 1. Izberite' Getting value of sheet sheet or defined range DefinedName = ActiveCell.Offset (0, 1) .Value Select Case Cell1.Value Case 1 'Izbira definiranih listov listov (DefinedName ) .Izberi primer 2 "Izbira opredeljenega obsega Application. Goto Reference: = DefinedName Case 3" Izbira definiranega pogleda po meri ActiveWorkbook.CustomViews (DefinedName) .Show End Select "Tiskanje zahtevanih podatkov ActiveWindow.SelectedSheets.PrintOut Next Application.ScreenUpdating = True End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte