Kako ustvariti spustni seznam, a prikazati različne vrednosti v Excelu?
V Excelovem delovnem listu lahko hitro ustvarimo spustni seznam s funkcijo preverjanja podatkov, vendar, ali ste že kdaj poskusili prikazati drugačno vrednost, ko kliknete spustni seznam? Na primer, v stolpcu A in stolpcu B imam naslednja dva podatka v stolpcu. Zdaj moram ustvariti spustni seznam z vrednostmi v stolpcu Ime, toda, ko na ustvarjenem spustnem seznamu izberem ime, ustrezen vrednost v stolpcu Število je prikazana, kot je prikazano na sliki spodaj. Ta članek bo predstavil podrobnosti za rešitev te naloge.
Ustvari spustni seznam, vendar v celici spustnega seznama prikaži drugačno vrednost
Ustvari spustni seznam, vendar v celici spustnega seznama prikaži drugačno vrednost
Če želite dokončati to nalogo, sledite naslednjim korakom:
1. Na spustnem seznamu ustvarite ime obsega za vrednosti celic, ki jih želite uporabiti, v tem primeru bom spustni seznam imena vnesel v ime Box, nato pritisnite Vnesite tipko, glej posnetek zaslona:
2. Nato izberite celice, kamor želite vstaviti spustni seznam, in kliknite datum > Preverjanje podatkov > Preverjanje podatkov, glej posnetek zaslona:
3. v Preverjanje podatkov v pogovornem oknu pod Nastavitve izberite jeziček Seznam Iz Dovoli in nato kliknite 
, da izberete seznam imen, ki ga želite uporabiti kot spustne vrednosti v vir besedilno polje. Oglejte si posnetek zaslona:
4. Po vstavitvi spustnega seznama z desno miškino tipko kliknite zavihek aktivnega lista in izberite Ogled kode v priročnem meniju in v odprtem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazen modul:
Koda VBA: Prikažite drugačno vrednost s spustnega seznama:
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
Opombe: V zgornji kodi številka 5 v Če je ciljni stolpec = 5, potem skript je številka stolpca, na kateri je spustni seznam,spustni" v tem selectedNum = Application.VLookup (selectedNa, ActiveSheet.Range ("spustni meni"), 2, False) koda je ime obsega, ki ste ga ustvarili v koraku 1. Lahko jih spremenite v želeno.
5. Nato shranite in zaprite to kodo. Ko izberete element s spustnega seznama, se v isti celici prikaže relativno drugačna vrednost, glejte posnetek zaslona:
Predstavitev: ustvarite spustni seznam, vendar v Excelu prikažite različne vrednosti
Najboljša orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
