Kako nastaviti privzeto vrednost na spustnem seznamu za preverjanje veljavnosti podatkov v Excelu?
Nastavite privzeto vrednost na spustnem seznamu za preverjanje veljavnosti podatkov, tako da lahko drugi na delovnem listu preprosto prepoznajo celice spustnega seznama. Ta članek vsebuje metodo VBA za podrobno nastavitev privzete vrednosti na spustnem seznamu za preverjanje veljavnosti podatkov.
Na spustnem seznamu za preverjanje veljavnosti podatkov s kodo VBA nastavite privzeto vrednost
Na spustnem seznamu za preverjanje veljavnosti podatkov s kodo VBA nastavite privzeto vrednost
Kot pod posnetkom zaslona, če domnevamo, da vse celice v obsegu B2: C7 vsebujejo spustni seznam in želite nastaviti privzeto vrednost (pravi - Izberite s seznama -) na tem spustnem seznamu, preden izberete vrednosti med njimi. Preizkusite lahko naslednjo kodo VBA.
1. Z desno miškino tipko kliknite jeziček lista s spustnimi seznami, ki jih želite nastaviti za privzeto vrednost, nato kliknite Ogled kode V meniju.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo VBA v okno Code.
Koda VBA: nastavite privzeto vrednost na spustnem seznamu za preverjanje veljavnosti podatkov
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 SubOpombe: v kodo VBA lahko spremenite privzeto vrednost na tisto, ki jo potrebujete.
6. Pritisnite F5 tipko za zagon kode. Vidite lahko, da so privzete vrednosti dodane v vse celice spustnega seznama, kot je prikazano spodaj.
Opombe:
Sorodni članki:
- Kako samodokončati pri vnašanju spustnega seznama v Excelu?
- Kako ustvariti spustni koledar v Excelu?
- Kako ustvariti iskalni spustni seznam v Excelu?
- Kako ustvariti spustni seznam z več izbirami ali vrednostmi v Excelu?
- Kako samodejno zapolniti druge celice pri izbiri vrednosti v spustnem seznamu Excel?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
