Cum se creează o listă derulantă, dar se afișează valori diferite în Excel?
În foaia de lucru Excel, putem crea rapid o listă derulantă cu funcția de validare a datelor, dar ați încercat vreodată să afișați o altă valoare când faceți clic pe lista derulantă? De exemplu, am următoarele două date de coloană în Coloana A și Coloana B, acum trebuie să creez o listă derulantă cu valorile din coloana Nume, dar, când selectez numele din lista verticală creată, valoarea din coloana Număr este afișată după cum se arată în următoarea captură de ecran. Acest articol va introduce detaliile pentru a rezolva această sarcină.
Creați o listă derulantă, dar afișați o valoare diferită în celula listei derulante
Creați o listă derulantă, dar afișați o valoare diferită în celula listei derulante
Pentru a finaliza această sarcină, vă rugăm să efectuați următorul pas cu pas:
1. Creați un nume de interval pentru valorile celulei pe care doriți să le utilizați în lista derulantă; în acest exemplu, voi introduce meniul derulant în Cutie de nume, apoi apăsați Intrați tasta, vezi captura de ecran:
2. Apoi selectați celulele în care doriți să inserați lista derulantă și faceți clic pe Date > Data validarii > Data validarii, vezi captura de ecran:
3. În Data validarii caseta de dialog, sub setări cont fila, alegeți Listă de la Permite derulează, apoi faceți clic pe 
pentru a selecta lista de nume pe care doriți să o utilizați ca valori derulante în Sursă casetă de text. Vedeți captura de ecran:
4. După inserarea listei derulante, faceți clic dreapta pe fila de foaie activă și selectați Afișați codul din meniul contextual și în meniul deschis Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți următorul cod în modulul gol:
Cod VBA: afișați valori diferite din lista derulantă:
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
notițe: În codul de mai sus, numărul 5 în Dacă Target.Column = 5 Atunci scriptul este numărul coloanei pe care ați localizat-o lista derulantă, „drop-down" in acest selectedNum = Application.VLookup (selectedNa, ActiveSheet.Range ("dropdown"), 2, False) codul este numele zonei pe care l-ați creat la pasul 1. Puteți să le schimbați la cel necesar.
5. Apoi salvați și închideți acest cod, acum, când selectați un element din lista derulantă, o valoare relativ diferită este afișată în aceeași celulă, vedeți captura de ecran:
Demo: creați o listă derulantă, dar afișați valori diferite în Excel
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
