Fare clic su " Start", " Tutti i programmi " e " Microsoft Excel" per entrare nell'interfaccia di Excel . Fare clic sulla barra multifunzione "Sviluppatore " e poi il tasto " Macro Sicurezza" . Selezionare " Disattiva tutte le macro con notifica " e fare clic su "Salva ". Ora avete impostato le macro nel vostro Excel .
2
Premi " Alt " e " F11 " contemporaneamente per lanciare VBE . Fare doppio clic su " Foglio1 " sul riquadro a destra nella vostra VBE per aprire la finestra del codice . Selezionare " Foglio di lavoro " sulle opzioni a discesa nella finestra del codice
3
Inserisci il seguente codice nella finestra del codice : .
Sub PrintReport ( ) per
Dim PAGE_NUMBER
Dim ActiveSh come manuale
Dim ShNameView As String
ActiveSh = ActiveSheet
per ogni cella Range ( Range (" b3 " ) , Range ( " B3 " ) . End ( xlDown ) ) per
Sh_view ActiveCell.Offset = ( 0 , 1 ) . Valore
PAGE_NUMBER ActiveCell.Offset = ( 0 , 1 ) . Valore
Select Case Cell.Value
caso 1
Sheets ( ShNameView ) . Selezionare
caso 2
Application . Vai Riferimento: = ShNameView
End Select
Copie ActiveWindow.SeletedSheets.Printout : = 1
Avanti
Il loop nel codice porta ad una stampa per ogni cella nella colonna B a partire da B2 . Il codice consente di stampare solo le pagine nella cartella di lavoro corrente .
Programmazione © www.354353.com