Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս 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:

1. Լռակյաց արժեքը կվերանա բացվող ցուցակում արժեքն ընտրելուց հետո:
2. Եթե ընթացիկ աշխատաթերթում տվյալների վավերացման բացվող ցուցակներ չկան, դուք կստանաք ստորև բերված արագ տուփը:


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

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Love the code about 'VBA code: set a default value in data validation drop-down list', how do I use the same code for just one column with one dropdown?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations