Hoe stel je een standaardwaarde in voor een gegevensvalidatie keuzelijst in Excel?
Het instellen van een standaardwaarde in een gegevensvalidatie keuzelijst helpt anderen om de cellen met keuzelijsten gemakkelijk op het eerste gezicht te herkennen in een werkblad. Dit artikel biedt een VBA-methode om gedetailleerd een standaardwaarde in een gegevensvalidatie keuzelijst in te stellen.
Stel een standaardwaarde in een gegevensvalidatie keuzelijst in met VBA-code
Stel een standaardwaarde in een gegevensvalidatie keuzelijst in met VBA-code
Zoals in onderstaande schermafbeelding, veronderstel dat alle cellen in het bereik B2:C7 een keuzelijst bevatten en je wilt een standaardwaarde (bijvoorbeeld - Kies uit de lijst -) instellen in deze keuzelijsten voordat je waarden ervan selecteert. Je kunt de volgende VBA-code proberen.
1. Klik met de rechtermuisknop op het tabblad van het werkblad met de keuzelijsten waarvoor je een standaardwaarde wilt instellen, en klik vervolgens op Weergave Code in het menu.
2. In het Microsoft Visual Basic for Applications-venster kopieer en plak je de volgende VBA-code in het Code-venster.
VBA-code: stel een standaardwaarde in een gegevensvalidatie keuzelijst in
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 SubOpmerking: je kunt de standaardwaarde in de VBA-code wijzigen naar degene die je nodig hebt.
6. Druk op de F5-toets om de code uit te voeren. Je ziet dat de standaardwaarden aan alle cellen met keuzelijsten zijn toegevoegd, zoals in onderstaande schermafbeelding wordt getoond.
Opmerkingen:
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Gerelateerde artikelen:
- Hoe automatisch aanvullen bij typen in een Excel-keuzelijst?
- Hoe maak je een kalender-keuzelijst in Excel?
- Hoe maak je een doorzoekbare keuzelijst in Excel?
- Hoe maak je een keuzelijst met meerdere selecties of waarden in Excel?
- Hoe vul je andere cellen automatisch in wanneer je waarden selecteert in een Excel-keuzelijst?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen