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

Sut i greu gwymplen gyda blychau gwirio lluosog yn Excel?

Mae llawer o ddefnyddwyr Excel yn tueddu i greu gwymplen gyda blychau gwirio lluosog er mwyn dewis nifer o eitemau o'r rhestr bob tro. Mewn gwirionedd, ni allwch greu rhestr gyda blychau gwirio lluosog gyda Dilysu Data. Yn y tiwtorial hwn, rydyn ni'n mynd i ddangos dau ddull i chi greu gwymplen gyda blychau gwirio lluosog yn Excel.

Defnyddiwch Blwch Rhestr i greu rhestr ostwng gyda blychau gwirio lluosog
A: Creu blwch rhestr gyda data ffynhonnell
B: Enwch y gell y byddwch chi'n dod o hyd i'r eitemau a ddewiswyd
C: Mewnosod siâp i helpu i allbwn yr eitemau a ddewiswyd
Yn hawdd creu rhestr ostwng gyda blychau gwirio gydag offeryn anhygoel
Mwy o sesiynau tiwtorial ar gyfer y gwymplen ...


Defnyddiwch Blwch Rhestr i greu rhestr ostwng gyda blychau gwirio lluosog

Fel islaw'r screenshot a ddangosir, yn y daflen waith gyfredol, yr holl enwau yn ystod A2: A11 fydd data ffynhonnell y blwch rhestr. Gall cliciwch ar y botwm yng nghell C4 allbwn yr eitemau a ddewiswyd, a bydd yr holl eitemau a ddewiswyd yn y blwch rhestr yn cael eu harddangos yng nghell E4. I gyflawni hyn, gwnewch fel a ganlyn.

A. Creu blwch rhestr gyda data ffynhonnell

1. Cliciwch Datblygwr > Mewnosod > Blwch Rhestr (Rheoli X Gweithredol). Gweler y screenshot:

2. Lluniwch flwch rhestr yn y daflen waith gyfredol, cliciwch ar y dde ac yna dewiswch Eiddo o'r ddewislen clicio ar y dde.

3. Yn y Eiddo blwch deialog, mae angen i chi ffurfweddu fel a ganlyn.

  • 3.1 Yn y RhestrFillRage blwch, nodwch yr ystod ffynhonnell y byddwch chi'n ei harddangos yn y rhestr (dyma fi'n nodi'r ystod A2: A11);
  • 3.2 Yn y RhestrSteil blwch, dewiswch 1 - StyleOption fmList;
  • 3.3 Yn y Aml-ddewis blwch, dewiswch 1 - fmMultiSelectMulti;
  • 3.4 Caewch y Eiddo blwch deialog. Gweler y screenshot:

B: Enwch y gell y byddwch chi'n dod o hyd i'r eitemau a ddewiswyd

Os oes angen i chi allbwn yr holl eitemau a ddewiswyd i mewn i gell benodol fel E4, gwnewch fel a ganlyn.

1. Dewiswch y gell E4, nodwch Allbwn ListBox i mewn i'r Blwch Enw a gwasgwch y Rhowch allweddol.

C. Mewnosod siâp i helpu i allbwn yr eitemau a ddewiswyd

1. Cliciwch Mewnosod > Siapiau > Petryal. Gweler y screenshot:

2. Tynnwch betryal yn eich taflen waith (dyma fi'n llunio'r petryal yng nghell C4). Yna cliciwch ar y dde ar y petryal a dewis Neilltuo Macro o'r ddewislen clicio ar y dde.

3. Yn y Neilltuo Macro blwch deialog, cliciwch y Newydd botwm.

4. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, disodli'r cod gwreiddiol yn y Modiwlau ffenestr gyda'r cod VBA isod.

Cod VBA: Creu rhestr gyda blychau gwirio lluosog

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

