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

Cum se creează o listă derulantă cu mai multe casete de selectare în Excel?

Mulți utilizatori Excel tind să creeze o listă derulantă cu mai multe casete de selectare pentru a selecta mai multe articole din listă de fiecare dată. De fapt, nu puteți crea o listă cu mai multe casete de selectare cu validare date. În acest tutorial, vă vom arăta două metode pentru a crea o listă derulantă cu mai multe casete de selectare în Excel.

Utilizați Casetă listă pentru a crea o listă verticală cu mai multe casete de selectare
R: Creați o casetă listă cu date sursă
B: Denumiți celula în care veți localiza elementele selectate
C: Introduceți o formă pentru a ajuta la afișarea elementelor selectate
Creați cu ușurință o listă verticală cu casete de selectare cu un instrument uimitor
Mai multe tutoriale pentru lista derulantă ...


Utilizați Casetă listă pentru a crea o listă verticală cu mai multe casete de selectare

După cum se arată mai jos, în foaia de lucru curentă, toate numele din intervalul A2: A11 vor fi datele sursă ale listei. Faceți clic pe butonul din celula C4 pentru a afișa elementele selectate, iar toate elementele selectate în caseta de listă vor fi afișate în celula E4. Pentru a realiza acest lucru, vă rugăm să faceți următoarele.

A. Creați o casetă listă cu date sursă

1. clic Dezvoltator > Insera > Casetă listă (Active X Control). Vedeți captura de ecran:

2. Desenați o casetă listă în foaia de lucru curentă, faceți clic dreapta pe ea și apoi selectați Proprietăţi din meniul cu clic dreapta.

3. În Proprietăţi casetă de dialog, trebuie să configurați după cum urmează.

  • 3.1 În ListFillRange , introduceți intervalul sursă pe care îl veți afișa în listă (aici introduc intervalul A2: A11);
  • 3.2 În ListStyle selectați 1 - fmList StyleOption;
  • 3.3 În Selectare multipla selectați 1 - fmMultiSelectMulti;
  • 3.4 Închideți Proprietăţi căsuță de dialog. Vedeți captura de ecran:

B: Denumiți celula în care veți localiza elementele selectate

Dacă trebuie să trimiteți toate elementele selectate într-o celulă specificată, cum ar fi E4, vă rugăm să procedați după cum urmează.

1. Selectați celula E4, introduceți ListBoxOutput în Cutie de nume și apăsați tasta Intrați cheie.

C. Introduceți o formă pentru a ajuta la afișarea elementelor selectate

1. clic Insera > Forme > Dreptunghi. Vedeți captura de ecran:

2. Desenați un dreptunghi în foaia de lucru (aici desenez dreptunghiul din celula C4). Apoi faceți clic dreapta pe dreptunghi și selectați Atribuiți macro din meniul cu clic dreapta.

3. În Atribuiți macro , faceți clic pe Nou butonul.

4. În deschidere Microsoft Visual Basic pentru aplicații fereastra, înlocuiți codul original din Module fereastra cu codul VBA de mai jos.

Cod VBA: creați o listă cu mai multe casete de selectare

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

Notă: În cod, Dreptunghi1 este numele formei; ListBox1 este numele casetei de listă; Selectati optiunile și Opțiuni de preluare sunt textele afișate ale formei; si ListBoxOutput este numele intervalului celulei de ieșire. Le puteți schimba în funcție de nevoile dvs.

5. presa Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

6. Faceți clic pe butonul dreptunghiular va plia sau extinde caseta listă. Când caseta de listă se extinde, bifând articolele din caseta de listă, apoi faceți clic din nou pe dreptunghi pentru a afișa toate elementele selectate în celula E4. Vedeți mai jos demonstrația:

7. Și apoi salvați registrul de lucru ca Cartea de lucru Excel MacroEnable pentru refolosirea codului în viitor.


Creați o listă verticală cu casete de selectare cu un instrument uimitor

