Πώς να ανοίξετε ένα συγκεκριμένο φύλλο εργασίας από την επιλεγμένη τιμή ενός Combo Box στο Excel;
Ας υποθέσουμε ότι έχετε ένα Combo Box που περιέχει όλα τα ονόματα φύλλων του τρέχοντος βιβλίου εργασίας, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Και τώρα, θέλετε να ανοίξετε ένα συγκεκριμένο φύλλο εργασίας όταν επιλέγετε το αντίστοιχο όνομα φύλλου σε ένα Combo Box. Πώς να το πετύχετε; Η μέθοδος σε αυτό το άρθρο μπορεί να σας βοηθήσει.
Ανοίξτε ένα συγκεκριμένο φύλλο εργασίας από την επιλεγμένη τιμή ενός Combo Box με κωδικό VBA
Ανοίξτε ένα συγκεκριμένο φύλλο εργασίας από την επιλεγμένη τιμή ενός Combo Box με κωδικό VBA
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να μεταβείτε σε ένα συγκεκριμένο φύλλο εργασίας με βάση την επιλογή Combo Box στο Excel. Κάντε τα εξής:
Note: Εάν το Combo Box δεν περιέχει κανένα όνομα φύλλου στο φύλλο εργασίας σας, ακολουθήστε την παρακάτω συμβουλή για να προσθέσετε γρήγορα όλα τα ονόματα φύλλων σε αυτό το Combo Box. Και αν υπάρχει ήδη ένα Combo Box που περιέχει όλα τα ονόματα φύλλων, μεταβείτε στο βήμα 1 κατευθείαν.
Άκρο: Εισαγάγετε ένα κουμπί εντολής 1 στο φύλλο εργασίας σας, κάντε δεξί κλικ και επιλέξτε Προβολή κωδικού από το μενού δεξιού κλικ. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Κώδικας παράθυρο και πατήστε το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογή παράθυρο. Κάντε κλικ στο κουμπί εντολής που έχει εισαχθεί, τότε όλα τα ονόματα φύλλων του τρέχοντος βιβλίου εργασίας θα προστεθούν αυτόματα στο ComboBox1.
Κωδικός VBA: Προσθέστε εύκολα όλα τα ονόματα φύλλων σε Combo Box
Private Sub CommandButton1_Click()
Me.ComboBox1.Clear
Dim strWs As String
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next
End SubΕάν υπάρχει ήδη ένα Combo Box που περιέχει όλα τα ονόματα φύλλων, κάντε τα εξής.
1. Αναψε το Λειτουργία σχεδίασης σύμφωνα με το Εργολάβος Tab.
2. Κάντε δεξί κλικ στο σύνθετο πλαίσιο με ονόματα φύλλων και, στη συνέχεια, κάντε κλικ στο Προβολή κωδικού από το μενού με δεξί κλικ.
3. Τότε το Microsoft Visual Basic για εφαρμογές αναδυόμενο παράθυρο, αντικαταστήστε τον αρχικό κωδικό VBA στο παράθυρο Κωδικός με τον παρακάτω κωδικό VBA.
Κωδικός VBA: Ανοίξτε ένα συγκεκριμένο φύλλο εργασίας με επιλεγμένη τιμή του Combo Box
Private Sub ComboBox1_Change()
Dim actWsh As String
actWsh = ComboBox1.Text
Worksheets(actWsh).Select
End SubNote: στον κωδικό, το ComboBox1 είναι το όνομα του σύνθετου πλαισίου που περιέχει τα ονόματα φύλλων.
4. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο και απενεργοποιήστε το Λειτουργία σχεδίασης σύμφωνα με το Εργολάβος Tab.
Τώρα, όταν επιλέγετε οποιοδήποτε όνομα φύλλου εργασίας στο Combo Box, το αντίστοιχο φύλλο εργασίας θα ανοίξει αυτόματα.
Καταγράψτε εύκολα όλα τα ονόματα φύλλων του τρέχοντος βιβλίου εργασίας στο Excel:
Η χρήση ευρετηρίου φύλλων στο βιβλίο εργασίας σας βοηθά να διαχειρίζεστε εύκολα τα φύλλα εργασίας σας. Με το Δημιουργία λίστας ονομάτων φύλλων χρησιμότητα του Kutools για Excel, μπορείτε εύκολα να δημιουργήσετε ένα ευρετήριο φύλλων που περιέχει όλα τα ονόματα φύλλων στο τρέχον βιβλίο εργασίας. Μετά από αυτό, μπορείτε να μεταβείτε γρήγορα σε ένα συγκεκριμένο φύλλο εργασίας κάνοντας απλώς κλικ στο όνομα του φύλλου στο φύλλο εργασίας ευρετηρίου. Δείτε παρακάτω το στιγμιότυπο οθόνης:
Κατεβάστε το και δοκιμάστε το τώρα! (Δωρεάν διαδρομή 30 ημερών)
Σχετικά Άρθρα:
- Πώς να αντιγράψετε την τιμή Combo Box σε ενεργό κελί στο Excel;
- Πώς να εμφανίσετε τη μορφή ημερομηνίας στην έξοδο σύνθετου πλαισίου στο Excel;
- Πώς να αποκρύψετε ή να αποκρύψετε ένα κουμπί εντολής με βάση την καθορισμένη τιμή κελιού στο Excel;
- Πώς να αποτρέψετε ή να απενεργοποιήσετε την πληκτρολόγηση σε ένα σύνθετο πλαίσιο στο Excel;
- Πώς να κάνετε καρτέλα από το σύνθετο πλαίσιο για να επιλέξετε συγκεκριμένο κελί στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
