Cum se setează o valoare implicită în lista verticală de validare a datelor în Excel?
Setați o valoare implicită în lista verticală de validare a datelor îi ajută pe ceilalți să identifice cu ușurință celulele listei derulante dintr-o privire dintr-o foaie de lucru. Acest articol oferă o metodă VBA pentru a seta o valoare implicită în lista verticală de validare a datelor în detalii.
Setați o valoare implicită în lista verticală de validare a datelor cu cod VBA
Setați o valoare implicită în lista verticală de validare a datelor cu cod VBA
Ca mai jos captura de ecran, presupunând că toate celulele din intervalul B2: C7 conțin o listă derulantă și doriți să setați o valoare implicită (spune - Alege din listă -) din această listă derulantă înainte de a alege valori din ele. Puteți încerca următorul cod VBA.
1. Faceți clic dreapta pe fila foaie cu listele derulante de care aveți nevoie pentru a seta o valoare implicită, apoi faceți clic pe Afișați codul din meniu.
2. În Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți următorul cod VBA în fereastra Cod.
Cod VBA: setați o valoare implicită în lista verticală de validare a datelor
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
notițe: puteți schimba valoarea implicită din codul VBA cu cea de care aveți nevoie.
6. apasă pe F5 tasta pentru a rula codul. Puteți vedea că valorile implicite sunt adăugate la toate celulele din lista derulantă, după cum este prezentat mai jos.
notițe:
Legate de articole:
- Cum se completează automat când tastați în lista verticală Excel?
- Cum se creează un calendar de listă verticală în Excel?
- Cum se creează o listă derulantă în căutare în Excel?
- Cum se creează o listă derulantă cu mai multe selecții sau valori în Excel?
- Cum să populați automat alte celule atunci când selectați valori în lista verticală Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!