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

Conas il-earraí a roghnú ón liosta anuas i gcill in Excel?

Úsáidtear an liosta anuas go minic in obair laethúil Excel. De réir réamhshocraithe, ní féidir ach mír amháin a roghnú ar liosta anuas. Ach i roinnt uaireanta, b’fhéidir go mbeidh ort míreanna iolracha a roghnú ón liosta anuas in aon chill amháin mar atá thíos an pictiúr a thaispeántar. Conas is féidir leat é a láimhseáil in Excel?

roghnaigh doc míreanna éagsúla ón liosta anuas 1 saighead doc ar dheis roghnaigh doc míreanna éagsúla ón liosta anuas 2

Roghnaigh míreanna iolracha ón liosta anuas i gcill le VBA

Roghnaigh míreanna iomadúla ón liosta anuas i gcillín le Kutools le haghaidh rogha áisiúil Excel


Roghnaigh míreanna iolracha ón liosta anuas i gcill le VBA

Seo roinnt is féidir le VBA fabhar a dhéanamh duit maidir leis an bpost seo a réiteach.

Roghnaigh míreanna dúblacha ón liosta anuas i gcill

1. Tar éis liosta anuas a chruthú, cliceáil ar dheis ag an táb bileog chun roghnú Féach an cód ón roghchlár comhthéacs.
roghnaigh doc míreanna éagsúla ón liosta anuas 3

2. Ansin sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh faoin gcód leis an script bán.

VBA: Roghnaigh míreanna iolracha ón liosta anuas i gcill

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. Sábháil an cód agus dún an fhuinneog chun dul ar ais chuig an liosta anuas. Anois is féidir leat míreanna iomadúla a roghnú ón liosta anuas.

Tabhair faoi deara:

1. Leis an VBA, scarann ​​sé na míreanna de réir spáis, is féidir leat athrú xStrNew = xStrNew & "" & Target.Value do dhaoine eile an teorantóir a athrú de réir mar is gá duit. Mar shampla, xStrNew = xStrNew & "," & Target.Value déanfaidh sé na míreanna a scaradh le camóga.

2. Oibríonn an cód VBA seo do gach liosta anuas ar an mbileog.

Roghnaigh míreanna iomadúla ón liosta anuas go cill gan athdhéanamh

Mura dteastaíonn uait ach míreanna uathúla a roghnú ón liosta anuas go cill, is féidir leat na céimeanna thuas a athdhéanamh agus an cód thíos a úsáid.

VBA : Roghnaigh míreanna iolracha ón liosta anuas go cill gan athdhéanamh

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

Níl an dá chód VBA thuas suppot chun codanna d'ábhar cille a scriosadh, gan ach tacaíocht chun gach mír den chill a ghlanadh.


Roghnaigh míreanna iomadúla ón liosta anuas i gcillín le Kutools le haghaidh rogha áisiúil Excel

Mura bhfuil tú eolach ar chód VBA, is féidir leat suiteáil saor in aisce uirlis áisiúil - Kutools le haghaidh Excel, ina bhfuil grúpa fóntais faoin liosta anuas, agus tá rogha ann Liosta anuas ilroghnacha is féidir leis cabhrú leat go leor míreanna a roghnú ón liosta anuas i gcill.

Tar éis duit an liosta anuas a chruthú, roghnaigh cealla an liosta anuas agus cliceáil le do thoil Kutools > Liosta anuas > Liosta anuas ilroghnacha chun an fóntais seo a chumasú.
doc kutools multi roghnaigh liosta anuas 1

Ansin is féidir na cealla liosta anuas roghnaithe míreanna éagsúla a roghnú isteach sa chill.

Má úsáideann tú an rogha seo ar an gcéad uair, is féidir leat socruithe na fóntais seo a shonrú de réir mar a theastaíonn uait sula gcuirfidh tú an fóntais seo i bhfeidhm.

cliceáil Kutools > Liosta anuas > an tsaighead in aice leis Liosta anuas ilroghnacha > Socruithe.
doc kutools multi roghnaigh liosta anuas 2

Ansin sa Socruithe Liosta anuas Ilroghnacha dialóg, is féidir leat

1) Sonraigh an scóip iarratais de réir mar a theastaíonn uait;

2) Sonraigh treo na n-ítimí áit;

3) Sonraigh an deighilteoir idir earraí;

4) Sonraigh mura gcuireann tú dúbailtí agus bain míreanna dúblacha.

cliceáil Ok agus cliceáil Kutools > Liosta anuas > Liosta anuas ilroghnacha é a chur i bhfeidhm.

Leid: Chun an Liosta anuas ilroghnacha fóntais, ní mór duit shuiteáil é ar dtús. Más mian leat liosta anuas a chruthú le leibhéil iolracha, b’fhéidir go gcabhróidh an fóntais thíos leat.

Cruthaigh go héasca liosta anuas dinimiciúil spleách 2-leibhéal nó il-leibhéal in Excel

In Excel, tá sé casta liosta anuas 2-leibhéal nó il-leibhéal a chruthú. Seo an Liosta anuas dinimiciúil fóntais de Kutools le haghaidh Excel an féidir leat fabhar a dhéanamh. Níl le déanamh agat ach na sonraí a ordú mar a thaispeántar mar shampla, ansin roghnaigh an raon sonraí agus an raon aschuir, ansin fág faoin bhfóntas iad.  Cliceáil le haghaidh 30 lá triail saor in aisce!
doc chun cinn sraitheanna a chur le chéile
 
