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:
Kapcsolódó cikkek:
- Hogyan lehet automatikusan kitölteni, amikor beírja az Excel legördülő listát?
- Hogyan hozhatunk létre legördülő listás naptárt az Excelben?
- Hogyan hozzunk létre kereshető legördülő listát az Excelben?
- Hogyan hozhatunk létre legördülő listát több választással vagy értékkel az Excelben?
- Hogyan lehet automatikusan feltölteni a többi cellát, amikor kiválasztja az értékeket az Excel legördülő listában?
A legjobb irodai hatékonyságnövelő eszközök
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...
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!