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

Hoe maak ik een vervolgkeuzelijst met meerdere selectievakjes in Excel?

Veel Excel-gebruikers hebben de neiging om een ​​vervolgkeuzelijst te maken met meerdere selectievakjes om meerdere items uit de lijst per keer te selecteren. Eigenlijk kunt u met Gegevensvalidatie geen lijst met meerdere selectievakjes maken. In deze zelfstudie laten we u twee methoden zien om een ​​vervolgkeuzelijst met meerdere selectievakjes in Excel te maken.

Gebruik keuzelijst om een ​​vervolgkeuzelijst met meerdere selectievakjes te maken
A: Maak een keuzelijst met brongegevens
B: Geef de cel een naam waarin u de geselecteerde items zult vinden
C: Voeg een vorm in om de geselecteerde items te helpen uitvoeren
Maak eenvoudig een vervolgkeuzelijst met selectievakjes met een geweldige tool
Meer tutorials voor vervolgkeuzelijst ...


Gebruik keuzelijst om een ​​vervolgkeuzelijst met meerdere selectievakjes te maken

Zoals onderstaand screenshot laat zien, zijn in het huidige werkblad alle namen in het bereik A2: A11 de brongegevens van de keuzelijst. Klik op de knop in cel C4 om de geselecteerde items uit te voeren, en alle geselecteerde items in de keuzelijst worden weergegeven in cel E4. Ga hiervoor als volgt te werk.

A. Maak een keuzelijst met brongegevens

1. klikken Ontwikkelaar > Invoegen > Keuzelijst (Active X Control). Zie screenshot:

2. Teken een keuzelijst in het huidige werkblad, klik er met de rechtermuisknop op en selecteer Vastgoed vanuit het rechtsklikmenu.

3. In de Vastgoed dialoogvenster, moet u als volgt configureren.

  • 3.1 In het LijstVullenBereik vak, voer het bronbereik in dat u in de lijst wilt weergeven (hier voer ik het bereik in A2: A11);
  • 3.2 In het Lijststijl vak, selecteer 1 - optie fmList-stijl;
  • 3.3 In het Meerkeuze selectie vak, selecteer 1 - fmMultiSelectMulti;
  • 3.4 Sluit het Vastgoed dialoog venster. Zie screenshot:

B: Geef de cel een naam waarin u de geselecteerde items zult vinden

Als u alle geselecteerde items naar een gespecificeerde cel zoals E4 wilt uitvoeren, doet u het volgende.

1. Selecteer de cel E4, voer in ListBoxOutput in de Naam Box en druk op de Enter sleutel.

C. Voeg een vorm in om de geselecteerde items te helpen uitvoeren

1. klikken Invoegen > Vormen > Rechthoek. Zie screenshot:

2. Teken een rechthoek in je werkblad (hier teken ik de rechthoek in cel C4). Klik vervolgens met de rechtermuisknop op de rechthoek en selecteer Wijs macro toe vanuit het rechtsklikmenu.

3. In de Wijs macro toe dialoogvenster, klik op de Nieuw knop.

4. In de opening Microsoft Visual Basic voor toepassingen vervangt u de originele code in het Module venster met de onderstaande VBA-code.

VBA-code: maak een lijst met meerdere selectievakjes

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

Opmerking: In de code, Rechthoek 1 is de vormnaam; ListBox1 is de naam van de keuzelijst; Maak een keuze en Ophaalopties zijn de weergegeven teksten van de vorm; en de ListBoxOutput is de bereiknaam van de uitvoercel. U kunt ze wijzigen op basis van uw behoeften.

5. druk op anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.

6. Klik op de rechthoekknop om de keuzelijst in of uit te vouwen. Wanneer de keuzelijst wordt uitgevouwen, vinkt u de items in de keuzelijst aan en klikt u nogmaals op de rechthoek om alle geselecteerde items naar cel E4 uit te voeren. Zie onderstaande demo:

7. En sla de werkmap vervolgens op als een Excel MacroEnable-werkmap voor het hergebruik van de code in de toekomst.


Maak een vervolgkeuzelijst met selectievakjes met een geweldige tool

De bovenstaande methode is te veelstappen om gemakkelijk te hanteren. Beveel hier het Vervolgkeuzelijst met selectievakjes nut van Kutools voor Excel om u te helpen eenvoudig een vervolgkeuzelijst te maken met selectievakjes in een opgegeven bereik, huidig ​​werkblad, huidige werkmap of alle geopende werkmappen op basis van uw behoeften. Bekijk de onderstaande demo:
Download en probeer het nu! (30 dagen gratis parcours)

Naast de bovenstaande demo bieden we ook een stapsgewijze handleiding om te demonstreren hoe u deze functie kunt toepassen om deze taak te volbrengen. Ga als volgt te werk.

1. Open het werkblad waarvoor u de vervolgkeuzelijst voor gegevensvalidatie hebt ingesteld, klik op Kutools > Keuzelijst > Vervolgkeuzelijst met selectievakjes > Instellingen. Zie screenshot:

2. In de Vervolgkeuzelijst met selectievakjes Instellingen dialoogvenster, configureer dan als volgt.

  • 2.1) In de Toepassen op specificeer het toepassingsbereik waar u selectievakjes voor items in de vervolgkeuzelijst gaat maken. U kunt een bepaald bereik, huidig ​​werkblad, huidige werkmap or alle geopende werkmappen op basis van uw behoeften.
  • 2.2) In de Mode sectie, kies een stijl waarvan u de geselecteerde items wilt uitvoeren;
  • Hier neemt de wijzigen optie als voorbeeld: als u hiervoor kiest, wordt de celwaarde gewijzigd op basis van de geselecteerde items.
  • 2.3) In de Separator voer een scheidingsteken in dat u zult gebruiken om de meerdere items te scheiden;
  • 2.4) In de Tekstrichting sectie, selecteer een tekstrichting op basis van uw behoeften;
  • 2.5) Klik op de OK knop.

3. De laatste stap, klik op Kutools > Keuzelijst > Vervolgkeuzelijst met selectievakjes > Schakel vervolgkeuzelijst met selectievakjes in om deze functie te activeren.

Vanaf nu, wanneer u op de cellen met een vervolgkeuzelijst in een opgegeven bereik klikt, verschijnt er een keuzelijst.Selecteer items door de selectievakjes aan te vinken om naar de cel uit te voeren zoals de onderstaande demo laat zien (neem de Modify-modus als voorbeeld ).

Voor meer informatie over deze functie, bezoek hier.

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.


Gerelateerde artikelen:

Automatisch aanvullen tijdens het typen in de vervolgkeuzelijst Excel
Als u een vervolgkeuzelijst voor gegevensvalidatie heeft met grote waarden, moet u naar beneden scrollen in de lijst om de juiste te vinden, of u kunt het hele woord rechtstreeks in de keuzelijst typen. Als er een methode is om automatisch aanvullen toe te staan ​​bij het typen van de eerste letter in de vervolgkeuzelijst, wordt alles gemakkelijker. Deze tutorial biedt de methode om het probleem op te lossen.

Maak een vervolgkeuzelijst vanuit een andere werkmap in Excel
Het is vrij eenvoudig om een ​​vervolgkeuzelijst voor gegevensvalidatie te maken tussen werkbladen in een werkmap. Maar wat zou u doen als de lijstgegevens die u nodig hebt voor de gegevensvalidatie in een andere werkmap terechtkomen? In deze zelfstudie leert u hoe u in detail een vervolgkeuzelijst kunt maken vanuit een andere werkmap in Excel.

Maak een doorzoekbare vervolgkeuzelijst in Excel
Voor een vervolgkeuzelijst met talloze waarden is het vinden van een goede geen gemakkelijke taak. Eerder hebben we een methode geïntroduceerd voor het automatisch aanvullen van de vervolgkeuzelijst wanneer u de eerste letter in de vervolgkeuzelijst invoert. Naast de functie voor automatisch aanvullen, kunt u de vervolgkeuzelijst ook doorzoekbaar maken om de werkefficiëntie te verbeteren door de juiste waarden in de vervolgkeuzelijst te vinden. Probeer de methode in deze tutorial om de vervolgkeuzelijst doorzoekbaar te maken.

Vul automatisch andere cellen in bij het selecteren van waarden in de vervolgkeuzelijst van Excel
Stel dat u een vervolgkeuzelijst heeft gemaakt op basis van de waarden in celbereik B8: B14. Wanneer u een waarde in de vervolgkeuzelijst selecteert, wilt u dat de overeenkomstige waarden in celbereik C8: C14 automatisch in een geselecteerde cel worden ingevuld. Om het probleem op te lossen, zullen de methoden in deze tutorial je een plezier doen.

