Seni vaatasime kuidas luua ripploendeid Excelis. Täna näitan ma kuidas luua Excelis mitme valikuga ripploendistikku .

Lae alla praktiline töövihik

Praktilise töövihiku saate alla laadida siit.

Samm-sammult protseduurid mitme valikuga Exceli rippmenüüde loomiseks

Siin on meil andmekogum, millel on veerg Raamatu nimi mis sisaldab mõningaid raamatute nimesid. Meie tänane eesmärk on luua selle andmestiku põhjal rippmenüü, mis võtab vastu mitu valikut. Järgnevalt näitan samm-sammult protseduurid.

STEP 1: Loome ripploendistiku, kasutades andmete valideerimist

Mitme valikuga ripploendi loomiseks peame kõigepealt looma ripploendi. Käime läbi protseduurid.

• Kõigepealt valige lahter, kuhu soovite luua ripploendi. Mina valisin Lahter D5 .

• Järgmisena minge Andmed vahekaart ja valige Andmete valideerimine paelast.

• Siis, alates Andmete valideerimine aknas, valige Loetelu aadressil Luba ja kirjutage vahemiku lahtrid, mille andmed soovite lisada nimekirja, loetelusse Allikas valdkond.
• Teise võimalusena võite klõpsata väikesel ülespoole suunatud noolega nupul, mis asub Allikas ja valige töölehe andmevahemik.

• Lõpuks näeme ripploendistikku, mis on loodud dokumendis Lahter D5 .

Sarnased lugemised:

• Kuidas teha Exceli ripploendistikku (sõltumatu ja sõltuv)
• Mitme valiku tegemine Exceli rippmenüüst (3 võimalust)
• Kuidas luua Excelis sõltuv rippmenüüde loetelu
• Loome Exceli mitme veeru ripploendi (3 võimalust)

2. samm: rippmenüüde lubamine VBA-koodiga mitme valiku vastuvõtmiseks

Me oleme ripploendi juba loonud. Nüüd on aeg ette valmistada ripploendi mitme valiku jaoks. Ma kasutan 2 VBA koodid, et võimaldada loetelus mitme valiku vastuvõtmist. Üks võtab vastu korduvaid andmeid ja teine ei võta vastu korduvaid andmeid.

Juhtum 1: VBA-kood korduvate valikute jaoks koos kordustega

Selles jaotises näitan, kuidas luua mitme valikuga ripploendist, mis võtab korduvaid andmeid.

Käime menetlused läbi.

• Kõigepealt vajutage ALT + F11 avada VBA aken.
• Seejärel valige Projekt Explorer . Samuti, topelt - kliki lehel, kus soovite ülesannet täita.

• Samal ajal on Kood aken avaneb.
• Seejärel kirjutage sellesse aknasse järgmine kood.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" ThenTarget.Value = Newvalue Else Target.Value = Oldvalue & ", " & Newvalue End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Lõpuks tulge tagasi töölehele ja me saame valida mitu elementi rippmenüüst sama elemendi kordamisega.

Juhtum 2: VBA-kood mitme valiku jaoks ilma korduseta

Selles jaotises näitan, kuidas luua mitme valikuga ripploendist, mis ei võta korduvaid andmeid.

Käime menetlused läbi.

• Kõigepealt vajutage ALT + F11 avada VBA aken.
• Seejärel valige Projekt Explorer . Samuti, topelt - kliki lehel, kus soovite ülesannet täita.

• Samal ajal on Kood ilmub aken.
• Seejärel sisestage sellesse aknasse järgmine kood.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue =Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & ", " & Newvalue Else: Target.Value = Oldvalue End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Lõpuks tulge tagasi töölehele ja me saame valida mitu elementi rippmenüüst ilma sama elemendi kordumiseta.

Kokkuvõte

Selle meetodi abil saate Excelis luua mitme valikuga ripploendi. Kas teil on küsimusi? Andke meile julgelt teada kommentaaride sektsioonis. Külastage meie ExcelWIKI veebisait rohkem artikleid, mis käsitlevad Excel .