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

 Sut i greu rhestr ostwng ond dangos gwahanol werthoedd yn Excel?

Yn nhaflen waith Excel, gallwn greu gwymplen yn gyflym gyda'r nodwedd Dilysu Data, ond, a ydych erioed wedi ceisio dangos gwerth gwahanol pan gliciwch ar y gwymplen? Er enghraifft, mae gen i'r ddwy ddata colofn ganlynol yng Ngholofn A a Cholofn B, nawr, mae angen i mi greu rhestr ostwng gyda'r gwerthoedd yn y golofn Enw, ond, pan fyddaf yn dewis yr enw o'r gwymplen a grëwyd, y cyfatebol dangosir gwerth yn y golofn Rhif fel y screenshot canlynol a ddangosir. Bydd yr erthygl hon yn cyflwyno'r manylion i ddatrys y dasg hon.

cwymp doc gwahanol werthoedd 1

Creu rhestr ostwng ond dangos gwerth gwahanol yn y gwymplen


Creu rhestr ostwng ond dangos gwerth gwahanol yn y gwymplen

I orffen y dasg hon, gwnewch y cam wrth gam canlynol:

1. Creu enw amrediad ar gyfer y gwerthoedd celloedd rydych chi am eu defnyddio yn y gwymplen, yn yr enghraifft hon, byddaf yn nodi'r gwymplen enw yn y Blwch Enw, ac yna'r wasg Rhowch allwedd, gweler y screenshot:

cwymp doc gwahanol werthoedd 2

2. Yna dewiswch gelloedd lle rydych chi am fewnosod y gwymplen, a chlicio Dyddiad > Dilysu Data > Dilysu Data, gweler y screenshot:

cwymp doc gwahanol werthoedd 3

3. Yn y Dilysu Data blwch deialog, o dan y Gosodiadau tab, dewis rhestr oddi wrth y Caniatáu gollwng i lawr, ac yna cliciwch cwymp doc gwahanol werthoedd 5 botwm i ddewis y rhestr Enw yr ydych am ei defnyddio fel cwymplenni yn y ffynhonnell blwch testun. Gweler y screenshot:

cwymp doc gwahanol werthoedd 4

4. Ar ôl mewnosod y gwymplen, cliciwch ar y dde ar y tab dalen weithredol, a dewis Gweld y Cod o'r ddewislen cyd-destun, ac yn yr agoriad Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, copïo a gludo'r cod canlynol i'r Modiwl gwag:

Cod VBA: Arddangos gwerth gwahanol i'r gwymplen:

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

cwymp doc gwahanol werthoedd 6

Nodyn: Yn y cod uchod, y rhif 5 mewn Os Targed.Column = 5 Yna sgript yw'r rhif colofn y mae eich rhestr ostwng wedi'i lleoli, sef y “gollwng i lawr" Yn hyn selectedNum = Application.VLookup (selectedNa, ActiveSheet.Range ("gwymplen"), 2, Anghywir) cod yw'r enw amrediad rydych chi wedi'i greu yng ngham 1. Gallwch eu newid i'ch un angenrheidiol.

5. Yna arbedwch a chau'r cod hwn, nawr, pan ddewiswch eitem o'r gwymplen, mae gwerth cymharol wahanol yn cael ei arddangos yn yr un gell, gweler y screenshot:

cwymp doc gwahanol werthoedd 7


Demo: Creu rhestr ostwng ond dangos gwahanol werthoedd yn Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

 


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab

 

sylwadau (40)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A ellir gwneud hyn ar wahanol ddalennau? Hynny yw, ar ddalen 1 y cwymplen ac ar ddalen2 yr amrediad. Sut mae'n rhaid i mi godio hwn? Diolch ymlaen llaw. Tina.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os ydw i eisiau gwneud mwy nag un gwymplen sy'n dychwelyd gwerthoedd gwahanol ar yr un daflen waith? Allwch chi ddangos enghraifft i mi o'r codio ar gyfer dau neu fwy?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Lee Ann

Os mai dim ond copïo a gludo'r cod o'r If to the EndIf a newidiwch y golofn # a'r Tabl dylai weithio:


Is-daflen waith_Newid(Targed ByVal Fel Ystod)
selectedNa = Target.Value
Os Targed.Column = 5 Yna
selectedNum = Application.VLookup (selectedNa, ActiveSheet.Range ("gwymplen"), 2, Anghywir)
Os Ddim yn IsError(selectedNum) Yna
Target.Value = selectedNum
Gorffennwch Os
Gorffennwch Os
Os Targed.Column = 9 Yna
selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown1"), 2, False)
Os Ddim yn IsError(selectedNum) Yna
Target.Value = selectedNum
Gorffennwch Os
Gorffennwch Os
Is-End