Nodyn: Yn y cod, Petryal1 yw enw'r siâp; RhestrBox1 yw enw'r blwch rhestr; Dewiswch Opsiynau ac Dewisiadau Pickup yw testunau arddangos y siâp; a'r Allbwn ListBox yw enw amrediad y gell allbwn. Gallwch eu newid yn seiliedig ar eich anghenion.

5. Gwasgwch Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

6. Bydd clic ar y botwm petryal yn plygu neu'n ehangu'r blwch rhestr. Pan fydd y blwch rhestr yn ehangu, gwiriwch yr eitemau yn y blwch rhestr, ac yna cliciwch y petryal eto i allbwn yr holl eitemau a ddewiswyd i gell E4. Gweler isod demo:

7. Ac yna arbedwch y llyfr gwaith fel Llyfr Gwaith Excel MacroEnable am ailddefnyddio'r cod yn y dyfodol.


Creu rhestr ostwng gyda blychau gwirio gydag offeryn anhygoel

Mae'r dull uchod yn rhy amlbwrpas i'w drin yn hawdd. Yma yn argymell yn fawr y Rhestr ostwng gyda Blychau Gwirio cyfleustodau Kutools ar gyfer Excel i'ch helpu chi i greu rhestr ostwng yn hawdd gyda blychau gwirio mewn ystod benodol, taflen waith gyfredol, llyfr gwaith cyfredol neu'r holl lyfrau gwaith a agorwyd yn seiliedig ar eich anghenion. Gweler y demo isod:
Dadlwythwch a rhowch gynnig arni nawr! (Llwybr 30 diwrnod am ddim)

Heblaw am y demo uchod, rydym hefyd yn darparu canllaw cam wrth gam i ddangos sut i gymhwyso'r nodwedd hon i gyflawni'r dasg hon. Gwnewch fel a ganlyn.

1. Agorwch y daflen waith rydych chi wedi'i gosod yn y gwymplen dilysu data, cliciwch Kutools > Rhestr Gollwng > Rhestr ostwng gyda Blychau Gwirio > Gosodiadau. Gweler y screenshot:

2. Yn y Rhestr Gollwng Ffraethineb Gosodiadau Blychau Gwirio blwch deialog, ffurfweddwch fel a ganlyn.

  • 2.1) Yn y Gwnewch gais i adran, nodwch y cwmpas ymgeisio lle byddwch chi'n creu blychau gwirio ar gyfer eitemau ar y gwymplen. Gallwch chi nodi a ystod benodol, taflen waith gyfredol, llyfr gwaith cyfredol or pob llyfr gwaith wedi'i agor yn seiliedig ar eich anghenion.
  • 2.2) Yn y modd adran, dewiswch arddull rydych chi am allbwn yr eitemau a ddewiswyd;
  • Yma yn cymryd y Addasu opsiwn fel enghraifft, os dewiswch hyn, bydd gwerth y gell yn cael ei newid yn seiliedig ar yr eitemau a ddewiswyd.
  • 2.3) Yn y gwahanydd blwch, nodwch amffinydd y byddwch chi'n ei ddefnyddio i wahanu'r eitemau lluosog;
  • 2.4) Yn y Cyfeiriad Testun adran, dewiswch gyfeiriad testun yn seiliedig ar eich anghenion;
  • 2.5) Cliciwch y OK botwm.

3. Y cam olaf, cliciwch Kutools > Rhestr Gollwng > Rhestr ostwng gyda Blychau Gwirio > Galluogi Rhestr Gollwng o flychau gwirio i actifadu'r nodwedd hon.

O hyn ymlaen, pan gliciwch y celloedd gyda gwymplen mewn cwmpas penodol, bydd blwch rhestr yn ymddangos, dewiswch eitemau trwy wirio'r blychau gwirio i'w hallbwn i'r gell fel y dangosir isod (Cymerwch y modd Newid fel enghraifft ).

Am fwy o fanylion am y nodwedd hon, ewch yma.

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Erthyglau cysylltiedig:

