Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako nastaviti privzeto vrednost pri spustnem seznamu preverjanja podatkov v Excelu?

V spustnem seznamu nastavite privzeto vrednost v potrditvi preverjanja podatkov, ki drugim pomaga prepoznati spustne celice z lahkoto na pregledu delovnega lista. V tem članku je določena metoda VBA, da podrobno določite privzeto vrednost za spustni seznam za preverjanje podatkov.

V spustnem seznamu preverjanja podatkov nastavite privzeto vrednost s kodo VBA


Lahko se zanimate za:

Združite več delovnih listov / delovnih zvezkov v enem delovnem listu / delovni zvezki:

Združevanje več delovnih listov ali delovnih zvezkov v enem samem delovnem listu ali delovnem zvezku je lahko ogromna naloga pri vsakodnevnem delu. Ampak, če imate Kutools za Excel, njegova močna koristnost - Združite vam lahko pomagajo hitro kombinirati več delovnih listov, delovnih zvezkov v enega delovnega lista ali delovnega zvezka.

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 60 dneh. Preberi več Prenesite brezplačno preskusno različico zdaj


V spustnem seznamu preverjanja podatkov nastavite privzeto vrednost s kodo VBA


Kot spodaj posnetek zaslona, ​​ki predvideva vse celice v območju B2: C7 vsebuje spustni seznam in želite nastaviti privzeto vrednost (piše - Izberite s seznama -) na tem spustnem seznamu, preden jih izberete. Lahko poskusite naslednjo kodo VBA.

1. Desno kliknite jeziček stanja s spustnimi seznami, ki jih potrebujete za nastavitev privzete vrednosti, nato kliknite Ogled kode V meniju.

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

VBA koda: nastavite privzeto vrednost pri padajočem seznamu preverjanja 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: lahko spremenite privzeto vrednost v kodi VBA na tisto, ki jo potrebujete.

6. Pritisnite F5 ključ za zagon kode. Vidite lahko, da so privzete vrednosti dodane vsem celicam spustnega seznama, kot je prikazano na sliki spodaj.

Opombe:

1. Privzeta vrednost bo izginila po izbiranju vrednosti na spustnem seznamu.

2. Če v trenutnem delovnem listu nimate spustnih seznamov za preverjanje podatkov, boste dobili spodnje pozivno okno.


Sorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Martin Goodwin · 6 months ago
    Love the code about 'VBA code: set a default value in data validation drop-down list', how do I use the same code for just one column with one dropdown?