14-04-12, 00:57
|
Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Καλησπέρα/Καλημέρα
Σε κάθε κουμπί που έχεις αντιστοιχεί μια μακροεντολή που προσδιορίζεται από ένα συγκεκριμένο όνομα (πχ macro1).
Η μακροεντολή αυτή δημιουργήθηκε με την καταγραφή και ενεργοποιεί ένα φίλτρο.
Αφού θέλεις να ακυρώνεις αυτό το φίλτρο, με την καταγραφή θα πρέπει να δημιουργήσεις και την αντίστοιχη μακροεντολή.
Υποθέτουμε ότι αυτή λέγεται macro2.
Το συγκεκριμένο κουμπί θα πρέπει να το αντικαταστήσουμε με ένα κουμπί εναλλαγής (πχ ToggleButton1) το οποίο όταν πατιέται θα τρέχει εναλλάξ την macro1 και macro2.
Σε κατάσταση σχεδίασης κάνε δεξί κλικ στο κουμπί εναλλαγής και στο μενού συντόμευσης κάνε κλικ στην επιλογή «Εμφάνιση κώδικα».
Θα εμφανιστούν δύο γραμμές κώδικα:
Private Sub ToggleButton1_Click()
End Sub
Ανάμεσα στις γραμμές θα προστεθεί κώδικας , ώστε τελικά να έχουμε:
Private Sub ToggleButton1_Click()
If ToggleButton1 Then
Macro1
Else
Macro2
End If
End Sub
Αυτό θα επαναληφθεί για όλα τα κουμπιά που έχεις και σε κάθε περίπτωση θα αλλάζεις τα macro1 και macro2 με τα πραγματικά.
Αν διαβάσεις προσεκτικά τις οδηγίες που υπάρχουν στο αρχείο που ανέβασα πιστεύω θα τα καταφέρεις.
Φιλικά/Γιώργος
|