Yn awtomataidd wrth deipio rhestr ostwng Excel
Os oes gennych chi gwymplen dilysu data gyda gwerthoedd mawr, mae angen i chi sgrolio i lawr yn y rhestr dim ond er mwyn dod o hyd i'r un iawn, neu deipio'r gair cyfan yn y blwch rhestr yn uniongyrchol. Os oes dull ar gyfer caniatáu i gwblhau auto wrth deipio'r llythyren gyntaf yn y gwymplen, bydd popeth yn dod yn haws. Mae'r tiwtorial hwn yn darparu'r dull i ddatrys y broblem.

Creu rhestr ostwng o lyfr gwaith arall yn Excel
Mae'n eithaf hawdd creu gwymplen dilysu data ymhlith taflenni gwaith mewn llyfr gwaith. Ond os yw'r data rhestr sydd ei angen arnoch ar gyfer dilysu'r data yn lleoli mewn llyfr gwaith arall, beth fyddech chi'n ei wneud? Yn y tiwtorial hwn, byddwch yn dysgu sut i greu rhestr gollwng o lyfr gwaith arall yn Excel yn fanwl.

Creu rhestr ostwng y gellir ei chwilio yn Excel
Ar gyfer rhestr ostwng sydd â nifer o werthoedd, nid yw dod o hyd i un iawn yn waith hawdd. Yn flaenorol rydym wedi cyflwyno dull o gwblhau rhestr ostwng yn awtomatig wrth nodi'r llythyr cyntaf yn y gwymplen. Heblaw am y swyddogaeth awtocomplete, gallwch hefyd wneud y rhestr ostwng yn chwiliadwy am wella'r effeithlonrwydd gweithio wrth ddod o hyd i werthoedd cywir yn y gwymplen. Ar gyfer chwilio rhestr ostwng, rhowch gynnig ar y dull yn y tiwtorial hwn.

Auto poblogi celloedd eraill wrth ddewis gwerthoedd yn rhestr ostwng Excel
Gadewch i ni ddweud eich bod wedi creu rhestr ostwng yn seiliedig ar y gwerthoedd yn ystod celloedd B8: B14. Pan ddewiswch unrhyw werth yn y gwymplen, rydych chi am i'r gwerthoedd cyfatebol yn ystod celloedd C8: C14 gael eu poblogi'n awtomatig mewn cell ddethol. Ar gyfer datrys y broblem, bydd y dulliau yn y tiwtorial hwn yn ffafrio chi.

