Ինչպե՞ս Excel- ում տվյալների վալիդացման բացվող ցուցակում դնել լռելյայն արժեք:

Տվյալների վավերացման բացվող ցուցակում նախնական արժեք սահմանելն օգնում է մյուսներին հեշտությամբ նույնականացնել բացվող ցուցակի բջիջները աշխատանքային թերթիկի հայացքից: Այս հոդվածը տրամադրում է VBA մեթոդ ՝ տվյալների վավերացման բացվող ցուցակում մանրամասները նախադրելու համար:

Տվյալների վավերացման բացվող ցուցակում նախնական արժեք սահմանեք VBA կոդով

Տվյալների վավերացման բացվող ցուցակում նախնական արժեք սահմանեք VBA կոդով

Amazարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel- ում, ինչպիսիք են Chrome- ը, Firefox- ը և Safari- ն:

Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

---

Ենթադրելով, թե ինչպես է ստորև նշված նկարը, ենթադրելով, որ B2: C7 տիրույթի բոլոր բջիջները պարունակում են բացվող ցուցակ, և դուք ցանկանում եք նախադրված արժեք սահմանել (ասվում է - Ընտրեք ցուցակից -) այս բացվող ցուցակում `նախքան դրանցից արժեքներ ընտրելը: Կարող եք փորձել հետևյալ VBA կոդը:

1. Աջ կտտացրեք թերթիկի ներդիրին բացվող ցուցակների հետ, որոնք անհրաժեշտ է նախնական արժեքը սահմանելու համար, ապա կտտացրեք Դիտել կոդը ից ցանկի մեջ:

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ VBA կոդը օրենսգրքի պատուհանում:

VBA կոդ. Տվյալների վավերացման բացվող ցուցակում նախնական արժեք սահմանեք

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

Նշում. VBA կոդում կարող եք փոխել լռելյայն արժեքը ձեզ համար անհրաժեշտի:

6. Սեղմեք F5 ծածկագիրը գործելու համար: Դուք կարող եք տեսնել, որ կանխադրված արժեքները ավելացվում են բոլոր բացվող ցուցակի բջիջներում, ինչպես ցույց է տրված նկարում:

Notes:

Առնչվող հոդվածներ քանակը:

• Ինչպե՞ս ինքնալրացնել Excel- ը բացվող ցուցակում մուտքագրելիս:
• Ինչպե՞ս ստեղծել բացվող ցուցակի օրացույց Excel- ում:
• Ինչպե՞ս ստեղծել որոնվող բացվող ցուցակ Excel- ում:
• Ինչպե՞ս ստեղծել բացվող ցուցակ Excel- ում բազմաթիվ ընտրություններով կամ արժեքներով:
• Ինչպե՞ս ինքնաբերաբար լրացնել այլ բջիջները Excel- ի բացվող ցուցակում արժեքներ ընտրելիս:

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...