Dydw i ddim yn dweud mai dyma'r ffordd gywir ond fe weithiodd ar fy fersiwn prawf. Rwy'n defnyddio Excel 2013
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Newydd roi cynnig arni. Ac fe weithiodd!! Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, help, dyw e ddim yn gweithio, allwch chi gludo'r cod i gyd yma ar gyfer 2 golofn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim byd mwy rhwystredig na theipio cwestiwn manwl dim ond i'w chwythu i ffwrdd. Os byddwch chi'n teipio'r cod 6 digid anghywir i ddilysu'ch person, mae'n dileu'r neges a bostiwyd. Efallai eisiau trwsio hynny. Nawr fy sylw yw hyn: ceisiais wneud yr un peth yn union a ddangoswyd gennych yn y fideo a'r cyfarwyddiadau ysgrifenedig a'r cyfan a gaf yw pan fyddaf yn dewis enw yn y rhestr yw'r enw ac nid y rhif. Hefyd, sut mae hyn hyd yn oed yn gweithio gan y dylai dilysu data gyfyngu'r dewisiadau i'r hyn sydd yn y rhestr yn unig. Sut mae hyn yn twyllo'r system? Yn y gorffennol rwyf bob amser wedi gorfod neilltuo cod vba i fotwm neu lwybr byr, sut mae'r cod hwn yn cael ei actifadu? Sut ydych chi'n profi i sicrhau ei fod yn gweithio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae'r fformiwla yn gweithio pan fyddwch am ychwanegu'r data ar ddalen ar wahân yn y llyfr gwaith? Rwyf am guddio'r data.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Newidiwch yma bro!
selectedNum = Cais.VLookup(selectedNa, Taflenni Gwaith("EichEnw").Range("gwymp"), 2, Gau)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae "YourSheetName" yn cyfeirio at y ddalen sy'n cynnwys yr amrediad data neu'r ddalen lle rwyf am ddefnyddio'r rhestr dropdwon?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae'r fformiwla'n gweithio pan fyddwch am restru'r data ar ddalen/tab ar wahân yn y llyfr gwaith?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nid yw hyn yn gweithio mewn fersiynau cyfredol o excel-hen ffasiwn. Nid yw dilysu data ac yna rhestr bellach yn ymddangos yn vba gan fod gwrthrych excel wedi ceisio sawl gwaith yn barod ac nid yw'n ymddangos.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn yr enghraifft hon, beth os ydych am iddo edrych ar werth ym mhob un o'r celloedd yn 5, ond rhowch y gwerth yn y gell gyfagos yn 6
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut byddai angen Newid y cod pe bawn i eisiau creu cyfeiriad/dolen yn E1 i ffynhonnell y rhestr gwympo yn seiliedig ar y gwerth a ddewiswyd?
Y fantais fyddai Pe bai newid yn y ffynhonnell gwympo (ee "Henrik" => "Hendrik" byddai'r newid yn cael ei adlewyrchu'n awtomatig yn E1.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Unrhyw un yn gwybod sut i gael hwn i weithio mewn google sheets?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am ddewis opsiwn lluosog o'r gwymplen.
canlyniad fel hyn: AA1001,BB1002
a yw'n bosibl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wnaethoch chi ddod o hyd i ateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Si los datos de la lista están en otra hoja, cuál sería el codigo? Gracias.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
cómo buscar un valor hacia la izquierda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
selectedNa = Target.Value
Os Targed.Column = 5 Yna

Taflenni ("Nombre de la hoja en donde esta la lista"). Activate
selectedNum = Application.VLookup (selectedNa, ActiveSheet.Range ("gwymplen"), 2, Anghywir)
Taflenni ("Nombre de la hoja en donde etas trabajando"). Activate
Os Ddim yn IsError(selectedNum) Yna
Target.Value = selectedNum
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae rhywun yn gwybod sut i chwilio'r gwerth o'r dde i'r chwith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen i mi ddefnyddio'r un cwymplen mewn mwy nag un golofn, beth fyddai'r cod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi!
Mae hyn yn ddefnyddiol iawn! Diolch!
Rwy'n rhedeg yn y sefyllfa lle nad yw'r gell yn diweddaru'n awtomatig neu wrth ddefnyddio'r swyddogaeth adnewyddu. Mae'n rhaid i mi glicio mewn cell arall ac yna clicio yn ôl ar y gell yn y gwaith i'w gael i arddangos y gwerth.
Rwy'n gweithio gyda Office Standard 2019 ar hyn o bryd. A oes unrhyw un yn gwybod a yw'r mater hwn yn gysylltiedig â'r fersiwn ar Excel rwy'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Roedd y cod yn gweithio'n iawn os ydym yn diffinio'r rhestr ac yn creu'r gwymplen yn yr un ddalen.
Ond sut allwn ni gyflawni diffinio'r rhestr o werthoedd a chodau mewn un ddalen a'r gwymplen a grëwyd mewn tudalen arall?
Nid yw'r un cod hwn yn gweithio gan ei fod yn dangos a gwall yn y llinell hon ("selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("gollyngiad"), 2, Ffug)").
Hefyd, mae gen i ofyniad fel, os oes gen i restrau lluosog wedi'u diffinio mewn un ddalen gydag ID ac Enwau a gostyngiadau lluosog mewn dalen arall lle mae un gwerth cwymplen yn dibynnu ar werth dethol mewn cwymplen arall.

Gobeithio eich bod wedi deall fy ymholiad.

Helpwch fi i ddatrys y mater hwn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn wedi fy helpu yn fawr iawn, diolch. Gan fod fy nhabl ar ddalen wahanol i fy mlwch rhestr ychwanegais ychydig linellau o god i gyflawni hynny a hefyd i gadw'r sgrin rhag fflachio.

Application.ScreenUpdating = Anghywir
Sheets("SheetWithTableOnIt"). Activate

Sheets("SheetWithDropDownListOnIt").Activate
Application.ScreenUpdating = Gwir
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ble yn union wnaethoch chi ychwanegu'r codau hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael gwall Cryno: Gwall Cystrawen ar y llinell "Os Trarget.Column = 6 Yna" pan fyddaf yn ceisio defnyddio'r cod? Unrhyw syniad pam?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio ond pan fyddwch yn gadael ffeil ac yn agor eto nid yw'n gweithio... ni ellir ei chadw fel .xls yn unig fel .xlsm a oes unrhyw ateb ar gyfer hynny? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Marko, Ar ôl copïo a gludo'r cod yn eich llyfr gwaith, pan fyddwch chi'n cadw'r ffeil, dylech ei chadw fel fformat Excel Macro-Enabled Workbook, ceisiwch, diolch!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir