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

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

Excel աշխատաթերթում մենք կարող ենք արագ ստեղծել բացվող ցուցակ տվյալների վավերացման հատկության միջոցով, բայց երբևէ փորձե՞լ եք այլ արժեք ցույց տալ, երբ սեղմում եք բացվող ցուցակը: Օրինակ, ես ունեմ հետևյալ երկու սյունակի տվյալները սյունակում A և B սյունակում, այժմ ես պետք է ստեղծեմ բացվող ցուցակ `անվանման սյունակի արժեքներով, բայց, երբ ստեղծեմ բացվող ցուցակից անունը ընտրեմ, համապատասխան Համարի սյունակում արժեքը ցուցադրվում է այնպես, ինչպես ցույց է տրված հետևյալ նկարը. Այս հոդվածը մանրամասներ կներկայացնի այս խնդիրը լուծելու համար:

doc բացվող տարբեր արժեքներ 1

Ստեղծեք բացվող ցուցակ, բայց ցույց տվեք տարբեր արժեք բացվող ցուցակի բջիջում

Ստեղծեք բացվող ցուցակ, բայց ցույց տվեք տարբեր արժեք բացվող ցուցակի բջիջում

Այս խնդիրն ավարտելու համար քայլ առ քայլ կատարեք հետևյալը.

1, Ստեղծեք տիրույթի արժեքներ այն բջջային արժեքների համար, որոնք ցանկանում եք օգտագործել բացվող ցուցակում, այս օրինակում ես անունը կընկնեմ Անունը Box, ապա սեղմեք Մտնել ստեղնը, տես նկարի նկարը.

doc բացվող տարբեր արժեքներ 2

2, Դրանից հետո ընտրեք այն բջիջները, որտեղ ցանկանում եք տեղադրել բացվող ցուցակը և կտտացնել Ամսաթիվ > Տվյալների վավերացում > Տվյալների վավերացում, տես նկարի նկարը.

doc բացվող տարբեր արժեքներ 3

3, Մեջ Տվյալների վավերացում երկխոսության տուփ, տակ Կարգավորումներ էջանիշ, ընտրեք Ցուցակ - ից Թույլ տալ բաց թողեք ներքև, ապա կտտացրեք doc բացվող տարբեր արժեքներ 5 կոճակը ՝ ընտրելու Անվան ցուցակը, որը ցանկանում եք օգտագործել որպես բացվող արժեքներ Աղբյուր տեքստային տուփ: Տեսեք,

doc բացվող տարբեր արժեքներ 4

4, Բացվող ցուցակը տեղադրելուց հետո խնդրում ենք աջ կտտացնել ակտիվ թերթիկի ներդիրին և ընտրել Դիտել կոդը համատեքստային ընտրացանկից և բացվածում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը դատարկ Մոդուլի մեջ.

VBA կոդ. Displayուցադրել տարբեր արժեք բացվող ցուցակից.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    selectedNa = Target.Value
    If Target.Column = 5 Then
        selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)
        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If
    End If
End Sub

doc բացվող տարբեր արժեքներ 6

ՆշումՎերոհիշյալ կոդում համարը 5 ընթացքում Եթե ​​թիրախ: Սյունակ = 5 Ապա սցենարը սյունակի համարն է, որը գտնվում է ձեր բացվող ցուցակում,dropdown" սրանում selectedNum = Application.VLookup (ընտրվածՆա, ActiveSheet.Range («բացվող ցուցիչ»), 2, Սուտ) ծածկագիրը 1. Քայլում ստեղծած տիրույթի անունն է: Կարող եք դրանք փոխել ըստ ձեր պահանջածի:

5, Դրանից հետո պահեք և փակեք այս կոդը, այժմ, երբ դուք բացվող ցուցակից մի նյութ եք ընտրում, նույն խցում ցուցադրվում է հարաբերականորեն տարբեր արժեք, տես նկարի նկարը.

doc բացվող տարբեր արժեքներ 7

Դեմո. Ստեղծեք բացվող ցուցակ, բայց Excel- ում ցույց տվեք տարբեր արժեքներ

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

 

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

🤖 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 (44)
No ratings yet. Be the first to rate!
SaraWitch
SaraWitch
This comment was minimized by the moderator on the site
Hello everyone,

About two years ago, @skyyang posted the following formula, which works perfectly:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
selectedNa = Target.Value
If Target.Column = 5 Then
Set xRg = ActiveWorkbook.Names("DropDown").RefersToRange
selectedNum = Application.VLookup(selectedNa, xRg, 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
End If
End If
End Sub


However, I have six sections each needing the same results from the DDL name range. How do I get this formula to apply to more than one column please?

Any help would be greatly appreciated 🙂
Reply
0
0
Kristine Stump
Kristine Stump
This comment was minimized by the moderator on the site
How can I use this formula if the data for the drop down is on a sheet named materials?

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
selectedNa = Target.Value
If Target.Column = 4 Then
selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("Material_List"), 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
End If
End If
End Sub
Reply
0
0
CT
CT
This comment was minimized by the moderator on the site
Can this be applied to certain cells only instead of the whole column? It’s coming back as #N/A for some areas that i don't need this formula for. Thanks
Reply
0
0
Matt
Matt
This comment was minimized by the moderator on the site
The code I have used is below:


Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
selectedNa = Target.Value
If Target.Column = 8 Then
selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("codes"), 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
End If
End If
End Sub



This works exactly how I need it too, however, when I save, close and then re-open the excel document, this has disappeared from the 'View Code' window and I have to re-insert the code again?????

Please help!
Reply
0
0
Matt
Matt     Matt
This comment was minimized by the moderator on the site
I have even saved the document as a Excel Macro-Enabled Workbook
Reply
0
0
F Lucas
F Lucas
This comment was minimized by the moderator on the site
Can you do multiple drop down lists like this on the same worksheet tab? How will the vba code be adjusted to accommodate different lists for the sheet?
Reply
0
0
DDVA
DDVA
This comment was minimized by the moderator on the site
Is there a way to return multiple selections to the same field? I.E. I want to show the numbers for Tedi, Dave and Lucy on a single field seperated by a comma.Many thanks.
Reply
Report
0
0
david
david
This comment was minimized by the moderator on the site
This works for me but is there a way to allow multiple selections in the same cell? I.e. I wanted to return the numbers for Tedi, Lucy and Dave in a single field seperated by a comma?
Reply
0
0
Muhammd Qadeer
Muhammd Qadeer
This comment was minimized by the moderator on the site
Can this be done on different sheets? I mean, on sheet1 the range and on sheet2 the dropdown. How do I have to code this? Thanks.
Reply
0
0
skyyang
skyyang     Muhammd Qadeer
This comment was minimized by the moderator on the site
Hello, Muhammd,To apply the drop down list in different worksheet, the following code may help you:Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
selectedNa = Target.Value
If Target.Column = 5 Then
Set xRg = ActiveWorkbook.Names("DropDown").RefersToRange
selectedNum = Application.VLookup(selectedNa, xRg, 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
End If
End If
End Sub

Please try, thank you!
Reply
Report
0
0
victor sciullo
victor sciullo     skyyang
This comment was minimized by the moderator on the site
trying to do multiple drop downs sheet 1 , returning different worksheet. Is this possible as when i select in separate dropdown the sam numbers it does not work For example
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice

selectedNa = Target.Value
If Target.Column = 2 Then
Set xRg = ActiveWorkbook.Names("Supervisors").RefersToRange
selectedNum = Application.VLookup(selectedNa, xRg, 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
selectedNa = Target.Value
End If
End If
selectedNa = Target.Value
If Target.Column = 9 Then
Set xRg = ActiveWorkbook.Names("Earth").RefersToRange
selectedNum = Application.VLookup(selectedNa, xRg, 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
selectedNa = Target.Value

End If
End If
End Sub
Reply
0
0
Cablegi
Cablegi
This comment was minimized by the moderator on the site
Good morning i hope someone can help me.I used the VBA code above and it worked perfectly giving me my drop down showing me Different Values In Drop Down List Cell.My problem is that I need a second drop down list showing different values in a second list cell, on the same sheet, can anyone help me in doing this Kind Regards Rene
Reply
Report
0
0
CarlosHS
CarlosHS
This comment was minimized by the moderator on the site
Se pueden usar diferentes “dropdown” en la misma hoja, para diferentes columnas y con diferentes rangos?Me explico, tengo una hoja en la que los usuarios introducen diferentes datos. En dos columnas 5 y 12 necesito validar la entrada con respecto a dos rangos diferentes de datos. Lo he probado solo con una columna y funciona perfectamente, pero no encuentro la manera de modificar el código VBA para la segunda columna
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations