Note: The other languages of the website are Google-translated. Back to English

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

Στο φύλλο εργασίας του Excel, μπορούμε γρήγορα να δημιουργήσουμε μια αναπτυσσόμενη λίστα με τη δυνατότητα επικύρωσης δεδομένων, αλλά, έχετε προσπαθήσει ποτέ να δείξετε μια διαφορετική τιμή όταν κάνετε κλικ στην αναπτυσσόμενη λίστα; Για παράδειγμα, έχω τα ακόλουθα δύο δεδομένα στηλών στη στήλη Α και στη στήλη Β, τώρα, πρέπει να δημιουργήσω μια αναπτυσσόμενη λίστα με τις τιμές στη στήλη Όνομα, αλλά, όταν επιλέγω το όνομα από την αναπτυσσόμενη αναπτυσσόμενη λίστα, η αντίστοιχη Η τιμή στη στήλη Αριθμός εμφανίζεται όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης. Αυτό το άρθρο θα εισαγάγει τις λεπτομέρειες για την επίλυση αυτής της εργασίας.

dropdown doc διαφορετικές τιμές 1

Δημιουργήστε αναπτυσσόμενη λίστα αλλά δείξτε διαφορετική τιμή στο κελί της αναπτυσσόμενης λίστας


Δημιουργήστε αναπτυσσόμενη λίστα αλλά δείξτε διαφορετική τιμή στο κελί της αναπτυσσόμενης λίστας

Για να ολοκληρώσετε αυτήν την εργασία, κάντε τα παρακάτω βήμα προς βήμα:

1. Δημιουργήστε ένα όνομα εύρους για τις τιμές κελιού που θέλετε να χρησιμοποιήσετε στην αναπτυσσόμενη λίστα, σε αυτό το παράδειγμα, θα εισαγάγω το αναπτυσσόμενο όνομα όνομα Box, και στη συνέχεια πατήστε εισάγετε κλειδί, δείτε το στιγμιότυπο οθόνης:

dropdown doc διαφορετικές τιμές 2

2. Στη συνέχεια, επιλέξτε κελιά όπου θέλετε να εισαγάγετε την αναπτυσσόμενη λίστα και κάντε κλικ στο ημερομηνία > επικύρωση δεδομένων > επικύρωση δεδομένων, δείτε το στιγμιότυπο οθόνης:

dropdown doc διαφορετικές τιμές 3

3. Στην επικύρωση δεδομένων πλαίσιο διαλόγου, κάτω από το ρυθμίσεις καρτέλα, επιλέξτε Λίστα από το Επιτρέψτε αναπτυσσόμενο μενού και, στη συνέχεια, κάντε κλικ dropdown doc διαφορετικές τιμές 5 για να επιλέξετε τη λίστα Όνομα που θέλετε να χρησιμοποιήσετε ως αναπτυσσόμενες τιμές στο Πηγή πλαίσιο κειμένου. Δείτε το στιγμιότυπο οθόνης:

dropdown doc διαφορετικές τιμές 4

4. Αφού εισαγάγετε την αναπτυσσόμενη λίστα, κάντε δεξί κλικ στην καρτέλα ενεργού φύλλου και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος και στο ανοιχτό Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή ενότητα:

Κωδικός VBA: Εμφάνιση διαφορετικής τιμής από την αναπτυσσόμενη λίστα:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    selectedNa = Target.Value
    If Target.Column = 5 Then
        selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)
        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If
    End If
End Sub

dropdown doc διαφορετικές τιμές 6

Note: Στον παραπάνω κωδικό, ο αριθμός 5 εντός Αν Target.Column = 5 Στη συνέχεια Το σενάριο είναι ο αριθμός της στήλης που βρίσκεται η αναπτυσσόμενη λίστα σας, το "αναπτυσσόμενο" σε αυτό selectNum = Application.VLookup (επιλεγμένοNa, ActiveSheet.Range ("dropdown"), 2, False) Ο κωδικός είναι το όνομα εύρους που έχετε δημιουργήσει στο βήμα 1. Μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας.

5. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κώδικα, τώρα, όταν επιλέγετε ένα στοιχείο από την αναπτυσσόμενη λίστα, εμφανίζεται μια σχετική διαφορετική τιμή στο ίδιο κελί, δείτε το στιγμιότυπο οθόνης:

dropdown doc διαφορετικές τιμές 7


Επίδειξη: Δημιουργία αναπτυσσόμενης λίστας αλλά εμφάνιση διαφορετικών τιμών στο Excel

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

 


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2019 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου

 

Σχόλια (40)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορεί να γίνει αυτό σε διαφορετικά φύλλα; Εννοώ, στο φύλλο1 το αναπτυσσόμενο μενού και στο φύλλο2 το εύρος. Πώς πρέπει να το κωδικοποιήσω; Ευχαριστώ εκ των προτέρων. Τίνα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι γίνεται αν θέλω να κάνω περισσότερα από ένα αναπτυσσόμενα μενού που επιστρέφουν διαφορετικές τιμές στο ίδιο φύλλο εργασίας; Μπορείτε να μου δείξετε ένα παράδειγμα κωδικοποίησης για δύο ή περισσότερα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Lee Ann

Εάν απλώς αντιγράψετε και επικολλήσετε τον κώδικα από το If στο EndIf και αλλάξετε τη στήλη # και τον πίνακα, θα πρέπει να λειτουργεί:


Subsheet_Change (ByVal Target As Range)
επιλεγμένοNa = Στόχος.Τιμή
Αν Target.Column = 5 Στη συνέχεια
selectNum = Application.VLookup (επιλεγμένοNa, ActiveSheet.Range ("dropdown"), 2, False)
If Not IsError(selectedNum) Τότε
Target.Value = επιλεγμένοΑριθμ
End If
End If
Αν Target.Column = 9 Στη συνέχεια
SelectNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown1"), 2, False)
If Not IsError(selectedNum) Τότε
Target.Value = επιλεγμένοΑριθμ
End If
End If
Sub End

Δεν λέω ότι αυτός είναι ο σωστός τρόπος, αλλά λειτούργησε στη δοκιμαστική έκδοση μου. Χρησιμοποιώ το Excel 2013
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μόλις το δοκίμασα. Και δούλεψε!! Σας ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, βοήθεια, δεν λειτουργεί, μπορείτε να επικολλήσετε εδώ όλο τον κώδικα για 2 στήλες;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τίποτα πιο απογοητευτικό από το να πληκτρολογείς μια λεπτομερή ερώτηση μόνο και μόνο για να την απογοητεύσεις. Εάν πληκτρολογήσετε λάθος 6ψήφιο κωδικό για να επαληθεύσετε τον άνθρωπο σας, διαγράφει το δημοσιευμένο μήνυμα. Ίσως θέλει να το διορθώσει. Τώρα το σχόλιό μου είναι το εξής: Προσπάθησα να κάνω ακριβώς το ίδιο που δείξατε στο βίντεο και έγραψα οδηγίες και το μόνο που λαμβάνω είναι όταν επιλέγω ένα όνομα στη λίστα είναι το όνομα και όχι ο αριθμός. Επίσης, πώς λειτουργεί αυτό, καθώς η επικύρωση δεδομένων θα πρέπει να περιορίζει τις επιλογές μόνο σε αυτά που περιλαμβάνονται στη λίστα. Πώς ξεγελάει αυτό το σύστημα; Στο παρελθόν έπρεπε πάντα να αντιστοιχίσω κωδικό vba στο κουμπί ή μια συντόμευση, πώς ενεργοποιείται αυτός ο κωδικός; Πώς δοκιμάζετε για να βεβαιωθείτε ότι λειτουργεί;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς λειτουργεί ο τύπος όταν θέλετε να προσθέσετε τα δεδομένα σε ένα ξεχωριστό φύλλο στο βιβλίο εργασίας; Θέλω να κρύψω τα δεδομένα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Άλλαξε εδώ αδερφέ!
selectedNum = Application.VLookup(selectedNa, φύλλα εργασίας("YourSheetName").Range("dropdown"), 2, False)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το "YourSheetName" αναφέρεται στο φύλλο που περιέχει το εύρος δεδομένων ή στο φύλλο όπου θέλω να χρησιμοποιήσω την αναπτυσσόμενη λίστα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς λειτουργεί ο τύπος όταν θέλετε να καταχωρίσετε τα δεδομένα σε ξεχωριστό φύλλο/καρτέλα στο βιβλίο εργασίας;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
αυτό δεν λειτουργεί στις τρέχουσες εκδόσεις του excel-ded. Η επικύρωση δεδομένων, στη συνέχεια, η λίστα δεν εμφανίζεται πλέον στο vba καθώς ένα αντικείμενο excel έχει δοκιμάσει ήδη πολλές φορές και δεν εμφανίζεται.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σε αυτό το παράδειγμα, τι γίνεται αν θέλετε να κοιτάξει μια τιμή σε καθένα από τα κελιά στο 5, αλλά να βάλει την τιμή στο διπλανό κελί στο 6
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς θα έπρεπε να αλλάξει ο κωδικός εάν ήθελα να δημιουργήσω μια αναφορά/σύνδεσμο στο E1 με την πηγή της αναπτυσσόμενης λίστας με βάση την επιλεγμένη τιμή;
Το όφελος θα ήταν ότι σε περίπτωση αλλαγής στην αναπτυσσόμενη πηγή (π.χ. "Henrik" => "Hendrik" η αλλαγή θα αντικατοπτρίζεται αυτόματα στο E1.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ξέρει κανείς πώς να το κάνω αυτό να λειτουργήσει στα φύλλα Google;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να επιλέξω πολλαπλές επιλογές από την αναπτυσσόμενη λίστα.
αποτέλεσμα ως εξής: AA1001,BB1002
Είναι δυνατόν?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Βρήκατε μια λύση;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Si los datos de la lista están en otra hoja, cuál sería el codigo; Gracias.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
cómo buscar un valor hacia la izquierda
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
επιλεγμένοNa = Στόχος.Τιμή
Αν Target.Column = 5 Στη συνέχεια

Φύλλα ("Nombre de la hoja en donde esta la list"). Ενεργοποίηση
selectNum = Application.VLookup (επιλεγμένοNa, ActiveSheet.Range ("dropdown"), 2, False)
Φύλλα ("Nombre de la hoja en donde estas trabajando").Ενεργοποίηση
If Not IsError(selectedNum) Τότε
Target.Value = επιλεγμένοΑριθμ
End If
End If
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Κάποιος ξέρει πώς να αναζητήσει την τιμή από δεξιά προς τα αριστερά
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πρέπει να χρησιμοποιήσω το ίδιο αναπτυσσόμενο μενού σε περισσότερες από μία στήλες, ποιος θα ήταν ο κωδικός;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας!
Αυτό είναι πραγματικά χρήσιμο! Σας ευχαριστώ!
Λειτουργώ στην περίπτωση που το κελί δεν ενημερώνεται αυτόματα ή όταν χρησιμοποιώ τη λειτουργία ανανέωσης. Πρέπει να κάνω κλικ σε ένα άλλο κελί και, στη συνέχεια, να ξανακάνω κλικ στο κελί στην εργασία για να εμφανιστεί η τιμή.
Αυτήν τη στιγμή εργάζομαι στο Office Standard 2019. Ξέρει κανείς αν αυτό το ζήτημα σχετίζεται με την έκδοση του excel που χρησιμοποιώ;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Ο κώδικας λειτουργούσε καλά, αν ορίζουμε τη λίστα και δημιουργούμε το αναπτυσσόμενο μενού στο ίδιο φύλλο.
Αλλά πώς μπορούμε να επιτύχουμε τον ορισμό της λίστας τιμών και κωδικών σε ένα φύλλο και του αναπτυσσόμενου μενού που δημιουργείται σε ένα άλλο φύλλο;
Αυτός ο ίδιος κώδικας δεν λειτουργεί όπως εμφανίζεται και εμφανίζεται σφάλμα σε αυτήν τη γραμμή ("selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)").
Επίσης, έχω μια απαίτηση όπως, εάν έχω καθορισμένες πολλές λίστες σε ένα φύλλο με αναγνωριστικό και ονόματα και πολλαπλά αναπτυσσόμενα μενού σε ένα άλλο φύλλο όπου μια αναπτυσσόμενη τιμή εξαρτάται από την επιλεγμένη τιμή σε ένα άλλο αναπτυσσόμενο μενού.

Ελπίζω να καταλάβατε το ερώτημά μου.

Παρακαλώ βοηθήστε με στην επίλυση αυτού του ζητήματος.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό με βοήθησε πάρα πολύ, ευχαριστώ. Δεδομένου ότι το τραπέζι μου βρισκόταν σε διαφορετικό φύλλο από το πλαίσιο λίστας, πρόσθεσα μερικές γραμμές κώδικα για να το επιτύχω αυτό και επίσης για να μην αναβοσβήνει η οθόνη.

Application.ScreenUpdating = False
Φύλλα ("SheetWithTableOnIt"). Ενεργοποίηση

Φύλλα ("SheetWithDropDownListOnIt"). Ενεργοποίηση
Application.ScreenUpdating = True
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
που ακριβως προσθεσες αυτους τους κωδικους?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λαμβάνω ένα σφάλμα Compile: Σφάλμα σύνταξης στη γραμμή "If Trarget.Column = 6 Τότε" όταν προσπαθώ να χρησιμοποιήσω τον κώδικα; Καμία ιδέα για το γιατί;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί αλλά όταν βγαίνεις από ένα αρχείο και ανοίγεις ξανά δεν λειτουργεί...δεν μπορεί να αποθηκευτεί ως .xls μόνο ως .xlsm υπάρχει κάποια λύση για αυτό; Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Marko, Αφού αντιγράψετε και επικολλήσετε τον κώδικα στο βιβλίο εργασίας σας, όταν αποθηκεύετε το αρχείο, θα πρέπει να το αποθηκεύσετε ως μορφή βιβλίου εργασίας με δυνατότητα Macro-Enabled Excel, δοκιμάστε, σας ευχαριστώ!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες