V tomto článku vytvoríme makro na tlač údajov z rôznych hárkov.
Na dvoch listoch máme rôzne nespracované údaje a chceme z nich prispôsobiť výtlačok.
Pred spustením makra musíme zadať požadovaný typ výtlačku a názov, rozsah alebo vlastné zobrazenie.
Vytvorili sme vlastné zobrazenie „customView1“.
Logické vysvetlenie
Vytvorili sme makro „PrintReports“ na prispôsobenú tlač. Toto makro sa zacyklí od bunky A13 do posledného riadka. Pre prispôsobenú tlač môžeme určiť tri rôzne typy.
Pre typ 1 musíme v nasledujúcom stĺpci zadať názov hárka.
Pre typ 2 musíme špecifikovať rozsah, pre ktorý chceme výtlačok.
Pre typ 3 musíme zadať názov vlastného zobrazenia.
Vysvetlenie kódu
Pre každú bunku1 v rozsahu („A13“, ActiveCell.End (xlDown))
Vyššie uvedený kód sa používa na cyklovanie od bunky A13 po posledný riadok.
DefinedName = ActiveCell.Offset (0, 1) .Hodnota
Vyššie uvedený kód sa používa na získanie hodnoty z bunky v nasledujúcom stĺpci z aktívnej bunky.
Vyberte Case Cell1.Value
Prípad 1
„Výber definovaného listu
Tabuľky (DefinedName). Vyberte
Prípad 2
„Výber definovaného rozsahu
Odkaz na aplikáciu. Choďte: = Definované meno
Prípad 3
'Výber definovaného vlastného zobrazenia
ActiveWorkbook.CustomViews (DefinedName). Zobraziť
Ukončiť výber
Vyššie uvedený príkaz Select sa používa na výber špecifikovanej oblasti na základe typu definovaného používateľom.
ActiveWindow.SelectedSheets.PrintOut
Vyššie uvedený kód sa používa na vytlačenie vybranej oblasti.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Možnosť Explicitná čiastková tlačová zostava () „Deklarované premenné Dim DefinedName ako reťazec Dim Cell1 ako rozsah“ Zakázanie aktualizácií obrazovky Application.ScreenUpdating = False 'Prechádzanie všetkými bunkami pre každú bunku1 v rozsahu („A13“, ActiveCell.End (xlDown)) ("Hlavné"). Aktivujte 'Výber bunky Bunka 1. Vyberte' Získanie hodnoty názvu hárka alebo definovaného rozsahu DefinedName = ActiveCell.Offset (0, 1). Hodnota Vyberte prípad Bunka1.Hodnota Prípad 1 'Výber definovaných hárkov (DefinedName ]. Vyberte prípad 2 „Výber definovaného rozsahu aplikácie. Choďte na referenciu: = Definovaný názov Prípad 3“ Výber definovaného vlastného zobrazenia ActiveWorkbook.CustomViews (DefinedName). Zobraziť koniec výberu „Tlač požadovaných údajov ActiveWindow.SelectedSheets.PrintOut Nasledujúca aplikácia.ScreenUpdating = True End Sub
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku