Hur ställer jag in ett standardvärde i rullgardinsmenyn för datavalidering i Excel?

Ange ett standardvärde i rullgardinslistan för datavalidering hjälper andra att enkelt identifiera rullgardinsmenycellerna med en överblick i ett kalkylblad. Den här artikeln innehåller en VBA-metod för att ställa in ett standardvärde i rullgardinsmenyn för datavalidering i detaljer.

Ställ in ett standardvärde i rullgardinsmenyn för datavalidering med VBA-kod

Ställ in ett standardvärde i rullgardinsmenyn för datavalidering med VBA-kod

Som nedanstående skärmdump, antar vi att alla celler i intervall B2: C7 innehåller rullgardinsmenyn och du vill ställa in ett standardvärde (säger - Välj från listan -) i dessa listrutor innan du väljer värden bland dem. Du kan prova följande VBA-kod.

1. Högerklicka på arkfliken med listrutorna du behöver för att ställa in ett standardvärde och klicka sedan på Visa kod från menyn.

2. I Microsoft Visual Basic för applikationer fönster, kopiera och klistra in följande VBA-kod i kodfönstret.

VBA-kod: ställ in ett standardvärde i rullgardinsmenyn för datavalidering

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

Anmärkningar: du kan ändra standardvärdet i VBA-koden till det du behöver.

6. tryck på F5 för att köra koden. Du kan se att standardvärdena läggs till i alla rullgardinslistceller som visas nedan.

Anmärkningar:

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

Relaterade artiklar:

• Hur fyller jag i automatiskt när du skriver i rullgardinslistan i Excel?
• Hur skapar jag en rullgardinsmeny i Excel?
• Hur skapar jag en sökbar listruta i Excel?
• Hur skapar man en rullgardinslista med flera val eller värden i Excel?
• Hur fyller jag i andra celler automatiskt när du väljer värden i Excel-listrutan?