1 Fare clic sulla scheda "Sviluppatore " e cliccare su " Visual Basic " per avviare l'editor di Visual Basic . Fai clic sul menu " Inserisci ' e fare clic su " Modulo " per inserire un nuovo modulo di codice
2
Creare una nuova procedura di sub aggiungendo il seguente codice : .
DetermineChart Private Sub ( )
3
Aggiungere il seguente codice per passare alla riga successiva di codice , se si verifica un errore :
On Error Resume Next
4
determinare se " Chart1 " esiste aggiungendo il seguente codice : .
chartTst = ActiveWorkbook.Worksheets ( " Foglio1 " ) ChartObjects ( "Tabella 1 " ) economici 5
verificare la " chartTst " variabile e visualizzare una finestra di messaggio che mostra se la tabella esiste.
chartTst è niente allora
MsgBox
" tabella non esiste "
Else
MsgBox "Tabella esiste . "
End If
6
fine del sub digitando "End Sub " alla fine della procedura . Premere il tasto " F5 " per eseguire la procedura .
software © www.354353.com