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

Sut i greu blychau rhestr rhaeadru deinamig yn Excel?

Efallai eich bod chi'n gwybod sut i greu rhestr ostwng dilysu rhaeadru yn Excel. Fodd bynnag, sut i greu blychau rhestr rhaeadru deinamig yn Excel? Mae'r erthygl hon yn cyflwyno dull VBA i'w gael i lawr.

Creu blychau rhestr rhaeadru deinamig gyda chod VBA

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

Creu blychau rhestr rhaeadru deinamig gyda chod VBA


Fel y dangosir isod y llun, mae angen i chi greu blwch rhestr rhieni sy'n cynnwys gwerthoedd unigryw'r golofn Diod, ac arddangos yr holl werthoedd cyfatebol yn y blwch ail restr yn seiliedig ar ddethol yn y blwch rhestr rhieni. Mae'r cod VBA canlynol yn eich helpu i'w gyflawni. Gwnewch fel a ganlyn.

1. Yn gyntaf, mae angen i chi dynnu'r holl werthoedd unigryw o'r golofn Diod. Dewiswch gell wag, nodwch fformiwla arae =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") i mewn i'r Bar Fformiwla, ac yna pwyswch y Ctrl + Symud + Rhowch allwedd. Yna llusgwch y Llenwch Trin i gael yr holl werthoedd unigryw. Gweler y screenshot:

Nodyn: Yn y fformiwla, $A$2:$A$11 yw'r ystod y byddwch chi'n tynnu gwerthoedd unigryw ohoni. J1 yw'r gell uchod lle mae'ch fformiwla.

Tip: Os yw'r fformiwla'n rhy anodd ei chofio a'i thrin, bydd y Dewiswch Gelloedd Dyblyg ac Unigryw cyfleustodau Kutools ar gyfer Excel yn ddewis da i chi dynnu pob gwerth unigryw o golofn yn gyflym.

Dewiswch fod y golofn yn cynnwys gwerthoedd unigryw y byddwch chi'n tynnu ohonyn nhw. Yna galluogwch y cyfleustodau trwy glicio Kutools > dewiswch > Dewiswch Gelloedd Dyblyg ac Unigryw. Yn y Dewiswch Gelloedd Dyblyg ac Unigryw blwch deialog, dewiswch y Pob un unigryw (Gan gynnwys dyblygu 1af) opsiwn a chliciwch ar y OK botwm. Yna dewisir yr holl werthoedd unigryw yn y golofn. Copïwch nhw a'u pastio i le newydd. Gweler y screenshot:

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

2. Mewnosodwch ddau flwch rhestr ar wahân trwy glicio Datblygwr > Mewnosod > Blwch Rhestr (Rheoli ActiveX). Gweler y screenshot:

3. De-gliciwch y blwch rhestr rhieni a dewis Eiddo o'r ddewislen cyd-destun. Yn y Eiddo blwch deialog, newid y (Enw) maes i diod neu enw arall yn ôl yr angen, nodwch fod yr ystod gell yn cynnwys y gwerthoedd unigryw a dynnwyd i mewn i'r RhestrFillRage cae a chau'r ymgom.

4. Ailadroddwch gam 3 i newid y blychau ail restr (Enw) maes i Eitem yn y Eiddo blwch deialog.

5. De-gliciwch y tab dalen a dewis Gweld y Cod o'r ddewislen clicio ar y dde. Yna copïwch isod god VBA i mewn i'r ffenestr Cod. Gweler y screenshot:

Cod VBA: Creu blychau rhestr rhaeadru deinamig yn Excel

Dim xPreStr As String
Private Sub Drink_Click()
'Update by Extendoffice 2018/06/04
    Dim I, xRows As Long
    Dim xRg As Range
    Dim xRegStr As String
    Application.ScreenUpdating = False
    xRegStr = Me.Drink.Text
    Set xRg = Range("A2:A11")
    xRows = xRg.Rows.Count
    If xRegStr <> xPreStr Then
    Me.Item.Clear
   'Me.OtherListBoxName.Clear
    Set xRg = xRg(1)
    For I = 1 To xRows
        If xRg.Offset(I - 1).Value = xRegStr Then
            Me.Item.AddItem xRg.Offset(I - 1, 1).Value
            'Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value
        End If
    Next
    xPreStr = xRegStr
    End If
    Application.ScreenUpdating = True
End Sub

Nodiadau: Yn y cod Yfed ac Eitem yw enwau dau flwch rhestr, newidiwch nhw i'ch enwau eich hun.

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

7. Diffoddwch y Modd Dylunio trwy glicio Datblygwr > Modd Dylunio.

O hyn ymlaen, wrth ddewis unrhyw fath o ddiod fel Coffi yn y blwch rhestr rhieni, bydd yr holl eitemau coffi yn cael eu harddangos yn yr ail un. Dim ond yn yr ail flwch rhestr y bydd Dewis Te neu Gwin yn arddangos yr eitemau te neu win. 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
sylwadau (1)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi

Beth mae "Fi" yn cyfeirio ato yn y cod a sut bydd y cod yn newid os oes gennyf flwch rhestr Aml-ddewis?

Regards
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir