Hogyan hozhatunk létre legördülő listát, de különböző értékeket jeleníthetünk meg az Excelben?

Az Excel munkalapon gyorsan létrehozhatunk egy legördülő listát az Adatellenőrzés funkcióval, de próbált-e már más értéket mutatni, amikor a legördülő listára kattint? Például a következő két oszlopadattal rendelkezem az A és B oszlopban, most létre kell hoznom egy legördülő listát a Név oszlopban szereplő értékekkel, de amikor a nevet kiválasztom a létrehozott legördülő listából, a megfelelő oszlopot A Szám oszlop értéke a következő képernyőképen jelenik meg. Ez a cikk bemutatja a feladat megoldásának részleteit.

Létrehozó lista létrehozása, de a legördülő lista cellájában más értéket mutasson

Létrehozó lista létrehozása, de a legördülő lista cellájában más értéket mutasson

A feladat befejezéséhez tegye a következőket lépésről lépésre:

1. Hozzon létre egy tartománynevet a legördülő listában használni kívánt cellaértékekhez, ebben a példában beírom a nevet a legördülő listába a "Név" mezőbe, majd megnyomom az "Enter" billentyűt, lásd a képernyőképet:

2. Ezután válassza ki azokat a cellákat, amelyekbe be szeretné szúrni a legördülő listát, majd kattintson az „Adatok” > „Adatellenőrzés” > "Adatellenőrzés", lásd a képernyőképet:

3. Az "Adatellenőrzés" párbeszédpanel "Beállítások" lapján válassza a "Lista" lehetőséget az "Engedélyezés" legördülő menüből, majd kattintson gombbal válassza ki a "Név" listát, amelyet legördülő értékként szeretne használni a "Forrás" szövegmezőben. Lásd a képernyőképet:

4. A legördülő lista beillesztése után kattintson a jobb gombbal az aktív lapfülre, és a helyi menüből válassza a "Kód megtekintése" lehetőséget, majd a megnyíló "Microsoft Visual Basic for Applications" ablakban másolja ki és illessze be a következő kódot az üres "Modulba":

VBA kód: Különböző érték megjelenítése a legördülő listából:

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

Megjegyzés: A fenti kódban az 5-ös szám az "If Target.Column = 5 Then" szkriptben az az oszlopszám, amelyet a legördülő listában talál, a "legördülő lista" ebben a "selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)" kódban módosíthatja a tartomány nevét, amelyet az 1. lépésben hozott létre.

5. Ezután mentse és zárja be ezt a kódot, most, amikor kiválaszt egy elemet a legördülő listából, egy viszonylag eltérő érték jelenik meg ugyanabban a cellában, lásd a képernyőképet:

Bemutató: Hozzon létre legördülő listát, de mutasson különböző értékeket az Excelben