Ugrás a tartalomra

Hogyan állíthat be alapértelmezett értéket az adatok hitelesítésének legördülő listájában az Excelben?

Alapértelmezett érték beállítása az adatellenőrzés legördülő listában segít másoknak a legördülő lista celláinak könnyed azonosításában egy munkalapon egy pillantásra. Ez a cikk egy VBA-módszert ismertet az alapértelmezett érték beállításához az adatok ellenőrzése legördülő listában.

Állítson be alapértelmezett értéket az adatok ellenőrzése legördülő listában, VBA kóddal


Állítson be alapértelmezett értéket az adatok ellenőrzése legördülő listában, VBA kóddal

A képernyőképen látható módon tegyük fel, hogy a B2: C7 tartomány összes cellája tartalmaz egy legördülő listát, és alapértelmezett értéket szeretne beállítani (mondja - Válassz a listából -) ebben a legördülő listában, mielőtt értékeket választana belőlük. Kipróbálhatja a következő VBA kódot.

1. Kattintson a jobb gombbal a lapfülre annak a legördülő listának, amelynek meg kell adnia az alapértelmezett értéket, majd kattintson a gombra Kód megtekintése a menüből.

2. Ban,-ben Microsoft Visual Basic for Applications ablakba másolja és illessze be a következő VBA kódot a Kód ablakba.

VBA kód: állítson be alapértelmezett értéket az adatok ellenőrzése legördülő listában

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

Megjegyzések: megváltoztathatja a VBA kód alapértelmezett értékét a kívánt értékre.

6. megnyomni a F5 gombot a kód futtatásához. Láthatja, hogy az alapértelmezett értékek hozzáadódnak az összes legördülő lista cellához, ahogy az alábbi képernyőkép látható.

Megjegyzések:

1. Az alapértelmezett érték eltűnik, miután kiválasztotta az értéket a legördülő listából.
2. Ha az aktuális munkalapon nincsenek adatellenőrzési legördülő listák, akkor megkapja az alábbi felszólító mezőt.


Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations