Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na tlačidlo " Štart " , " Všetky programy " a " Microsoft Excel " pre vstup do rozhrania programu Excel . Kliknite na " Developer " pásku a potom na tlačidlo " Zabezpečenie makier " . Skontrolujte " Zakázať všetky makrá s oznámením " a kliknite na " Uložiť " . Teraz ste nastavili makrá v Exceli .
2
Stlačte " Alt " a " F11 " súčasne začať VBE . Double - kliknite na " Hárok1 " na pravej table vo vašom VBE otvorte okno kód . Vyberte možnosť " list " na možnostiach uvedených rozbaľovacích v okne kóde
3
Zadajte nasledujúci kód v okne kódu : .
Sub PrintReport ( )
Dim PAGE_NUMBER
Dim ActiveSh ako zošit
Dim ShNameView As String
Set ActiveSh = ActiveSheet
pre každú bunku v dosahu ( Range ( " b3 " ) , Range ( " b3 " ) . End ( xlDown ) )
Sh_view = ActiveCell.Offset ( 0 , 1 ) . Hodnota
PAGE_NUMBER = ActiveCell.Offset ( 0 , 1 ) . Hodnota
Vyberte Case Cell.Value klipart
Prípad 1
listy ( ShNameView ) . Vyberte klipart
Case 2 klipart
aplikácie . Choď Referencie : = ShNameView
End Select
ActiveWindow.SeletedSheets.Printout Kópia : = 1
Ďalšie
slučky v kóde vedie k tlači pre každú bunku v stĺpci B počnúc B2 . Kód vytlačí len stránky v aktuálnom zošite .