Metoda de mai sus este prea multistep pentru a fi ușor de manipulat. Aici recomandăm cu tărie Listă derulantă cu casete de selectare utilitatea Kutools pentru Excel pentru a vă ajuta să creați cu ușurință o listă verticală cu casete de selectare într-un interval specificat, foaia de lucru curentă, registrul de lucru curent sau toate registrele de lucru deschise în funcție de nevoile dvs. Vedeți demo-ul de mai jos:
Descărcați și încercați acum! (30- traseu liber de o zi)

Pe lângă demonstrația de mai sus, oferim și un ghid pas cu pas pentru a demonstra cum să aplicați această caracteristică pentru a realiza această sarcină. Vă rugăm să faceți următoarele.

1. Deschideți foaia de lucru pe care ați setat lista verticală de validare a datelor, faceți clic pe Kutools > Lista verticală > Listă derulantă cu casete de selectare > Setări. Vedeți captura de ecran:

2. În Listă derulantă cu setările casetelor de selectare casetă de dialog, vă rugăm să configurați după cum urmează.

  • 2.1) În Aplica pentru secțiunea, specificați domeniul de aplicare în care veți crea casete de selectare pentru elementele din lista derulantă. Puteți specifica un anumită gamă, foaia de lucru curentă, registrul de lucru curent or toate registrele de lucru deschise în funcție de nevoile dumneavoastră.
  • 2.2) În mod secțiunea, alegeți un stil pe care doriți să-l scoateți în evidență elementele selectate;
  • Aici ia Modifica opțiune ca exemplu, dacă alegeți acest lucru, valoarea celulei va fi modificată pe baza elementelor selectate.
  • 2.3) În Separator caseta, introduceți un delimitator pe care îl veți utiliza pentru a separa mai multe elemente;
  • 2.4) În Direcția textului secțiune, selectați o direcție de text în funcție de nevoile dvs.;
  • 2.5) Faceți clic pe OK butonul.

3. Ultimul pas, faceți clic pe Kutools > Lista verticală > Listă derulantă cu casete de selectare > Activați lista drop-down a casetelor de selectare pentru a activa această caracteristică.

De acum înainte, când faceți clic pe celulele cu lista derulantă într-un domeniu de aplicare specificat, va apărea o casetă listă, selectați elementele bifând casetele de selectare pentru a ieși în celulă, așa cum se arată în demonstrația de mai jos (Luați modul de modificare ca exemplu ).

Pentru mai multe detalii despre această caracteristică, vă rugăm să vizitați aici.

  Dacă doriți să aveți o încercare gratuită (30-zi) a acestei utilitati, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Legate de articole:

Completați automat când tastați în lista verticală Excel
Dacă aveți o listă derulantă de validare a datelor cu valori mari, trebuie să derulați în jos în listă doar pentru a o găsi pe cea potrivită sau să tastați întregul cuvânt direct în caseta de listă. Dacă există o metodă pentru a permite completarea automată la introducerea primei litere din lista derulantă, totul va deveni mai ușor. Acest tutorial oferă metoda de rezolvare a problemei.

Creați o listă verticală dintr-un alt registru de lucru în Excel
Este destul de ușor să creați o listă verticală de validare a datelor printre foile de lucru dintr-un registru de lucru. Dar dacă datele listei de care aveți nevoie pentru validarea datelor se află într-un alt registru de lucru, ce ați face? În acest tutorial, veți afla cum să creați o listă de eliminare dintr-un alt registru de lucru în Excel în detalii.

Creați o listă drop-down căutabilă în Excel
Pentru o listă verticală cu numeroase valori, găsirea unuia corect nu este o lucrare ușoară. Anterior, am introdus o metodă de completare automată a listei derulante atunci când introduceți prima literă în caseta derulantă. Pe lângă funcția de completare automată, puteți face ca lista derulantă să poată fi căutată pentru îmbunătățirea eficienței de lucru în găsirea valorilor corespunzătoare în lista derulantă. Pentru ca lista derulantă să poată fi căutată, încercați metoda din acest tutorial.

