Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i glirio cell gwymplen ddibynnol ar ôl dewis newid yn Excel?

Ar gyfer rhestr ostwng ddibynnol, pan fydd gwerth y gwymplen rhieni yn cael ei newid, bydd y gwerth a ddewiswyd yn yr ail un yn annilys. Mae'n rhaid i chi dynnu'r gwerth annilys â llaw o'r ail gwymplen ar ôl dewis newid yn yr un cyntaf. Yn yr erthygl hon, byddaf yn dangos dull i chi glirio'r gell gwymplen ddibynnol yn awtomatig ar ôl dewis newid yn Excel.

Clirio rhestr gwympo dibynnol glir ar ôl dewis wedi'i newid gyda chod VBA


Clirio rhestr gwympo dibynnol glir ar ôl dewis wedi'i newid gyda chod VBA


Mae'r cod VBA canlynol yn eich helpu i glirio'r gwymplen ddibynnol ar ôl dewis newid yn Excel.

1. De-gliciwch mae'r tab dalen yn cynnwys y gwymplen ddibynnol y byddwch chi'n ei chlirio yn awtomatig, yna dewiswch Gweld y Cod o'r ddewislen cyd-destun.

2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch o dan god VBA i'r ffenestr.

Cod VBA: cell gwymplen ddibynnol glir ar ôl dewis newid

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 2018/06/04
    Application.EnableEvents = False
    If Target.Column = 5 And Target.Validation.Type = 3 Then
        Target.Offset(0, 1).Value = ""
    End If
    Application.EnableEvents = True
End Sub

Nodyn: Yn y cod, rhif 5 yw'r rhif colofn sy'n cynnwys y gwymplen rhieni. Yn yr achos hwn, mae rhestr ostwng fy rhiant yn lleoli yng ngholofn E.

3. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

O hyn ymlaen, pan fydd newidiadau a wneir i'r gwymplen rhieni, bydd cynnwys yr ail gwymplen yn cael ei glirio'n awtomatig. Gweler y screenshot:


Erthyglau cysylltiedig:


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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sourav_extendoffice · 1 months ago
    Deleting Multiple rows gives error. Any suggestions ?
  • To post as a guest, your comment is unpublished.
    em · 1 years ago
    I am trying to have this apply to two dependent drop downs and cannot seem to get the code right. I tried copying the code and updating the offset and using the and function and get an error each time. Any advice? I want the two columns next to the drop down to clear if it is changed instead of just one.
    • To post as a guest, your comment is unpublished.
      helenasophiee · 1 months ago
      Hi, this is how I got it working for multiple drop downs, the "And" function didn't work for me either but this seems to. Essentially you need a different "If" statement for each drop down you want to go blank when you change the chosen value in the first drop down menu. There may be a more efficient way to do this but this worked for me!


      Private Sub Worksheet_Change(ByVal Target As Range)
      'Update by Extendoffice 2018/06/04
      Application.EnableEvents = False
      If Target.Column = 2 And Target.Validation.Type = 3 Then
      Target.Offset(0, 1).Value = ""
      End If
      If Target.Column = 2 And Target.Validation.Type = 3 Then
      Target.Offset(0, 2).Value = ""
      End If
      If Target.Column = 2 And Target.Validation.Type = 3 Then
      Target.Offset(0, 3).Value = ""
      End If
      If Target.Column = 2 And Target.Validation.Type = 3 Then
      Target.Offset(0, 4).Value = ""
      End If
      Application.EnableEvents = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Marlborek · 1 years ago
    It does not work.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Marlborek,
      Which Excel version are you using?
  • To post as a guest, your comment is unpublished.
    Juma · 1 years ago
    Working Perfectly
  • To post as a guest, your comment is unpublished.
    abc · 2 years ago
    To post as a guest, your comment is unpublished.
  • To post as a guest, your comment is unpublished.
    امید کیا · 3 years ago
    سلام وقت شما بخیر
    ما فایل اکسلی داریم که خروجیش از طریق نرم افزار همکاران سیستم هست یعنی فایل اکسل ما آنلاین به data base نرم افزار همکاران متصله(این مهم نیست برای اطلاع عرض کردم) توی این فایل فیلترهایی وجود داره که هر فیلتر یک لیست کشویی داره مشکل ما اینه که وقتی میخواهیم هر کدوم از فیلتر ها یکی از موارد لیست کشویی رو انتخاب کنیم با انتخاب لیست،لیست کشویی زود می پره یعنی بسته میشه زود و نمیشه چیزی رو انتخاب کرد،اینم بگم خدمتتون که آفیس رو حذف و نصب هم کردم بازم جواب نداد یعنی یه مدت خیلی کوتاهی جواب میده بعد به حالت قبل بر میگرده با پشتیبانی همکاران هم تماس گرفتیم گفتن مشکل از آفیستونه
    (آفیسمون 2016 هست)یعنی عملا اونها هم نتونستن مشکل رو پیدا کنن.
    لطفا اگه راهی هست ممنون میشم راهنماییم کنید.
    با تشکر