Opprett nedtrekkslisten med flere valg med VBA-kode
Med VBA metode, din nedtrekkslisten kan velge flere verdier i stedet for ett i regnearket.
1. Når du har opprettet din nedtrekkslisten, for eksempel din nedtrekkslisten er å finne i Ark1, høyreklikk på fanen Ark1 og klikk Vis kode i høyreklikke menyen. Se skjermbilde:
to. I Microsoft Visual Basic for Applications-vinduet, dobbeltklikker du på Ark1 å åpne koden editor, deretter kopiere og lime inn nedenfor VBA-kode inn i editoren. Se skjermbilde:
VBA-kode: nedtrekkslisten med flere valg
Private Sub Worksheet_Change (ByVal Target As Range) Dim xRng Som Range Dim xValue1 As String Dim xValue2 As String Hvis Target.Count > 1 Then Exit Sub On Error Resume Neste Set xRng = Cells.SpecialCells (xlCellTypeAllValidation) Hvis xRng Er Ingenting Deretter Exit Sub Application.EnableEvents = False Hvis ikke Application.Intersect (Target, xRng) Er Ingenting Deretter xValue2 = Target.Value Application.Undo xValue1 = Target.Value Target.Value = xValue2 Hvis xValue1 < > "" Så hvis xValue2 < > "" Så Target.Value = xValue1 & "," &Co. xValue2 End If End If End If Application.EnableEvents = True End Sub3. Deretter klikker du Fil > Lukk og gå tilbake til Microsoft Excel for å avslutte Microsoft Visual Basic for Applications vinduet.
4. Gå til rullegardinlisten du har laget, kan du velge flere verdier fra listen som skjermbildet under viser
. Merk: VBA-kode kan bare fungere for gjeldende åpnet arbeidsbok. Hvis du lukker og åpner arbeidsboken, vil VBA-kode fjernes automatisk fra regnearket, og også flere valg er ubrukelig lenger. Så du trenger å lagre arbeidsboken som Excel makro- Aktivert arbeidsbok format når du lagrer arbeidsboken
Kopier flere valg eller spenner på samme tid i Excel Klikk Kutools >.; Kopier Ranges for enkelt å kopiere flere valg, og lime dem på en gang i Excel. Gratis Last ned Kutools for Excel Nå

Previous:Hvordan automatisk generere fakturanummer i Excel

Next Page:Hvordan filtrere bare heltall (hele tall) eller desimaltall i Excel?