Πώς μπορείτε να διαπιστώσετε εάν ένα Excel Chart Υπάρχει

Προσδιορισμός αν υπάρχει ένα γράφημα σε ένα υπολογιστικό φύλλο του Excel μπορεί εύκολα να επιτευχθεί με τη χρήση της Visual Basic for Applications ( VBA ) . VBA είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται στο Excel και άλλες εφαρμογές του Microsoft Office για να αυτοματοποιήσουν εργασίες ρουτίνας αλλιώς γίνεται με το χέρι . Στην VBA , μπορείτε να χρησιμοποιήσετε το " ChartObject " αντικείμενο να καθορίσει εάν υπάρχει ένα γράφημα . Αυτό το αντικείμενο περιέχει μια συλλογή από χάρτες στο τρέχον φύλλο και μπορεί να χρησιμοποιηθεί για την πρόσβαση των charts ιδιότητες . Τα πράγματα που θα χρειαστείτε
Visual Basic for Applications

Παρουσίαση Περισσότερες οδηγίες
Η

1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic " για να ξεκινήσει το πρόγραμμα επεξεργασίας VB . . Κάντε κλικ στο μενού " Εισαγωγή " και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα 2

Δημιουργήστε μια νέα διαδικασία sub με την προσθήκη του παρακάτω κώδικα :

Private Sub determineChart ( )
εικόνων 3

Προσθέστε τον ακόλουθο κώδικα για να πάτε στην επόμενη γραμμή του κώδικα, εάν παρουσιαστεί ένα σφάλμα :

On Error Resume Next
Η 4

Προσδιορίστε αν " Chart1 " υπάρχει με την προσθήκη του παρακάτω κώδικα :

chartTst = ActiveWorkbook.Worksheets ( " Φύλλο1 " ) ChartObjects ( " Διάγραμμα 1 " )
5

Ελέγξτε το " chartTst . " μεταβλητή και να εμφανίσει ένα πλαίσιο μηνύματος που δείχνει αν υπάρχει το γράφημα .

Εάν chartTst δεν είναι τίποτα τότε

MsgBox" Chart δεν υπάρχει "

Else

"υπάρχει Chart. " MsgBox

End If
Η 6

Τερματίστε την υπο πληκτρολογώντας " End Sub " στο τέλος της διαδικασίας . Πιέστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία .


Η