Mwy o sesiynau tiwtorial ar gyfer y gwymplen ...


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 (67)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn ffantastig. Ond bydd yn well os gellir gosod yr amlddewis lle mae'r cyrchwr yn weithredol. Nid o reidrwydd yr hyn y mae'r cod yn ei nodi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma'r union beth rydw i wedi bod yn chwilio amdano, a ellir addasu'r cod i ganiatáu i'r data a ddewiswyd arddangos mewn celloedd ar wahân i lawr y golofn? felly yn lle: Llun, Mawrth, Mercher, arddangos fel. Dydd Llun Dydd Mawrth Dydd Mercher
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma'r union beth rydw i wedi bod yn edrych amdano, a oes yna addasiad i'r cod a fydd yn rhoi'r dewis nesaf o'r blwch rhestr yn y llinell nesaf. ar gyfer ee un dau tri Yn lle : un, dau, tri
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a allwch chi esbonio sut rydych chi wedi ychwanegu ListBoxOutput ar gell E4
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Sut all gopïo'r blwch rhestr hwn ar gyfer aml-gelloedd. Nid yw copïo a gludo yn gweithio. A allech chi esbonio er enghraifft ym mhob cell (E5, E6, E7, E8,...) sut alla i roi'r blwch dewis hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a allech chi egluro sut y gallaf gopïo'r blwch rhestr hwn yn hawdd ar gyfer 100 rhes? (blychau rhestr ar wahân ar gyfer pob un o'r 100 rhes)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Unwaith y bydd yr allbwn wedi'i wneud a gwasgwch y botwm eto, ni ellir newid yr eitemau blaenorol a ddewiswyd yn y blwch rhestr. Sut i ddatrys?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Mae'n wych ac mae'n gweithio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n newbie i hwn ond a all unrhyw un ddweud wrthyf sut i greu ListBox amlddewis a fydd yn agor, ee, pan fyddaf yn dewis enw. Rwyf am i'r blwch rhestr ffitio i mewn i sengl.
ENGHRAIFFT: Mae gen i restr o enwau gyda gwybodaeth gyswllt, ac ati. Rwyf am greu Listbox dyblyg ar gyfer pob enw yn fy rhestr. Hoffwn iddo agor yn awtomatig pan fyddaf yn dewis enw ac yn cwympo yn ôl i'r gell pan fyddaf yn mynd i res arall o wybodaeth. Rhowch wybod. Diolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Randy,
Mae'n ddrwg gennym ni all ddatrys y probem hwn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio'n berffaith yn unol â'r cyfarwyddiadau, Fodd bynnag, os byddaf yn amddiffyn y daflen mae'n ei roi a gwall. Unrhyw ateb i hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithio'n berffaith yn unol â'r Cyfarwyddiadau. Ond, Sut alla i ddefnyddio hwn ar ddalen Warchodedig. Ar hyn o bryd Os byddaf yn defnyddio hwn ar ôl diogelu'r ddalen Mae'n rhoi i mi a gwall "Gwall amser rhedeg '-2147024809 (80070057)': Mae'r Gwerth Penodedig allan o Ystod"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Amit Sood,
Cyn amddiffyn y daflen waith, fformatiwch y gell Allbwn fel un sydd wedi'i datgloi ac yna cymhwyso'r cod VBA isod. Diolch i chi am eich sylw.

Is-Betryal2_Cliciwch()
Dim xSelShp Fel Siâp, xSelLst Fel Amrywiad, I Fel Cyfanrif
Ar Ail-ddechrau Gwall Nesaf
Gosod xSelShp = ActiveSheet.Shapes(Application.Caller)
Gosod xLstBox = ActiveSheet.ListBox1
Os xLstBox.Visible = Gau Yna
xLstBox.Visible = Gwir
xSelShp.TextFrame2.TextRange.Characters.Text = "Dewisiadau Codi"
arall
xLstBox.Visible = Gau
xSelShp.TextFrame2.TextRange.Characters.Text = "Dewis Opsiynau"
Ar gyfer I = xLstBox.ListCount - 1 I 0 Cam -1
Os yw xLstBox.Selected(I) = Gwir Yna
xSelLst = xLstBox.List(I) & ";" &xSelLst
Gorffennwch Os
Nesaf i
Os xSelLst <>"" Yna
Ystod ("ListBoxOutput") = Canol(xSelLst, 1, Len(xSelLst) - 1)
arall
Ystod ("ListBoxOutput") = ""
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
msgstr "Rwyf wedi creu ffeil gan ddefnyddio blwch rhestr ActiveX fel yr eglurir, rwyf wedi mewnbynnu rhywfaint o ddata ac ychwanegu rhai eiddo hefyd. Rwyf wedi gwirio peth data gan ddefnyddio'r blwch ticio yn y rhestr, ac wedi cadw ac ymadael o'r ffeil. Ond er ail-agor y ffeil nid yw'n dangos unrhyw ddata wedi'u gwirio...a all unrhyw un roi awgrym i mi arbed y diweddariadau hynny."
A all unrhyw un fy helpu os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Rhowch y cod VBA isod yn ffenestr cod ThisWorkbook.
Yn y cod, Sheet6 yw enw rhagosodedig y daflen waith sy'n cynnwys y Blwch Rhestr rydych chi am gadw'r detholiadau fel y dangosir y sgrin isod. A ListBox1 yw enw'r blwch rhestr. Newidiwch nhw yn ôl yr angen.