Kutools le haghaidh Excel: le níos mó ná 300 breiseán handy Excel, saor in aisce chun iarracht a dhéanamh gan aon teorainn i 30 lá.

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (26)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tar éis cur leis, na sonraí ó anuas, scrios ní oibríonn.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fuair ​​​​mé an cheist chéanna. Sílim go bhfuair mé bealach chun é a shárú. Ag bun an chóid feicfidh tú an cód "xStrNew = xStrOld". Ina ionad sin, cuir in iúl é xStrNew = " "

Oibríonn sé dom.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Seans ar bith go bhfuil an cód seo agat fós? Tá mé ag iarraidh an méid a dúirt tú a dhéanamh ach tá dúbailt ar an téacs fós.
Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá brón orm ach ní féidir liom. Mar sin féin, níor fhéach mé ach ar an gcód thuas agus is cosúil gur chuir an t-údar an cód in eagar le mo mholadh.

postáil do cheist ar phríomhshnáithe an ailt seo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
sa chéad chód cuir an líne seo a leanas idir líne 6 agus 7 (10-11 sa dara cód): If Target.Value="" Ansin Scoir Fo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'úsáid mé é seo "Roghnaigh go leor míreanna ón liosta anuas go dtí cill gan athrá"
seo cad a tharla
1. Tarlaíonn roghanna iomadúla gan fadhbanna.
2. Is í an cheist nuair a iarracht mé a chur in eagar agus a bhaint rogha. Níl aon bhealach ann dom rogha a bhaint. coinníonn sé ag méadú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a chuirfeá an fheidhm seo i bhfeidhm ach í a dhéanamh ionas nach mbeidh luachanna iomarcacha ann? Bheifí buíoch as aon chabhair!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Má chruthaím bileog le liosta anuas ag baint úsáide as ticbhoscaí, an bhfuil bealach ann chun an leabhar oibre seo a roinnt leis an ngné ticbhoscaí seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Táim ag fáil amach freisin, tar éis il-ítimí a roghnú ag baint úsáide as an gcód VBA nuashonraithe, nach féidir liom an chill a ghlanadh go fóill, ní leanann sé ach ag méadú.
An bhfuil réiteach ag éinne air seo fós?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Rusty, an cód a nuashonraigh mé chun é a dhéanamh níos cobhsaí. Ach toisc go bhfuil an chill i mbailíochtú sonraí, níl aon fholamh as bailíochtú sonraí, ní féidir leis an gcód an fhadhb seo a réiteach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
oibríonn an cód ach iompraíonn sé trasna na gcillíní go léir agus iolraíonn sé sna cealla agus ní cheadaíonn sé é a scriosadh an féidir leat cabhrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Quando quero deletar alguma opção ou todas dá earráid. Conas a réiteach posso?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh! Cén chaoi a bhfuil tú ag iarraidh an cód a úsáid le haghaidh bileog oibre agus aon duine aonair?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi, Vero, Kutools le haghaidh Excel's Suports Il-roghnaithe Liosta Drop-síos gné a roghnú míreanna iomadúla ó liosta anuas sa bhileog oibre iomlán nó trasna leabhar oibre, ach sonraigh an Scóip Sonraithe sa Il-roghnaigh Socruithe Liosta titim síos dialóg.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom é sin a dhéanamh don fhoirmle dorn a chuir tú ar fáil :) Go raibh maith agat roimh ré!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bonjour,
selon le premier exemple tout fonctionne très bien jusqu'à ce je verrouille la feuille.
quand la feuille est verroulée, je n'ai plus le choix multiple !
conas a dhéanamh?
go raibh maith agat roimh ré
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, leithscéal as sin. Déanfaimid an chéad leagan eile den ghné againn a uasghrádú chun an fhadhb seo a sheachaint. Go raibh maith agat as do chuid feekback.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
BCP go raibh maith agat
Mais à quand la nouvelle version ?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá an leagan nua á phleanáil, ós rud é go n-uasghrádóidh an chéad leagan eile gnéithe éagsúla, seans go dtógfaidh sé roinnt ama.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá an leagan seo nuashonraithe againn duit, ach is leagan béite é seo, le do thoil íoslódáil ó seo: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
Má tá aon fhadhb agat, fáilte roimh do chuid aiseolais.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh maith agat,
Is féidir é a íoslódáil agus aistí.
Bonne journée
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
oibríonn an cód ach ní ligfidh sé dom a scriosadh an féidir le duine éigin an cód nua a phostáil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
¿Cómo puedo hacer para el orden en que se coloque el texto, sea tan cuál mar yo quiera?

Sampla:
Tá an téacs le haghaidh na liostaí:
TRAMITAR ESTE ASUNTO
COORDINAR
MOLADH ANALIZAR

tá rogha aici:
TRAMITAR ESTE ASUNTO
MOLADH ANALIZAR

Feictear dom
MOLADH AN ANAILÍSE, TRAMITAR ESTE ASUNTO

o sea, los de abajo me aparecen primero, pero quiero que sea en el orden en voy voy seleccionando...
TRAMITAR ESTE ASUNTO, ANALIZAR MOLTAÍ...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Gorgelys, is féidir le liosta anuas ilroghnaithe Kutools cabhrú leat. Beidh na míreanna a roghnaigh tú san ord mar is mian leat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir leat úsáid a bhaint as função com a planilha bloqueada?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Macraí, bain triail as an gcód thíos, tacaíonn sé le míreanna il a roghnú sa liosta anuas sa bhileog chosanta.
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

Agus freisin Kutools le haghaidh Excel Tacaíonn 26.1 agus leaganacha níos déanaí leis an bpost seo i mbileog chosanta.
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL