U ovom ćemo članku stvoriti makro za ispis podataka s različitih listova.
Imamo različite neobrađene podatke na dva lista i želimo prilagoditi ispis s ovih listova.
Prije pokretanja makronaredbe moramo odrediti vrstu ispisa koja je potrebna i odrediti naziv, raspon ili prilagođeni prikaz.
Napravili smo prilagođeni prikaz "customView1".
Logično objašnjenje
Napravili smo makro "PrintReports" za prilagođeni ispis. Ova makronaredba petljat će počevši od ćelije A13 do posljednjeg retka. Za prilagođeni ispis možemo navesti tri različite vrste.
Za tip 1, moramo navesti naziv lista u sljedećem stupcu.
Za tip 2 moramo navesti raspon za koji želimo ispis.
Za tip 3 moramo navesti naziv prilagođenog prikaza.
Objašnjenje koda
Za svaku ćeliju 1 u rasponu ("A13", ActiveCell.End (xlDown))
Gornji kôd koristi se za petlju počevši od ćelije A13 do posljednjeg retka.
DefinedName = ActiveCell.Offset (0, 1) .Vrijednost
Gornji kôd koristi se za dobivanje vrijednosti iz ćelije u sljedećem stupcu iz aktivne ćelije.
Odaberite Cell Case 1.Value
Slučaj 1
'Odabir definiranog lista
Tablice (Definirano ime) .Odaberi
Slučaj 2
'Odabir definiranog raspona
Application.Goto Reference: = DefinedName
Slučaj 3
'Odabir definiranog prilagođenog prikaza
ActiveWorkbook.CustomViews (DefinedName) .Show
Kraj Odaberite
Gornja naredba Select koristi se za odabir navedenog područja na temelju vrste koju je definirao korisnik.
ActiveWindow.SelectedSheets.PrintOut
Gornji kôd koristi se za ispis odabranog područja.
Molimo slijedite dolje za kôd
Opcija Explicit Sub PrintReports () 'Deklarirane varijable Dim DefinedName As String Dim Cell1 As Range' Onemogućavanje ažuriranja zaslona Application.ScreenUpdating = False 'Petlja kroz sve ćelije za svaku ćeliju1 u rasponu ("A13", ActiveCell.End (xlDown)) listova ("Glavni"). Aktivirajte 'Odabir ćelije Ćelija 1. Odaberite' Dobivanje vrijednosti naziva lista ili definiranog raspona DefinedName = ActiveCell.Offset (0, 1). Cell Select Case Cell1.Value Case 1 'Odabir definiranih listova lista (DefinedName ) .Odaberite slučaj 2 'Odabir definiranog raspona Application.Goto Reference: = DefinedName Case 3' Odabir definiranog prilagođenog prikaza ActiveWorkbook.CustomViews (DefinedName) .Show End Select 'Ispis potrebnih podataka ActiveWindow.SelectedSheets.PrintOut Next Application.ScreenUpdating = True End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte