Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na " Developer " karte v aplikácii Excel 2007 .
2
Kliknite na " Visual Basic " otvorte Editor jazyka Visual Basic ( VBE ) . < Br . >
3
Kliknite na " Vložiť " a potom " module " sa otvorí prázdne okno modulu
4
skopírujte a vložte nasledujúci kód do okna modulu :
Sub PrintOddEven ( )
Dim TotalPages As Long Dim
StartPage ako dlho
Dim Page As Integer
StartPage = InputBox ( " Zadajte číslo počiatočnej stránky " )
TotalPages = Application.ExecuteExcel4Macro ( " GET.DOCUMENT ( 50 ) " )
Ak StartPage > 0 a StartPage < = TotalPages Potom
pre page = StartPage pre TotalPages Krok 2
ActiveSheet.PrintOut Od : = Stránka , K : = Stránka , _
Kópia : = 1 , Triedenie : = TRUE
Ďalšie
End If
End Sub
5
Stlačte " F5 " pre spustenie makra . Objaví sa pop - up okno a budete vrátení späť do tabuľky programu Excel .
6
Zadajte počiatočné číslo stránky v textovom poli . Ak chcete tlačiť stránky s nepárnymi stránky , zadajte nepárne číslo . Ak chcete vytlačiť aj stránky , zadajte aj číslo . Excel vytlačí párne alebo nepárne stránky z východiskového bodu . Napríklad , ak zadáte " 1 , " Excel vytlačí nepárne stránky 1 až do konca dokumentu .
Copyright © počítačové znalosti Všetky práva vyhradené