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

Ինչպե՞ս 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. Եթե ընթացիկ աշխատաթերթում տվյալների վավերացման բացվող ցուցակներ չկան, դուք կստանաք ստորև բերված արագ տուփը:


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


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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (1)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հավանում եք «VBA կոդ. սահմանել լռելյայն արժեք տվյալների վավերացման բացվող ցանկում» կոդը, ինչպե՞ս կարող եմ օգտագործել նույն կոդը միայն մեկ սյունակի համար՝ մեկ բացվող ցանկով:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից