Kako nastaviti privzeto vrednost na spustnem seznamu za preverjanje veljavnosti podatkov v Excelu?

Nastavite privzeto vrednost na spustnem seznamu za preverjanje veljavnosti podatkov, tako da lahko drugi na delovnem listu preprosto prepoznajo celice spustnega seznama. Ta članek vsebuje metodo VBA za podrobno nastavitev privzete vrednosti na spustnem seznamu za preverjanje veljavnosti podatkov.

Na spustnem seznamu za preverjanje veljavnosti podatkov s kodo VBA nastavite privzeto vrednost

Na spustnem seznamu za preverjanje veljavnosti podatkov s kodo VBA nastavite privzeto vrednost

Kot pod posnetkom zaslona, ​​če domnevamo, da vse celice v obsegu B2: C7 vsebujejo spustni seznam in želite nastaviti privzeto vrednost (pravi - Izberite s seznama -) na tem spustnem seznamu, preden izberete vrednosti med njimi. Preizkusite lahko naslednjo kodo VBA.

1. Z desno miškino tipko kliknite jeziček lista s spustnimi seznami, ki jih želite nastaviti za privzeto vrednost, nato kliknite Ogled kode V meniju.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo VBA v okno Code.

Koda VBA: nastavite privzeto vrednost na spustnem seznamu za preverjanje veljavnosti podatkov

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

Opombe: v kodo VBA lahko spremenite privzeto vrednost na tisto, ki jo potrebujete.

6. Pritisnite F5 tipko za zagon kode. Vidite lahko, da so privzete vrednosti dodane v vse celice spustnega seznama, kot je prikazano spodaj.

Opombe:

Sorodni članki:

• Kako samodokončati pri vnašanju spustnega seznama v Excelu?
• Kako ustvariti spustni koledar v Excelu?
• Kako ustvariti iskalni spustni seznam v Excelu?
• Kako ustvariti spustni seznam z več izbirami ali vrednostmi v Excelu?
• Kako samodejno zapolniti druge celice pri izbiri vrednosti v spustnem seznamu Excel?