Is Gweithlyfr Preifat_Cyn Arbed(ByVal SaveAsUI Fel Boole, Canslo Fel Boole)
Ffoniwch SaveSelections
Is-End

Is-lyfr gwaith preifat_Agored()
Ffoniwch RestoreSelections
Is-End

Is-ddewisiadau arbed preifat()

Dim arr() Fel Amrywiad, i Cyn Hir, j Cyhyd

Gyda Sheet6.OLEOobjects("ListBox1").Gwrthrych
Os .ListIndex > 0 Yna
Am i = 0 I .ListCount - 1
Os .Selected(i) Yna
j = j + 1
ReDim Cadw arr(1 I j)
arr(j) = i
Gorffennwch Os
Digwyddiadau
Enwau.Ychwanegu Enw:="Detholiadau", RefersTo:=arr, Gweladwy:=Gau
Gorffennwch Os
Diwedd Gyda

Is-End

Dewisiadau Is-Adfer Preifat()

Dim arr Fel Amrywiad, i Fel Cyfanrif

arr = [Detholiadau]

Gyda Sheet6.OLEOobjects("ListBox1").Gwrthrych
Ar gyfer i = 1 I UBound(arr)
.Selected(arr(i)) = Gwir
Digwyddiadau
Diwedd Gyda

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch i chi am yr ateb syr, ond nid yw'n gweithio yn achos fy ffeil, a allwch chi anfon eich post id, fel y gallaf bostio fy ffeil atoch.
Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl manjusha isac,
Anfonwch eich ffeil i zxm@addin99.com. Gobeithio y gallaf helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar ben hynny, mae angen i chi arbed y llyfr gwaith fel Llyfr Gwaith Macro-alluogi Excel, ac actifadu'r cod bob tro y byddwch chi'n newid dewisiadau'r blwch rhestr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am ddiweddaru enwau yn awtomatig mewn gwahanol golofnau. a yw'n bosibl, os yn bosibl, yn garedig â rhannu'r cod i mi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ANHYGOEL ei fod yn gweithio ond ar ôl cau'r excel a'i agor eto mae'r siec o'r blwch ticio wedi mynd felly os byddaf yn clicio ar y botwm bydd yr holl restr wedi mynd unrhyw ateb ar gyfer hyn
os gwelwch yn dda rhywun yn fy helpu
Diolch yn fawr yn uwch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Angel,
Rydym wedi cyhoeddi erthygl "Sut i gadw neu gadw detholiadau o flychau rhestr ActiveX yn Excel?" sy'n cyflwyno dull o arbed y detholiad o flychau rhestr ar ôl cau ac ailagor y llyfr gwaith.
Gallwch ddilyn y ddolen hon i gael rhagor o wybodaeth: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n anhygoel ei fod yn gweithio ond mae gennyf un mater ar ôl i mi gadw'r ffeil a'i hagor eto mae'r siec i gyd o'r rhestr blychau ticio i gyd wedi mynd
allwch chi fy helpu i wneud hyn diolch yn fawr iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hefyd, mae'n newid maint y blwch rhestr a siâp bob amser ar ôl cadw ac agor eto y ffeil os oes gan rywun ateb ar gyfer y mater hwn os gwelwch yn dda fy helpu

ddiolch 'ch ogystal
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl farc,
Rydym wedi cyhoeddi erthygl "Sut i gadw neu gadw detholiadau o flychau rhestr ActiveX yn Excel?" sy'n cyflwyno dull o arbed y detholiad o flychau rhestr ar ôl cau ac ailagor y llyfr gwaith.
Gallwch ddilyn y ddolen hon i gael rhagor o wybodaeth: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

Yr wyf yn meddwl tybed a oes ffordd i gyfeirio'r opsiynau codi i fwy nag un gell (nid dim ond E4), neu wneud y dewisiadau yn gwymplen fel y gallaf ddewis opsiynau lluosog oddi ar restr wirio, ond gwneud hynny dro ar ôl tro ac yn annibynnol ar y dewisiadau eraill rydw i wedi'u gwneud. Er enghraifft, sut fyddwn i'n mynd ati i ddefnyddio'r un rhestr o opsiynau codi i fewnbynnu detholiad gwahanol o eitemau i E5, E6, E7, ac ati o'r un rhestr codi.

Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo LizKats,
Rhowch gynnig ar y cod isod. Gobeithio y gallaf helpu. Diolch.

Is-Betryal2_Cliciwch()

'Diweddarwyd gan Extendoffice 20200529

Dim xSelShp Fel Siâp, xSelLst Fel Amrywiad, i Fel Cyfanrif

Gosod xSelShp = ActiveSheet.Shapes(Application.Caller)

Gosod xLstBox = ActiveSheet.ListBox1

Dim xRg Fel Ystod

Dim xCount, xFNum, xR, xC Fel Cyfanrif

Dim xStr Fel Llinyn

Os xLstBox.Visible = Gau Yna

xLstBox.Visible = Gwir

xSelShp.TextFrame2.TextRange.Characters.Text = "Dewisiadau Codi"

arall

xLstBox.Visible = Gau

xSelShp.TextFrame2.TextRange.Characters.Text = "Dewis Opsiynau"

Gosod xRg = Ystod ("ListBoxOutput")

xCount = xLstBox.ListCount - 1

xStr=""

Ar gyfer i = xLstBox.ListCount - 1 I 0 Cam -1

Os yw xLstBox.Selected(i) = Gwir Yna

xStr = xLstBox.List(i) & ";" & xStr

Gorffennwch Os

Nesaf i



Os xRg.Value = "" Yna

xRg.Value = xStr

arall

Gosod xRg = xRg.Offset(1, 0)

Gwnewch Tra xRg.Value <> ""

Gosod xRg = xRg.Offset(1, 0)

dolen

xRg.Value = xStr

Gorffennwch Os

Gorffennwch Os

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio'n iawn, diolch yn fawr am eich help. Mae gen i un mater yma yw bod yr holl allbwn yn dod yn yr un gell E4, sut allwn ni gael yr allbwn mewn gwahanol gelloedd ee: allbwn ar gyfer C4 yn E4, C5 yn E5, C6 yn E6 ac ati.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Ni ellir datrys y broblem a grybwyllwyd gennych eto.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ystyr geiriau: Dod o hyd! Прошу помочь.
Как сделать так чтобы каждое значение выходило на новой клетке? чтобы по выходило по вертикали?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
HELP!!! sut allbwn mewn ystodau gwahanol (yn fertigol)?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-Betryal2_Cliciwch()
'Diweddarwyd gan Extendoffice 20190924
Dim xSelShp Fel Siâp, xSelLst Fel Amrywiad, I Fel Cyfanrif
Dim xRg Fel Ystod
Gosod xSelShp = ActiveSheet.Shapes(Application.Caller)
Gosod xLstBox = ActiveSheet.ListBox1
Os xLstBox.Visible = Gau Yna
xLstBox.Visible = Gwir
xSelShp.TextFrame2.TextRange.Characters.Text = "Dewisiadau Codi"
arall
xLstBox.Visible = Gau
xSelShp.TextFrame2.TextRange.Characters.Text = "Dewis Opsiynau"
Gosod xRg = Ystod ("ListBoxOutput")
Ar gyfer I = 0 I xLstBox.ListCount - 1
Os yw xLstBox.Selected(I) = Gwir Yna
xSelLst = xLstBox.List(I)
xRg.Value = Canol(xSelLst, 1, Len(xSelLst))
Gosod xRg = xRg.Offset(1, 0)
Gorffennwch Os
Nesaf i
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth am replicar éste ejercicio en las filas inferiores ?
Sut alla i ailadrodd yr ymarfer hwn yn y rhesi isod?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir