Jak nastavit výchozí hodnotu v rozevíracím seznamu ověření dat v aplikaci Excel?

Nastavit výchozí hodnotu v rozevíracím seznamu ověření dat pomáhá ostatním snadno identifikovat buňky rozevíracího seznamu na první pohled v listu. Tento článek podrobně popisuje metodu VBA pro nastavení výchozí hodnoty v rozevíracím seznamu ověření dat.

Nastavte výchozí hodnotu v rozevíracím seznamu ověření dat pomocí kódu VBA

Nastavte výchozí hodnotu v rozevíracím seznamu ověření dat pomocí kódu VBA

Jak je uvedeno níže, předpokládejme, že všechny buňky v rozsahu B2: C7 obsahují rozevírací seznam a chcete nastavit výchozí hodnotu (říká - Vyberte si ze seznamu -) v těchto rozevíracích seznamech, než z nich vyberete hodnoty. Můžete vyzkoušet následující kód VBA.

1. Klikněte pravým tlačítkem na kartu listu s rozevíracími seznamy, které potřebujete k nastavení výchozí hodnoty, a poté klikněte na Zobrazit kód z menu.

2. V Microsoft Visual Basic pro aplikace zkopírujte a vložte následující kód VBA do okna Kód.

Kód VBA: nastavte výchozí hodnotu v rozevíracím seznamu ověření dat

Sub DropDownListToDefault()
    Dim xCell As Range
    Dim xRg As Range
    Dim xAcCell As Range
    Dim xScreen As Boolean
    On Error Resume Next
    Set xAcCell = Application.ActiveCell
    Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
    If xRg Is Nothing Then
        MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.Validation.Type = 3 Then
            If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
        End If
    Next
    xAcCell.Select
    Application.ScreenUpdating = xScreen
End Sub

Hodnocení: můžete změnit výchozí hodnotu v kódu VBA na tu, kterou potřebujete.

6. zmáčkni F5 klíč ke spuštění kódu. Můžete vidět, že výchozí hodnoty jsou přidány do všech buněk rozevíracího seznamu, jak je uvedeno níže.

Poznámky:

Odemkněte kouzlo Excelu s Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!

Související články:

• Jak se automaticky dokončuje při psaní v rozevíracím seznamu aplikace Excel?
• Jak vytvořit kalendář rozevíracího seznamu v aplikaci Excel?
• Jak vytvořit vyhledávací rozevírací seznam v aplikaci Excel?
• Jak vytvořit rozevírací seznam s více výběry nebo hodnotami v aplikaci Excel?
• Jak automaticky naplnit další buňky při výběru hodnot v rozevíracím seznamu aplikace Excel?