Afhangende van die omstandighede sal jy dalk verskeie waardes in 'n aftreklys moet kies. In hierdie tutoriaal gaan ons jou wys hoe om meervoudige keuses in 'n aftreklys te maak. Vir hierdie sessie gebruik ons ​​Excel 2019, gebruik gerus jou voorkeurweergawe.

Voordat ons in die sessie duik, kom ons leer oor die datastel wat die basis van ons voorbeelde is.

Hier het ons verskeie skryfbehoefte-elemente, deur hierdie te gebruik, sal ons 'n aftreklys skep en verskeie items daar kies.

Neem kennis dat dit 'n eenvoudige datastel is om dinge eenvoudig te hou . In 'n praktiese scenario kan jy 'n baie groter en komplekse datastel teëkom.

Oefenwerkboek

Jy is welkom om die oefenwerkboek van die onderstaande skakel af te laai.

Maak meervoudige seleksie uit aftreklys.xlsm

Veelvuldige seleksie in 'n aftreklys

Eerstens moet ons 'n aftreklys skep op grond van ons skryfbehoeftes. Kom ons skep dit vinnig. Moenie huiwer om die artikel oor die maak van 'n aftreklys te besoek nie.

In die Data Validation dialoogkassie kies die LYS datatipe en voeg die selreeks van die items.

B4:B11 is die reeks wat die skryfbehoefte-elemente bevat. Nou sal jy die aftreklys kry.

Lees meer: Excel-aftreklys, afhangende van seleksie

1. KiesVeelvuldige items (laat duplikaatseleksie toe)

'n Konvensionele aftreklys kies altyd 'n enkele item. Hier kan jy sien, ons het Pen uit die lys gekies (prent hieronder).

Nou, as ons 'n ander item kies, kom ons sê Potlood

dan sal dit die vorige waarde vervang. Slegs Potlood sal gekies bly.

Om veelvuldige items te kies, moet ons die VBA -kode gebruik. Maak die Microsoft Visual Basic for Applications venster oop (druk ALT + F11 om dit oop te maak).

Dubbelklik nou op die werkbladnaam of -nommer waar jy wil kies verskeie items in die aftreklys. Jy sal die kodevenster vir daardie spesifieke blad vind.

Hier is die kodevenster vir Blad2 in ons werkboek (ons het die aftreklys lys in hierdie blad).

Sodra die kodevenster oopgemaak is, voeg die volgende kode daar in

2435

Stoor die kode, en probeer nou om waardes te kies in die aftreklys.

Nadat ons Potlood gekies het, gaan ons 'n ander item Notaboek kies. En jy kan sien, ons het albei die items gevind (prent hieronder).

Hierdie kode sal ons toelaat om die keuse te herhaal. Kom ons sê as ons weer Potlood kies,

sal ons die item weer in die keusekassie kry.

Kode Verduideliking

Ons het twee stringe verklaar Ouwaarde en Nuwewaarde .

Jy kan sien ons het die aftreklys in die D4 -sel gemaak, dis hoekom ons teikenadres D4 is. En daarby het ons weer gekontroleer of die sel data-validering gebruik of nie Target.SpecialCells gebruik nie.

Sodra 'n waarde gekies is, het ons gebeurtenisse ( Application.EnableEvents = False ) afgeskakel sodat veranderinge' t die gebeurtenis weer aktiveer. Het dan die geselekteerde item in die Nuwewaarde gestoor.

Nadat ons die verandering ongedaan gemaak het, het ons die waarde in die Ouwaarde gestel. Kontroleer dan of die Ouwaarde leeg is of nie. Indien leeg (beteken net een waarde is gekies), gee dan die Nuwewaarde terug. Andersins, voeg die Ouwaarde en Nuwewaarde aan mekaar.

Voordat die terugstel beëindig word, sodat ons kan verander indien nodig.

Lees meer: Meervoudige afhanklike aftreklys Excel VBA

2. Kies veelvuldige items uit aftreklys (slegs unieke keuse)

In die vorige afdeling , het ons die veelvuldige keuses gesien waar herhaling toegelaat is. As jy dit nie wil hê nie, volg dan hierdie afdeling.

Gerieflikheidshalwe het ons 'n aparte blad vir hierdie demonstrasie gebruik. Hierdie keer is ons by Sheet3. Skryf die volgende kode in die kodevenster vir hierdie blad.

1730

Is daar enige verskil in vergelyking met die vorige kode! Kyk van nader, jy sal die effense verskil kan raaksien.

Hier het ons 'n VBA -funksie gebruik genaamd INSTR . Die INSTR -funksie gee die posisie van die eerste voorkoms van 'n substring in 'n string terug. Besoek hierdie INSTR-artikel vir verdere inligting.

Deur hierdie logiese bewerking met InStr(1, Oldvalue, Newvalue) = 0 te gebruik, het ons gekontroleer of die waardes gevind word of nie. As die logiese bewerking WAAR (nie vroeër gevind nie) terugstuur, laat dit toe om die item te kies en met die vroeëre waarde aaneen te skakel.

Stoor die kode en probeer nou om 'n item te kies wat reeds gekies is.

Hier het ons reeds Potlood gekies, as ons dit weer wil kies, kan ons nie. Dit laat nie duplikaatwaardes toe nie.

Lees meer: Hoe om 'n aftreklys vanaf 'n ander blad in Excel te skep

3. Kies Items in Newline

Tot dusver het ons gevind dat die items deur 'n komma geskei word. In hierdie afdeling sal ons die geselekteerde items in nuwe reëls rangskik.

Vir eenvoud voeg ons 'n paar selle saam met die D4 -sel. Om dit te doen, kies die selle wat jy wil saamsmelt en klik Merge & Sentreer vanaf die Belyning -afdeling van die Tuis -oortjie.

Die sel sal meer hoogte kry.

Kom ons kyk nou na die kode om items deur nuwe reël te skei. Gebruik die volgende kode

5829

Die enigste verskil van die vorige kode is dat ons hierdie keer vbNewLine tussen OldValue en NewValue .

vbNewLine verskaf 'n nuwe reël tussen die items.

Kies nou die items.

Ons kies 'n item Pen wat in die prent hierbo gewys word. Kies nou 'n ander element.

Jy sal vind die twee items is in verskillende reëls.

Hier het ons twee waardes, wat in twee verskillende lyne is. As u 'n ander waarde kies, sal dit by 'n ander reël gevoeg word. Elke waarde sal in 'n nuwe reël wees.

Let daarop dat as jy 'n ander skeidingsteken wil hê om die items te skei, gebruik dit binne dubbele aanhalingstekens in die plek van vbNewline .

Gevolgtrekking

Dit is al vir vandag. Ons het verskeie benaderings gelys om veelvuldige keuses te maak in 'n aftreklys. Hoop jy sal dit nuttig vind. Voel vry om kommentaar te lewer as iets moeilik lyk om te verstaan. Laat weet ons enige ander metodes wat ons hier gemis het.