Meer tutorials voor vervolgkeuzelijst ...


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (67)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Dit is fantastisch. Maar het zal beter zijn als de meervoudige selectie kan worden geplaatst op de plaats waar de cursor actief is. Niet noodzakelijk wat de code specificeert.
Gazali Yakubu
Deze opmerking is gemaakt door de moderator op de site
Dit is precies waar ik naar op zoek was. Kan de code worden aangepast zodat de geselecteerde gegevens in afzonderlijke cellen in de kolom kunnen worden weergegeven? dus in plaats van: maandag, dinsdag, woensdag, weergeven als. maandag dinsdag woensdag
Chris M
Deze opmerking is gemaakt door de moderator op de site
Dit is precies wat ik zocht, is er een wijziging in de code die de volgende selectie uit de keuzelijst in de volgende regel zal plaatsen. voor bijv. één twee drie In plaats van: één, twee, drie
Chris M
Deze opmerking is gemaakt door de moderator op de site
kun je alsjeblieft uitleggen hoe je ListBoxOutput op E4-cel hebt toegevoegd?
Harshit
Deze opmerking is gemaakt door de moderator op de site
Hallo Hoe kan deze lijst worden gekopieerd voor meerdere cellen. Gewoon kopiëren en plakken werkt niet. Kunt u bijvoorbeeld in elke cel (E5,E6,E7,E8,...) uitleggen hoe ik dit selectievak kan plaatsen?
gimmick
Deze opmerking is gemaakt door de moderator op de site
zou je alsjeblieft kunnen uitleggen hoe ik deze listbox gemakkelijk kan kopiëren voor 100 rijen? (aparte keuzelijsten voor elk van de 100 rijen)
gimmick
Deze opmerking is gemaakt door de moderator op de site
Zodra de uitvoer is voltooid en nogmaals op de knop drukt, kunnen de eerder geselecteerde items in de keuzelijst niet worden gewijzigd. Hoe op te lossen?
VBR losser
Deze opmerking is gemaakt door de moderator op de site
Dank u! Het is geweldig en het werkt!
MartSkot
Deze opmerking is gemaakt door de moderator op de site
Ik ben een newbie op dit gebied, maar kan iemand me vertellen hoe ik een ListBox met meerdere selecties kan maken die bijvoorbeeld wordt geopend wanneer ik een naam selecteer. Ik wil dat de keuzelijst in een enkele past.
VOORBEELD: ik heb een lijst met namen met contactgegevens, enz. Ik wil een dubbele lijst maken voor elke naam in mijn lijst. Ik wil dat het automatisch wordt geopend wanneer ik een naam selecteer en weer in de cel samenvouw wanneer ik naar een andere rij met informatie ga. Adviseer, alstublieft. Bij voorbaat dank.
Randy
Deze opmerking is gemaakt door de moderator op de site
Beste Randy,
Sorry kan dit probleem niet oplossen.
crystal
Deze opmerking is gemaakt door de moderator op de site
Het werkt perfect volgens de instructies, maar als ik het blad bescherm, geeft het een fout. Enige oplossing hiervoor?
Amit Sood
Deze opmerking is gemaakt door de moderator op de site
Werk perfect volgens de instructies. Maar hoe kan ik dit gebruiken op een beveiligd blad. Momenteel Als ik dit gebruik nadat ik het blad heb beschermd, krijg ik de foutmelding "Runtime-fout '-2147024809 (80070057)': de opgegeven waarde is buiten bereik"
Amit Sood
Deze opmerking is gemaakt door de moderator op de site
Beste Amit Sood,
Voordat u het werkblad beveiligt, formatteert u de uitvoercel als ontgrendeld en past u vervolgens de onderstaande VBA-code toe. Bedankt voor je reactie.

Sub Rechthoek2_Click()
Dim xSelShp als vorm, xSelLst als variant, ik als geheel getal
On Error Resume Next
Stel xSelShp = ActiveSheet.Shapes (Application.Caller) in
Stel xLstBox = ActiveSheet.ListBox1 in
Als xLstBox.Visible = False Dan
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Ophaalopties"
Anders
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Selecteer opties"
Voor I = xLstBox.ListCount - 1 tot 0 Stap -1
Als xLstBox.Selected(I) = True Dan
xSelLst = xLstBox.Lijst(I) & ";" & xSellLst
End If
Volgende ik
Als xVerkopen <> "" Dan
Bereik ("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
Anders
Range("ListBoxOutput") = ""
End If
End If
End Sub
crystal
Deze opmerking is gemaakt door de moderator op de site
"Ik heb een bestand gemaakt met behulp van de ActiveX-lijst, zoals je hebt uitgelegd, daar heb ik wat gegevens ingevoerd en ook enkele eigenschappen toegevoegd. Ik heb wat gegevens gecontroleerd met behulp van het selectievakje in de lijst en het bestand opgeslagen en afgesloten. Maar terwijl als je het bestand opnieuw opent, worden er geen gecontroleerde gegevens weergegeven..kan iemand me een suggestie geven om die updates op te slaan."
Kan iemand me alsjeblieft helpen.
Tech Support
Deze opmerking is gemaakt door de moderator op de site
Good Day,
Plaats de onderstaande VBA-code in het ThisWorkbook-codevenster.
In de code is Sheet6 de standaardnaam van het werkblad dat de keuzelijst bevat waarvan u de selecties wilt behouden, zoals hieronder afgebeeld. En ListBox1 is de naam van de keuzelijst. Verander ze als je nodig hebt.

Private Sub Workbook_BeforeSave (ByVal SaveAsUI als Boolean, annuleer als Boolean)
Bel SaveSelections
End Sub

Private Sub Workbook_Open ()
Bel Herstel Selecties
End Sub

Privé Sub SaveSelections()

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

Met Sheet6.OLEObjects("ListBox1").Object
Als .ListIndex > 0 Dan
Voor i = 0 Naar .ListCount - 1
Indien .Geselecteerd(i) Dan
j = j + 1
ReDim behouden arr(1 tot j)
arr(j) = i
End If
volgende
Names.Add Name:="Selections", RefersTo:=arr, Visible:=False
End If
Eindigt met

End Sub

Private Sub RestoreSelections()

Dim arr As Variant, i As Integer

arr = [Selecties]

Met Sheet6.OLEObjects("ListBox1").Object
Voor i = 1 Naar UBound(arr)
.Geselecteerd(arr(i)) = True
volgende
Eindigt met

End Sub
crystal
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor het antwoord meneer, maar het werkt niet in het geval van mijn bestand, kunt u alstublieft uw e-mail-ID sturen, zodat ik u mijn bestand naar u kan mailen.
Bij voorbaat bedankt
Tech Support
Deze opmerking is gemaakt door de moderator op de site
Beste manjusha isac,
Stuur uw bestand naar zxm@addin99.com. Hoop dat ik kan helpen.
crystal
Deze opmerking is gemaakt door de moderator op de site
Bovendien moet u de werkmap opslaan als een Excel-werkmap met macro's en de code activeren telkens wanneer u de selecties van de keuzelijst wijzigt.
crystal
Deze opmerking is gemaakt door de moderator op de site
ik wil namen in verschillende kolommen automatisch bijwerken. is het mogelijk, indien mogelijk, deel me dan alstublieft de code.
Milinde Ghadi
Deze opmerking is gemaakt door de moderator op de site
GEWELDIG dat het werkt, maar nadat ik Excel heb gesloten en opnieuw heb geopend, is het vinkje uit het selectievakje verdwenen, dus als ik op de knop klik, is alle lijst verdwenen, hiervoor is een oplossing
alsjeblieft iemand help mij
Alvast bedankt
Engel
Deze opmerking is gemaakt door de moderator op de site
Beste engel,
We hebben een artikel gepubliceerd "Hoe kan ik selecties van ActiveX-keuzelijsten in Excel opslaan of behouden?" die een methode introduceert voor het opslaan van de selecties van keuzelijsten na het sluiten en opnieuw openen van de werkmap.
U kunt deze link volgen voor meer informatie: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
crystal
Deze opmerking is gemaakt door de moderator op de site
geweldig dat het werkt, maar ik heb één probleem nadat ik het bestand heb opgeslagen en opnieuw heb geopend. Alle vinkjes uit de lijst met selectievakjes zijn allemaal verdwenen
kun je me hieraan helpen heel erg bedankt
Mark
Deze opmerking is gemaakt door de moderator op de site
ook verandert het de grootte van de keuzelijst en vorm altijd na het opslaan en opnieuw openen van het bestand als iemand een oplossing voor dit probleem heeft, help me dan

dank je wel
Mark
Deze opmerking is gemaakt door de moderator op de site
Beste Mark,
We hebben een artikel gepubliceerd "Hoe kan ik selecties van ActiveX-keuzelijsten in Excel opslaan of behouden?" die een methode introduceert voor het opslaan van de selecties van keuzelijsten na het sluiten en opnieuw openen van de werkmap.
U kunt deze link volgen voor meer informatie: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
crystal
Deze opmerking is gemaakt door de moderator op de site
Hallo,

Ik vraag me af of er een manier is om de ophaalopties naar meer dan één cel te sturen (niet alleen E4), of om de selecties een dropdown-checklist te maken zodat ik meerdere opties van een checklist kan selecteren, maar doe dit herhaaldelijk en onafhankelijk van de andere selecties die ik heb gemaakt. Hoe kan ik bijvoorbeeld dezelfde lijst met ophaalopties gebruiken om een ​​andere selectie van items in te voeren voor E5, E6, E7, enz. uit dezelfde ophaallijst.

Bedankt
Elizabeth Katsman
Deze opmerking is gemaakt door de moderator op de site
Hallo LizKats,
Probeer de onderstaande code eens. Hoop dat ik kan helpen. Dank u.

Sub Rechthoek2_Click()

'Bijgewerkt door' Extendoffice 20200529

Dim xSelShp As Shape, xSelLst As Variant, i As Integer

Stel xSelShp = ActiveSheet.Shapes (Application.Caller) in

Stel xLstBox = ActiveSheet.ListBox1 in

Dim xRg als bereik

Dim xCount, xFNum, xR, xC als geheel getal

Dim xStr As String

Als xLstBox.Visible = False Dan

xLstBox.Visible = True

xSelShp.TextFrame2.TextRange.Characters.Text = "Ophaalopties"

Anders

xLstBox.Visible = False

xSelShp.TextFrame2.TextRange.Characters.Text = "Selecteer opties"

Stel xRg = Bereik ("ListBoxOutput") in

xCount = xLstBox.ListCount - 1

xStr = ""

Voor i = xLstBox.ListCount - 1 tot 0 Stap -1

Als xLstBox.Selected(i) = True Dan

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

End If

Volgende i



Als xRg.Value = "" Dan

xRg.Waarde = xStr

Anders

Stel xRg = xRg.Offset (1, 0) in

Do While xRg.Value <> ""

Stel xRg = xRg.Offset (1, 0) in

lus

xRg.Waarde = xStr

End If

End If

End Sub
crystal
Deze opmerking is gemaakt door de moderator op de site
Het werkt prima, heel erg bedankt voor je hulp. Ik heb hier één probleem: alle uitvoer komt in dezelfde cel E4, hoe kunnen we de uitvoer in verschillende cellen krijgen, bijvoorbeeld: uitvoer voor C4 in E4, C5 in E5, C6 in E6 enz.
binoy
Deze opmerking is gemaakt door de moderator op de site
Good Day,
Het door u genoemde probleem is nog niet op te lossen.
crystal
Deze opmerking is gemaakt door de moderator op de site
о ень! ошу омочь.
ак сделать ак чтобы каждое значение одило на новой етке? обы о выходило по вертикали?
alcat
Deze opmerking is gemaakt door de moderator op de site
HELPEN!!! hoe output in verschillende bereiken (verticaal)?
alcatel
Deze opmerking is gemaakt door de moderator op de site
Sub Rechthoek2_Click()
'Bijgewerkt door' Extendoffice 20190924
Dim xSelShp als vorm, xSelLst als variant, ik als geheel getal
Dim xRg als bereik
Stel xSelShp = ActiveSheet.Shapes (Application.Caller) in
Stel xLstBox = ActiveSheet.ListBox1 in
Als xLstBox.Visible = False Dan
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Ophaalopties"
Anders
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Selecteer opties"
Stel xRg = Bereik ("ListBoxOutput") in
Voor I = 0 Naar xLstBox.ListCount - 1
Als xLstBox.Selected(I) = True Dan
xSelLst = xLstBox.Lijst(I)
xRg.Waarde = Mid(xSelLst, 1, Len(xSelLst))
Stel xRg = xRg.Offset (1, 0) in
End If
Volgende ik
End If
End Sub
Jea Perez
Deze opmerking is gemaakt door de moderator op de site
Como puedo replicar éste ejercicio en las filas inferiores ?
Hoe kan ik deze oefening in de onderstaande rijen herhalen?
Jimmy
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties