Tähän asti olemme tarkastelleet miten luoda pudotusluetteloita Excelissä. Tänään näytän miten luoda pudotusluettelo, jossa on useita valintoja Excelissä .

Lataa harjoituskirja

Voit ladata harjoituskirjan täältä.

Vaiheittaiset menettelyt pudotusluettelon luomiseksi Excelissä useilla valinnoilla

Tässä meillä on tietokokonaisuus, jossa on sarake Kirjan nimi joka sisältää joitakin kirjojen nimiä. Tämänpäiväisenä tavoitteenamme on luoda tähän tietokokonaisuuteen perustuva pudotusluettelo, joka ottaa vastaan useita valintoja. Näytän alla olevassa osiossa vaiheittaiset toimenpiteet.

VAIHE 1: Luo pudotusluettelo käyttämällä tietojen validointia

Luodaksemme avattavan luettelon, jossa on useita valintoja, meidän on ensin luotava avattava luettelo. Käydään menettelyt läpi.

• Valitse ensin solu, johon haluat luoda pudotusluettelon. Olen valinnut solun Solu D5 .

• Siirry seuraavaksi Tiedot välilehti ja valitse Tietojen validointi nauhalta.

• Sitten, alkaen Tietojen validointi ikkunassa, valitse Luettelo osoitteessa Salli osioon ja kirjoita alueen solut, joiden tiedot haluat lisätä luetteloon, kenttään Lähde kenttä.
• Vaihtoehtoisesti voit napsauttaa pientä ylöspäin osoittavaa nuolta ikkunassa Lähde osiossa ja valitse työarkin data-alue.

• Lopuksi näemme pudotusluettelon, joka on luotu kohdassa Solu D5 .

Samanlaisia lukemia:

• Miten tehdä pudotusluettelo Excelissä (riippumaton ja riippuvainen)?
• Tee useita valintoja pudotusluettelosta Excelissä (3 tapaa)
• Kuinka luoda riippuvainen pudotusluettelo Excelissä
• Luo pudotusluettelo useissa sarakkeissa Excelissä (3 tapaa)

VAIHE 2: Pudotusluettelon ottaminen käyttöön usean valinnan hyväksymiseksi VBA-koodilla

Olemme jo luoneet pudotusluettelon. Nyt on aika valmistella pudotusluettelo useampia valintoja varten. Käytän apuna 2 VBA koodit, joiden avulla lista hyväksyy useita valintoja. Yksi hyväksyy tietojen toistamisen ja toinen ei hyväksy tietojen toistamista.

Tapaus 1: VBA-koodi useita valintoja varten toistuvalla valinnalla

Tässä osiossa näytän, miten luodaan pudotusluettelo, jossa on useita valintoja, jotka ottavat toistuvia tietoja.

Käydään menettelyt läpi.

• Paina ensin ALT + F11 avataksesi VBA ikkuna.
• Valitse sitten Project Explorer . Myös, double - klikkaa arkille, jossa haluat tehtävän olevan.

• Samanaikaisesti Koodi ikkuna avautuu.
• Kirjoita sen jälkeen seuraava koodi kyseiseen ikkunaan.

 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 Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Palaa lopuksi takaisin työtaulukkoon, niin voimme valita useita elementtejä pudotusvalikosta toistamalla samaa elementtiä.

Tapaus 2: VBA-koodi monivalintaa varten ilman toistoa

Tässä osiossa näytän, miten luodaan pudotusluettelo, jossa on useita valintoja, jotka eivät vaadi tietojen toistoa.

Käydään menettelyt läpi.

• Paina ensin ALT + F11 avataksesi VBA ikkuna.
• Valitse sitten Project Explorer ...myös, double - klikkaa arkille, jossa haluat tehtävän olevan.

• Samanaikaisesti Koodi ikkuna tulee näkyviin.
• Kirjoita sen jälkeen seuraava koodi kyseiseen ikkunaan.

 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 

• Palaa lopuksi takaisin työtaulukkoon, niin voimme valita useita elementtejä pudotusvalikosta ilman, että sama elementti toistuu.

Päätelmä

Tämän menetelmän avulla voit luoda Excelissä pudotusluettelon, jossa on useita valintoja. Onko sinulla kysyttävää? Kerro meille kommenttiosioon. Käy osoitteessa ExcelWIKI Verkkosivusto lisää artikkeleita, jotka koskevat Excel .