Note: The other languages of the website are Google-translated. Back to English

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:

1. Valoarea implicită va dispărea după selectarea valorii din lista derulantă.
2. Dacă nu există liste derulante de validare a datelor în foaia de lucru curentă, veți primi caseta de solicitare de mai jos.


Legate de articole:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

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!
fundul officetab
Comentarii (1)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Iubește codul despre „Codul VBA: setați o valoare implicită în lista derulantă de validare a datelor”, cum folosesc același cod pentru o singură coloană cu un drop-down?
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL