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

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?

doc dewis nifer o eitemau o'r gwymplen 1 saeth doc dde doc dewis nifer o eitemau o'r gwymplen 2

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.
doc dewis nifer o eitemau o'r gwymplen 3

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.
doc kutools aml-ddewis rhestr ostwng 1

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.
doc kutools aml-ddewis rhestr ostwng 2

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!
doc datblygedig cyfuno rhesi
 
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.
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 (26)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar ôl ychwanegu, y data o'r gwymplen, dileu ddim yn gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais yr un mater. Rwy'n meddwl i mi ddod o hyd i ffordd i'w oresgyn. Ar waelod y cod fe welwch y cod "xStrNew = xStrOld". Yn lle hynny, gwnewch iddo ddweud xStrNew = " "

Mae'n gweithio i mi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Unrhyw siawns bod gennych y cod hwn o hyd? Rwy'n ceisio gwneud yr hyn a ddywedasoch ond mae'r testun yn dal i ddyblygu.
diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gen i ond dydw i ddim. Fodd bynnag, edrychais ar y cod uchod ac mae'n ymddangos bod yr awdur wedi golygu'r cod gyda fy awgrym.

postiwch eich rhifyn ar y prif edefyn i'r erthygl hon.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
yn y cod cyntaf ychwanegwch y llinell ganlynol rhwng llinell 6 a 7 (10-11 yn yr ail god): If Target.Value = " " Yna Gadael Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais hwn "Dewiswch eitemau lluosog o'r gwymplen i gell heb ei ailadrodd"
dyma beth ddigwyddodd
1. Mae dewisiadau lluosog yn digwydd heb broblemau.
2. Y mater yw pan fyddaf yn ceisio golygu a dileu opsiwn. Nid oes unrhyw ffordd i mi ddileu opsiwn. mae'n dal i luosi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut fyddech chi'n cymhwyso'r swyddogaeth hon ond yn ei wneud fel nad oes gwerthoedd diangen? Byddai unrhyw help yn cael ei werthfawrogi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os byddaf yn creu dalen gyda rhestr gwympo gan ddefnyddio blychau ticio, a oes ffordd i rannu'r llyfr gwaith hwn gyda'r nodwedd blychau ticio hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf hefyd yn canfod, ar ôl dewis eitemau lluosog gan ddefnyddio'r cod VBA wedi'i ddiweddaru, na allaf glirio'r gell o hyd, mae'n dal i luosi.
A oes gan unrhyw un ateb ar gyfer hyn eto?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Rusty, y cod yr wyf wedi'i ddiweddaru ar gyfer ei wneud yn fwy sefydlog. Ond oherwydd bod y gell mewn dilysu data, yn wag sydd allan o ddilysu data, ni all y cod ddatrys y broblem hon.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'r cod yn gweithio ond yn cario drosodd ar draws pob cell ac yn lluosi yn y celloedd ac ni fydd yn caniatáu dileu, allwch chi gynorthwyo?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Quando quero deletar alguma opção ou todas dá erro. Beth am ddatrysydd posso?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Como puedo usar este codigo para todo un taflen waith a dim unawd para una pestana?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi, Vero, Kutools ar gyfer Excel's Mae nodwedd Rhestr Gollwng Aml-ddewis yn suports dewis eitemau lluosog o'r rhestr ostwng yn y daflen waith gyfan neu ar draws llyfr gwaith, dim ond nodi'r Cwmpas Penodedig yn y Gosodiadau Rhestr Gollwng Aml-ddewis dialog.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut alla i wneud hynny ar gyfer y fformiwla ddwrn a ddarparwyd gennych :) Diolch yn uwch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bonjour,
selon le premier exemple tout fonctionne très bien jusqu'à ce que je verrouille la feuille.
quand la feuille est verrouillée, je n'ai plus le choix multiple !
sylw teg ?
Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'n ddrwg gennyf am hynny. Byddwn yn uwchraddio ein fersiwn nodwedd nesaf i osgoi'r broblem hon. Diolch i chi am eich adborth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
BCP diolch i chi
Fersiwn Mais à quand la nouvelle ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'r fersiwn newydd yn cael ei chynllunio, gan y bydd y fersiwn nesaf yn uwchraddio nodweddion lluosog, efallai y bydd yn cymryd peth amser.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rydym wedi diweddaru'r fersiwn hon i chi, ond fersiwn beta yw hwn, lawrlwythwch ef o hyn: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
Os oes unrhyw broblemau, croeso i chi gael eich adborth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch i chi,
Je vais la télécharger et essayer.
Journee Bonne
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'r cod yn gweithio ond ni fydd yn gadael i mi ddileu a all rhywun postio'r cod newydd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiera?

Enghraifft:
Mae'r testun ar gyfer y rhestri:
TRAMITAR ESTE ASUNTO
CYWYDD
ANALIZAR Y ARGYMHELLIAD

mae hi'n dewis:
TRAMITAR ESTE ASUNTO
ANALIZAR Y ARGYMHELLIAD

Mae'n ymddangos i mi
ANALIZAR Y ARGYMHELLIAD, TRAMITAR ESTE ASUNTO

o môr, los de abajo me aparecen primero, pero quiero que sea en el orden en que voy seleccionando...
TRAMITAR ESTE ASUNTO, ARGYMHELLIAD DADANSODDI.....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Gorgelys, gall rhestr ostwng aml-ddethol Kutools eich helpu chi. Bydd yr eitemau a ddewisoch yn y drefn fel y dymunwch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth am ddefnyddio hwyl a bloqueada planilha?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Macros, ceisiwch isod cod, mae'n cefnogi i ddewis eitemau lluosog yn y gwymplen yn y daflen warchodedig.
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next  
    xType = 0
    xType = Target.Validation.Type
    If xType <> 3 Then Exit Sub
    If (Target.Count > 1) 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

A hefyd Kutools ar gyfer Excel 26.1 a fersiynau diweddarach yn cefnogi'r swydd hon mewn taflen warchodedig.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL