Ինչպե՞ս Excel- ում տվյալների վալիդացման բացվող ցուցակում դնել լռելյայն արժեք:
Տվյալների վավերացման բացվող ցուցակում նախնական արժեք սահմանելն օգնում է մյուսներին հեշտությամբ նույնականացնել բացվող ցուցակի բջիջները աշխատանքային թերթիկի հայացքից: Այս հոդվածը տրամադրում է VBA մեթոդ ՝ տվյալների վավերացման բացվող ցուցակում մանրամասները նախադրելու համար:
Տվյալների վավերացման բացվող ցուցակում նախնական արժեք սահմանեք VBA կոդով
Տվյալների վավերացման բացվող ցուցակում նախնական արժեք սահմանեք VBA կոդով
Ենթադրելով, թե ինչպես է ստորև նշված նկարը, ենթադրելով, որ 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-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: