Tässä artikkelissa luomme makron tulostamaan tietoja eri taulukoilta.
Meillä on erilaiset raakatiedot kahdessa arkissa ja haluamme muokata tulostusta näistä arkeista.
Ennen makron suorittamista meidän on määritettävä vaadittava tulostustyyppi ja nimi, alue tai mukautettu näkymä.
Olemme luoneet mukautetun näkymän "customView1".
Looginen selitys
Olemme luoneet "PrintReports" -makron mukautettua tulostusta varten. Tämä makro silmukka alkaa solusta A13 viimeiseen riviin. Voimme määrittää kolme eri tyyppiä mukautettua tulostusta varten.
Tyypille 1 meidän on määritettävä taulukon nimi seuraavassa sarakkeessa.
Tyypille 2 meidän on määritettävä alue, jolle haluamme tulostaa.
Tyypille 3 meidän on määritettävä mukautetun näkymän nimi.
Koodin selitys
Jokaiselle solulle 1 alueella ("A13", ActiveCell.End (xlDown))
Yllä olevaa koodia käytetään silmukkaan alkaen solusta A13 viimeiseen riviin.
DefinedName = ActiveCell.Offset (0, 1). Arvo
Yllä olevaa koodia käytetään arvon saamiseen aktiivisen solun seuraavan sarakkeen solusta.
Valitse Case Cell1.Value
Tapaus 1
'Määritetyn taulukon valitseminen
Sheets (DefinedName) Valitse
Tapaus 2
'Määritetyn alueen valitseminen
Application.Goto Reference: = MääritettyNimi
Tapaus 3
'Määritetyn mukautetun näkymän valitseminen
ActiveWorkbook.CustomViews (DefinedName) .Näytä
Lopeta Valitse
Yllä olevaa Select -lauseketta käytetään valitun alueen valitsemiseen käyttäjän määrittämän tyypin perusteella.
ActiveWindow.SelectedSheets.PrintOut
Yllä olevaa koodia käytetään valitun alueen tulostamiseen.
Seuraa koodia alla
Vaihtoehto Explicit Sub PrintReports () 'Ilmoitetut muuttujat Dim DefinedName As String Dim Cell1 As Range' Näytön päivitysten poistaminen käytöstä Application.ScreenUpdating = False 'Silmukan läpikäyminen kaikkien solujen välillä jokaiselle alueen1 solulle ("A13", ActiveCell.End (xlDown)) ("Main"). Aktivoi 'Solun valitseminen Solu 1.Valitse' Arkin nimen tai määritetyn alueen arvon saaminen DefinedName = ActiveCell.Offset (0, 1) .Arvo Valitse Case Cell1.Value Case 1 'Määritettyjen arkkien valitseminen Sheets (DefinedName Valitse tapaus 2 'Määritetyn alueen valinta Sovellus.Goto Reference: = DefinedName Case 3' Määritetyn mukautetun näkymän valitseminen ActiveWorkbook.CustomViews (Määritetty nimi) .Näytä lopetus Valitse 'Tarvittavien tietojen tulostaminen ActiveWindow.SelectedSheets.PrintOut Next Application.ScreenUpdating = True End Sub
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse