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 SubAnmä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:
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?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