Completați automat alte celule atunci când selectați valorile din lista verticală Excel
Să presupunem că ați creat o listă derulantă pe baza valorilor din intervalul de celule B8: B14. Când selectați orice valoare din lista derulantă, doriți ca valorile corespunzătoare din intervalul de celule C8: C14 să fie populate automat într-o celulă selectată. Pentru rezolvarea problemei, metodele din acest tutorial vă vor face o favoare.

Mai multe tutoriale pentru lista derulantă ...


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (70)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Asta este fantastic. Dar va fi mai bine dacă selecția multiplă poate fi plasată acolo unde este activ cursorul. Nu neapărat ceea ce specifică codul.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acesta este exact ceea ce am căutat, poate fi modificat codul pentru a permite datelor selectate să se afișeze în celule separate în josul coloanei? deci în loc de: luni, marți, miercuri, afișați ca. luni marti miercuri
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acesta este exact ceea ce am căutat, există o modificare a codului care va pune următoarea selecție din caseta de listă în linia următoare. de ex. unu doi trei În loc de: unu, doi, trei
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă rugăm să explicați cum ați adăugat ListBoxOutput pe celula E4
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Cum se poate copia această listă pentru mai multe celule. Doar copiați și lipiți nu funcționează. Ați putea explica, de exemplu, în fiecare celulă (E5, E6, E7, E8,...) cum pot pune această casetă de selecție?
Acest comentariu a fost redus la minimum de moderatorul de pe site
ați putea explica vă rog cum pot copia cu ușurință această listă pentru 100 de rânduri? (casete cu listă separate pentru fiecare dintre cele 100 de rânduri)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Odată ce ieșirea este finalizată și apăsați din nou butonul, elementele selectate anterior din caseta de listă nu pot fi modificate. Cum se rezolvă?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc! Este grozav și funcționează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sunt un începător în acest domeniu, dar poate cineva să-mi spună cum să creez un ListBox cu selecție multiplă care se va deschide, de exemplu, când selectez un nume. Vreau ca caseta de listă să încapă într-o singură.
EXEMPLU: Am o listă de nume cu informații de contact etc. Doresc să creez o listă duplicată pentru fiecare nume din lista mea. Aș dori să se deschidă automat când selectez un nume și să restrâng înapoi în celulă când merg la alt rând de informații. Vă rugăm consultaţi. Mulțumesc anticipat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Draga Randy,
Îmi pare rău, nu pot rezolva această problemă.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează perfect conform instrucțiunilor, dar dacă protejez foaia, dă și eroare. Vreo soluție pentru asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează perfect conform instrucțiunilor. Dar, Cum pot folosi acest lucru pe o foaie protejată. În prezent, dacă îl folosesc după ce am protejat foaia, îmi dă o eroare „Eroare de rulare „-2147024809 (80070057)”: valoarea specificată este în afara intervalului”
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dragă Amit Sood,
Înainte de a proteja foaia de lucru, vă rugăm să formatați celula de ieșire ca fiind deblocată și apoi aplicați codul VBA de mai jos. Multumesc pentru comentariu.

Sub dreptunghi2_Click()
Dim xSelShp ca formă, xSelLst ca variantă, I ca întreg
La data de eroare CV următoare
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Setați xLstBox = ActiveSheet.ListBox1
Dacă xLstBox.Visible = Fals, atunci
xLstBox.Visible = Adevărat
xSelShp.TextFrame2.TextRange.Characters.Text = „Opțiuni de preluare”
Altfel
xLstBox.Visible = Fals
xSelShp.TextFrame2.TextRange.Characters.Text = „Selectați opțiuni”
Pentru I = xLstBox.ListCount - 1 la 0 Pasul -1
Dacă xLstBox.Selected(I) = True, atunci
xSelLst = xLstBox.List(I) & ";" & xSelLst
Final, dacă
Apoi eu
Dacă xSelLst <> "" Atunci
Interval("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
Altfel
Range("ListBoxOutput") = ""
Final, dacă
Final, dacă
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
„Am creat un fișier folosind caseta de listă ActiveX, așa cum vi s-a explicat, acolo am introdus câteva date și am adăugat și unele proprietăți. Am verificat unele date folosind caseta de selectare din listă și am salvat și am ieșit din fișier. redeschizând fișierul, nu afișează date verificate... poate cineva să-mi dea o sugestie să salvez aceste actualizări."
Ma poate ajuta cineva va rog.
Acest comentariu a fost redus la minimum de moderatorul de pe site
O zi buna,
Vă rugăm să introduceți codul VBA de mai jos în fereastra de cod ThisWorkbook.
În cod, Sheet6 este numele implicit al foii de lucru care conține caseta Listă pe care doriți să o păstrați selecțiile, așa cum se arată mai jos. Și ListBox1 este numele casetei de listă. Vă rugăm să le schimbați după cum aveți nevoie.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Apelați SaveSelections
End Sub

Private Sub Workbook_Open()
Apelați RestoreSelections
End Sub

Selecții private de salvare secundară ()

Dim arr() As Variant, i As Long, j As Long

Cu Sheet6.OLEObjects("ListBox1").Object
Dacă .ListIndex > 0 Atunci
Pentru i = 0 To .ListCount - 1
Dacă .Selectat(i) Atunci
j = j + 1
ReDim Preserve arr(1 la j)
arr(j) = i
Final, dacă
Pagina Următoare →
Names.Add Name:="Selectii", RefersTo:=arr, Visible:=False
Final, dacă
Se termina cu

End Sub

Private Sub RestoreSelections()

Dim arr ca variantă, i ca întreg

arr = [Selectii]

Cu Sheet6.OLEObjects("ListBox1").Object
Pentru i = 1 La UBound(arr)
.Selectat(arr(i)) = Adevărat
Pagina Următoare →
Se termina cu

End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumesc pentru răspuns, domnule, dar nu funcționează în cazul fișierului meu, vă rugăm să trimiteți id-ul de e-mail, astfel încât să vă pot trimite fișierul.
Multumesc anticipat
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dragă Manjusha Isaac,
Vă rugăm să trimiteți fișierul la zxm@addin99.com. Sper că pot ajuta.
Acest comentariu a fost redus la minimum de moderatorul de pe site
În plus, trebuie să salvați registrul de lucru ca un registru de lucru cu macrocomandă Excel și să activați codul de fiecare dată când modificați selecțiile casetei cu listă.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vreau să actualizez automat numele în diferite coloane. este posibil dacă este posibil, vă rog să-mi împărtășiți codul.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Uimitor funcționează, dar după ce închid Excel și îl deschid din nou, bifa din caseta de selectare a dispărut, așa că dacă dau clic pe butonul, toată lista va dispărea orice soluție pentru aceasta
va rog cineva sa ma ajute
Multumesc mult anticipat
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dragă Înger,
Am publicat un articol „Cum se salvează sau se păstrează selecțiile casetelor de listă ActiveX în Excel?” care introduce metoda de salvare a selecțiilor casetelor de listă după închiderea și redeschiderea registrului de lucru.
Puteți accesa acest link pentru a obține mai multe informații: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Acest comentariu a fost redus la minimum de moderatorul de pe site
uimitor funcționează, dar am o problemă după ce salvez fișierul și îl deschid din nou, toate verificările din lista de casete de selectare au dispărut.
ma poti ajuta la asta multumesc mult
Acest comentariu a fost redus la minimum de moderatorul de pe site
de asemenea, schimbă dimensiunea casetei de listă și forma întotdeauna după salvare și deschide din nou fișierul dacă cineva are o soluție pentru această problemă, vă rog să mă ajutați

mulțumesc foarte mult
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dragă Mark,
Am publicat un articol „Cum se salvează sau se păstrează selecțiile casetelor de listă ActiveX în Excel?” care introduce metoda de salvare a selecțiilor casetelor de listă după închiderea și redeschiderea registrului de lucru.
Puteți accesa acest link pentru a obține mai multe informații: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna,

Mă întreb dacă există o modalitate de a direcționa opțiunile de preluare către mai multe celule (nu doar E4) sau de a face selecțiile o listă de verificare derulantă, astfel încât să pot selecta mai multe opțiuni dintr-o listă de verificare, dar fac acest lucru în mod repetat și independent de alte selecții pe care le-am făcut. De exemplu, cum aș folosi aceeași listă de opțiuni de ridicare pentru a introduce o selecție diferită de articole la E5, E6, E7 etc. din aceeași listă de ridicare.

mulțumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună LizKats,
Vă rugăm să încercați codul de mai jos. Sper că pot ajuta. Mulțumesc.

Sub dreptunghi2_Click()

„Actualizat de Extendoffice 20200529

Dim xSelShp ca formă, xSelLst ca variantă, i ca întreg

Set xSelShp = ActiveSheet.Shapes(Application.Caller)

Setați xLstBox = ActiveSheet.ListBox1

Dim xRg As Range

Dim xCount, xFNum, xR, xC ca întreg

Dim xStr As String

Dacă xLstBox.Visible = Fals, atunci

xLstBox.Visible = Adevărat

xSelShp.TextFrame2.TextRange.Characters.Text = „Opțiuni de preluare”

Altfel

xLstBox.Visible = Fals

xSelShp.TextFrame2.TextRange.Characters.Text = „Selectați opțiuni”

Set xRg = Range("ListBoxOutput")

xCount = xLstBox.ListCount - 1

xStr = ""

Pentru i = xLstBox.ListCount - 1 la 0 Pasul -1

Dacă xLstBox.Selected(i) = Adevărat, atunci

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

Final, dacă

Apoi eu



Dacă xRg.Value = "" Atunci

xRg.Valoare = xStr

Altfel

Set xRg = xRg.Offset(1, 0)

Do While xRg.Value <> ""

Set xRg = xRg.Offset(1, 0)

Buclă

xRg.Valoare = xStr

Final, dacă

Final, dacă

End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna,

Mulțumesc mult pentru acest articol minunat! Acesta a fost codul modificat pe care îl căutam în comentarii! Cu toate acestea, văd că șirul xStr combinat adaugă un punct și virgulă „;” până la capăt cumva. Nu reușesc să depanez cum să nu includ punct și virgulă la sfârșitul șirului.

De asemenea, există o modalitate de a specifica anumite intervale de celule pentru xRg? Mă refer la Set xRg = Range("ListBoxOutput") și vreau să schimb ListBoxOutput la ceva de genul H5:H10 & H15:20. Ar fi posibil cumva?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Functioneaza bine, multumesc mult pentru ajutor. Am o problemă aici este că, toată ieșirea vine în aceeași celulă E4, cum putem obține rezultatul în celule diferite De exemplu: ieșire pentru C4 în E4, C5 în E5, C6 în E6 etc.
Acest comentariu a fost redus la minimum de moderatorul de pe site
O zi buna,
Problema menționată de tine nu poate fi încă rezolvată.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Добрый день! Прошу помочь.
Как сделать так чтобы каждое значение выходило на новой клетке? чтобы по выходило по вертикали?
Acest comentariu a fost redus la minimum de moderatorul de pe site
AJUTOR!!! cum iese în diferite game (vertical)?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sub dreptunghi2_Click()
„Actualizat de Extendoffice 20190924
Dim xSelShp ca formă, xSelLst ca variantă, I ca întreg
Dim xRg As Range
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Setați xLstBox = ActiveSheet.ListBox1
Dacă xLstBox.Visible = Fals, atunci
xLstBox.Visible = Adevărat
xSelShp.TextFrame2.TextRange.Characters.Text = „Opțiuni de preluare”
Altfel
xLstBox.Visible = Fals
xSelShp.TextFrame2.TextRange.Characters.Text = „Selectați opțiuni”
Set xRg = Range("ListBoxOutput")
Pentru I = 0 La xLstBox.ListCount - 1
Dacă xLstBox.Selected(I) = True, atunci
xSelLst = xLstBox.List(I)
xRg.Value = Mid(xSelLst, 1, Len(xSelLst))
Set xRg = xRg.Offset(1, 0)
Final, dacă
Apoi eu
Final, dacă
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Como puedo replicar este exercițiu în las filas inferiors ?
Cum pot replica acest exercițiu în rândurile de mai jos?
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL