Šajā rakstā mēs izveidosim makro, lai drukātu datus no dažādām lapām.
Divās lapās mums ir dažādi neapstrādāti dati, un mēs vēlamies pielāgot šo lapu izdruku.
Pirms makro palaišanas mums ir jānorāda nepieciešamais izdrukas veids un jānorāda nosaukums, diapazons vai pielāgots skats.
Mēs esam izveidojuši pielāgotu skatu “customView1”.
Loģisks skaidrojums
Mēs esam izveidojuši makro “PrintReports” pielāgotai drukāšanai. Šis makro darbosies, sākot no šūnas A13 līdz pēdējai rindai. Mēs varam norādīt trīs dažādus pielāgotās drukas veidus.
1. tipam nākamajā kolonnā mums jānorāda lapas nosaukums.
2. tipam mums jānorāda diapazons, kuram mēs vēlamies izdruku.
3. tipam mums jānorāda pielāgotā skata nosaukums.
Koda skaidrojums
Par katru šūnu1 diapazonā ("A13", ActiveCell.End (xlDown))
Iepriekš minētais kods tiek izmantots cilpai, sākot no šūnas A13 līdz pēdējai rindai.
DefinedName = ActiveCell.Offset (0, 1). Vērtība
Iepriekš minēto kodu izmanto, lai no aktīvās šūnas iegūtu vērtību no nākamās kolonnas šūnas.
Atlasiet Case Cell1.Value
1. gadījums
'Noteiktas lapas izvēle
Izklājlapas (DefinedName). Atlasiet
2. gadījums
'Noteiktā diapazona izvēle
Application.Goto Reference: = DefinedName
3. gadījums
'Izvēloties definēto pielāgoto skatu
ActiveWorkbook.CustomViews (DefinedName). Parādīt
Beigas Atlasīt
Iepriekš minētais paziņojums Select tiek izmantots, lai atlasītu norādīto apgabalu, pamatojoties uz lietotāja definēto veidu.
ActiveWindow.SelectedSheets.PrintOut
Iepriekš minēto kodu izmanto, lai drukātu izvēlēto apgabalu.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub PrintReports () 'Deklarētie mainīgie Dim DefinedName As String Dim Cell1 As Range' Ekrāna atjauninājumu atspējošana ("Galvenais"). Aktivizējiet "Šūnas atlasīšana Šūna 1. Atlasiet" Lapas nosaukuma vai definēta diapazona vērtības iegūšana DefinedName = ActiveCell.Offset (0, 1). Vērtība Atlasīt Case Cell1.Value Case 1 'Definētās lapas lapas izvēle (DefinedName ). Atlasiet 2. gadījumu. Atlasot definēto diapazonu Lietojumprogramma. Goto Reference: = DefinedName Case 3 "Definētā pielāgotā skata izvēle ActiveWorkbook.CustomViews (DefinedName). Rādīt beigas Atlasīt" Nepieciešamo datu drukāšana ActiveWindow.SelectedSheets.PrintOut Next Application.ScreenUpdating = True End Sub
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē