Skip to main content

Conas boscaí liosta cascáideacha dinimiciúla a chruthú in Excel?

B'fhéidir go mbeadh a fhios agat conas liosta anuas bailíochtaithe cascáideacha a chruthú in Excel. Mar sin féin, conas boscaí liosta cascáideacha dinimiciúla a chruthú in Excel? Tugann an t-alt seo modh VBA isteach chun é a fháil síos.

Cruthaigh boscaí liosta cascáideacha dinimiciúla le cód VBA


Cruthaigh boscaí liosta cascáideacha dinimiciúla le cód VBA

Mar a thaispeántar an scáileán thíos, ní mór duit bosca liosta tuismitheoirí a chruthú ina bhfuil luachanna uathúla an cholúin Dí, agus na luachanna comhfhreagracha go léir a thaispeáint sa dara bosca liosta bunaithe ar an roghnú sa bhosca liosta tuismitheoirí. Cuidíonn an cód VBA seo a leanas leat é a bhaint amach. Déan mar a leanas le do thoil.

1. Ar an gcéad dul síos, ní mór duit gach luach uathúla a bhaint as an gcolún Deoch. Roghnaigh ceall bán, cuir isteach foirmle eagar =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") isteach sa Bar Foirmle, agus ansin brúigh an Ctrl + Shift + Iontráil eochair. Ansin tarraing an Líon Láimhseáil gach luach uathúil a fháil. Féach ar an scáileán:

nótaí: San fhoirmle, $A$2:$A$11 an raon as a mbainfidh tú luachanna uathúla. Is é J1 an chill thuas ina bhfuil do fhoirmle suite.

Leid: Má tá foirmle ró-deacair a mheabhrú agus a láimhseáil, an Roghnaigh Cealla Dúblacha & Uathúla fóntais de Kutools le haghaidh Excel Beidh sé ina rogha maith duit gach luach uathúil a bhaint as colún go tapa.

Roghnaigh le do thoil go bhfuil luachanna uathúla sa cholún as a mbainfidh tú. Ansin cumasaigh an fóntais trí chliceáil Kutools > Roghnaigh > Roghnaigh Cealla Dúblacha & Uathúla. Sa an Roghnaigh Cealla Dúblacha & Uathúla bosca dialóige, roghnaigh an Gach uathúil (lena n-áirítear an chéad dúblach) rogha agus cliceáil ar an OK cnaipe. Ansin roghnaítear na luachanna uathúla go léir sa cholún. Déan iad a chóipeáil agus a ghreamú chuig áit nua. Féach ar an scáileán:

Kutools le haghaidh Excel: le níos mó ná 200 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 60 lá. Íoslódáil agus triail saor in aisce Anois!

2. Cuir isteach dhá bhosca liosta ar leithligh trí chliceáil Forbróir > Ionsáigh > Bosca Liosta (Rialú ActiveX). Féach an pictiúr:

3. Cliceáil ar dheis ar an mbosca liosta tuismitheoirí agus roghnaigh Airíonna ón roghchlár comhthéacs. Sa Airíonna bosca dialóige, athraigh an (Ainm) réimse go Deoch nó ainm eile de réir mar is gá duit, cuir isteach an raon cille ina bhfuil na luachanna uathúla a bhaintear isteach sa LiostaFillRange réimse agus dún an dialóg.

4. Déan céim 3 arís chun boscaí an dara liosta a athrú (Ainm) réimse go Mír sa Airíonna dialóg.

5. Cliceáil ar dheis ar an táb bileog agus roghnaigh Féach an cód ón roghchlár cliceáil ar dheis. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Chóid. Féach ar an scáileán:

Cód VBA: Cruthaigh boscaí liosta cascáideacha dinimiciúla in 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

nótaí: Sa chód Dí agus Mír is ainmneacha dhá bhosca liosta, iad a athrú go dtí do ainmneacha féin.

6. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

7. Múch an Mód Dearaidh trí chliceáil Forbróir > Mód Dearaidh.

As seo amach, nuair a roghnaítear deoch de chineál ar bith ar nós Caife sa bhosca liosta tuismitheoirí, taispeánfar gach rud caife sa dara ceann. Ní thaispeánfaidh Roghnaigh Tae nó Fíon ach na míreanna tae nó fíona sa bhosca dara liosta. Féach ar an scáileán:


Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi

What does "Me" refer to in the code and how will the code change if I have a MultiSelect list box?

Regards
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations