Hvordan indstilles en standardværdi i rullelisten med datavalidering i Excel?
Indstil en standardværdi i rullelisten med datavalidering hjælper andre med at identificere rullelistercellerne med et hurtigt overblik i et regneark. Denne artikel indeholder en VBA-metode til at indstille en standardværdi i rullelisten med datavalidering i detaljer.
Indstil en standardværdi i rullelisten med datavalidering med VBA-kode
Indstil en standardværdi i rullelisten med datavalidering med VBA-kode
Som nedenstående skærmbillede, forudsat at alle celler i område B2: C7 indeholder rulleliste, og du vil indstille en standardværdi (siger - Vælg fra listen -) i denne rulleliste, før du vælger værdier ud fra dem. Du kan prøve følgende VBA-kode.
1. Højreklik på arkfanen med de rullelister, du har brug for for at indstille en standardværdi, og klik derefter på Vis kode fra menuen.
2. i Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende VBA-kode i vinduet Kode.
VBA-kode: Indstil en standardværdi i rullelisten med 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 Sub
Bemærk: du kan ændre standardværdien i VBA-koden til den, du har brug for.
6. Tryk på F5 nøgle for at køre koden. Du kan se, at standardværdierne tilføjes til alle rullelisterceller som vist nedenstående skærmbillede.
Noter:
Relaterede artikler:
- Hvordan autofuldføres, når du skriver i rullelisten i Excel?
- Hvordan oprettes en rullelistekalender i Excel?
- Hvordan oprettes en søgbar rulleliste i Excel?
- Hvordan oprettes rullelisten med flere valg eller værdier i Excel?
- Sådan udfyldes andre celler automatisk, når du vælger værdier i Excel-rullelisten?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!