Jak vytvořit rozevírací seznam, ale zobrazit různé hodnoty v aplikaci Excel?

V listu aplikace Excel můžeme rychle vytvořit rozevírací seznam s funkcí Ověření dat, ale zkusili jste někdy po kliknutí na rozevírací seznam zobrazit jinou hodnotu? Například mám následující dvě data sloupce ve sloupci A a sloupci B, teď musím vytvořit rozevírací seznam s hodnotami ve sloupci Název, ale když vyberu název z vytvořeného rozevíracího seznamu, odpovídající hodnota ve sloupci Číslo se zobrazí jako následující snímek obrazovky. Tento článek představí podrobnosti k vyřešení tohoto úkolu.

Vytvořte rozevírací seznam, ale v buňce rozevíracího seznamu zobrazte jinou hodnotu

Vytvořte rozevírací seznam, ale v buňce rozevíracího seznamu zobrazte jinou hodnotu

Chcete-li tento úkol dokončit, proveďte následující krok za krokem:

1. Vytvořte název rozsahu pro hodnoty buněk, které chcete použít v rozevíracím seznamu, v tomto příkladu zadám rozevírací seznam názvu do Název Box, a poté stiskněte tlačítko vstoupit klíč, viz screenshot:

2. Poté vyberte buňky, do kterých chcete vložit rozevírací seznam, a klikněte Data > Ověření dat > Ověření dat, viz screenshot:

3. V Ověření dat v dialogovém okně pod Nastavení kartu, vyberte Seznam z povolit rozevírací seznam a poté klikněte Pomocí tlačítka vyberte seznam jmen, který chcete použít jako rozevírací hodnoty v seznamu Zdroj Textové pole. Viz snímek obrazovky:

4. Po vložení rozevíracího seznamu klikněte pravým tlačítkem na kartu aktivního listu a vyberte Zobrazit kód z kontextového menu a v otevřeném Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód do prázdného modulu:

Kód VBA: Zobrazit jinou hodnotu z rozevíracího seznamu:

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

Pozor: Ve výše uvedeném kódu číslo 5 v Pokud Target.Column = 5 Potom skript je číslo sloupce, na kterém se nachází váš rozevírací seznam, „rozevírací" v tomhle selectedNum = Application.VLookup (selectedNa, ActiveSheet.Range ("rozbalovací nabídka"), 2, False) code je název rozsahu, který jste vytvořili v kroku 1. Můžete je změnit podle svých potřeb.

5. Poté tento kód uložte a zavřete, nyní, když vyberete položku z rozevíracího seznamu, ve stejné buňce se zobrazí relativní jiná hodnota, viz screenshot:

Ukázka: Vytvořte rozevírací seznam, ale v aplikaci Excel zobrazte různé hodnoty