Sut i ddewis nifer o eitemau o'r gwymplen i mewn i gell yn Excel?

Defnyddir y gwymplen yn aml yng ngwaith dyddiol Excel. Yn ddiofyn, dim ond un eitem y gellir ei dewis mewn rhestr ostwng. Ond mewn rhai adegau, efallai y bydd angen i chi ddewis nifer o eitemau o'r rhestr ostwng i mewn i un gell fel y nodir isod. Sut allwch chi ei drin yn Excel?

Dewiswch nifer o eitemau o'r gwymplen i mewn i gell gyda VBA

Dewiswch nifer o eitemau o'r gwymplen i mewn i gell gyda Kutools ar gyfer opsiwn defnyddiol Excel

Dewiswch nifer o eitemau o'r gwymplen i mewn i gell gyda VBA

Dyma rai y gall VBA eich gwneud yn ffafriol wrth ddatrys y swydd hon.

Dewiswch eitemau dyblyg o'r gwymplen mewn cell

1. Ar ôl creu rhestr ostwng, cliciwch ar y dde wrth y tab dalen i ddewis Gweld y Cod o'r ddewislen cyd-destun.

2. Yna yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo islaw'r cod i'r sgript wag.

VBA: Dewiswch nifer o eitemau o'r gwymplen mewn cell

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

3. Cadwch y cod a chau'r ffenestr i fynd yn ôl i'r gwymplen. Nawr gallwch ddewis nifer o eitemau o'r gwymplen.

Nodyn:

1. Gyda'r VBA, mae'n gwahanu'r eitemau yn ôl gofod, gallwch chi newid xStrNew = xStrNew & "" & Target.Value i eraill newid y amffinydd yn ôl yr angen. Er enghraifft, xStrNew = xStrNew & "," & Target.Value yn gwahanu'r eitemau gyda choma.

2. Mae'r cod VBA hwn yn gweithio ar gyfer pob rhestr ostwng yn y ddalen.

Dewiswch nifer o eitemau o'r gwymplen i gell heb eu hailadrodd

Os ydych chi am ddewis eitemau unigryw o'r gwymplen i gell, gallwch ailadrodd uwchben y camau a defnyddio isod y cod.

VBA ： Dewiswch nifer o eitemau o'r gwymplen i gell heb eu hailadrodd

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

Nid yw'r ddau god VBA uchod yn suppot i ddileu rhannau o gynnwys celloedd, dim ond cefnogaeth i glirio pob eitem o'r gell.

Dewiswch nifer o eitemau o'r gwymplen i mewn i gell gyda Kutools ar gyfer opsiwn defnyddiol Excel

Os nad ydych chi'n gyfarwydd â chod VBA, gallwch chi gosod am ddim teclyn defnyddiol - Kutools ar gyfer Excel, sy'n cynnwys grŵp o gyfleustodau ynglŷn â gwymplen, ac mae opsiwn Rhestr ostwng aml-ddewis yn gallu'ch helpu chi i ddewis nifer o eitemau o'r gwymplen i mewn i gell yn hawdd.

Ar ôl creu'r gwymplen, dewiswch gelloedd y gwymplen a chlicio Kutools > Rhestr Gollwng > Rhestr Gollwng Aml-ddewis i alluogi'r cyfleustodau hwn.

Yna gellir dewis y celloedd rhestr ostwng a ddewiswyd sawl eitem i'r gell.

Os ydych chi'n defnyddio'r opsiwn hwn ar y tro cyntaf, gallwch chi nodi gosodiadau'r cyfleustodau hwn yn ôl yr angen cyn defnyddio'r cyfleustodau hwn.

Cliciwch Kutools > Rhestr Gollwng > y saeth wrth ochr Rhestr Gollwng Aml-ddewis > Gosodiadau.

Yna yn y Gosodiadau Rhestr Gostwng Aml-ddewis deialog, gallwch chi

1) Nodwch y cwmpas ymgeisio yn ôl yr angen;

2) Nodwch gyfeiriad yr eitemau lle;

3) Nodwch y gwahanydd rhwng eitemau;

4) Nodwch os na ychwanegwch ddyblygiadau a thynnwch eitemau dyblyg.

Cliciwch Ok a chliciwch Kutools > Rhestr Gollwng > Rhestr Gollwng Aml-ddewis i ddod i rym.

Tip: I gymhwyso'r Rhestr Gollwng Aml-ddewis cyfleustodau, mae angen i chi gosod ar y dechrau. Os ydych chi am greu rhestr ostwng gyda sawl lefel, efallai y bydd y cyfleustodau isod yn eich helpu chi.

Hawdd creu rhestr ostwng ddibynnol ddeinamig 2-lefel neu aml-lefel yn Excel

Yn Excel, mae creu rhestr ostwng 2 lefel neu luosog yn gymhleth. Yma mae'r Rhestr Gollwng Dynamig cyfleustodau Kutools ar gyfer Excel yn gallu gwneud ffafr i chi. Yr hyn y mae'n rhaid i chi ei wneud yn unig yw archebu'r data fel yr enghraifft a ddangosir, yna dewiswch yr ystod ddata a'r ystod allbwn, yna ei adael i'r cyfleustodau.  Cliciwch am 30 diwrnod treial am ddim!

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad yn 30 diwrnod.

---

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 Office / Excel 2007-2021 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.

Read More ... Lawrlwythiad Am Ddim... Prynu ... 

---

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!

Read More ... Lawrlwythiad Am Ddim... Prynu ...