Līdz šim mēs aplūkojām kā izveidot nolaižamos sarakstus programmā Excel. Šodien es parādīšu kā izveidot izlaižamo sarakstu ar vairākām izvēlēm programmā Excel .

Lejupielādēt Practice Workbook

Prakses darba burtnīcu varat lejupielādēt no šejienes.

Soli pa solim, lai izveidotu izlaižamo sarakstu programmā Excel ar vairākām izvēlēm

Šeit mums ir datu kopa, kurai ir sleja Grāmatas nosaukums kurā ietverti daži grāmatu nosaukumi. Mūsu šodienas mērķis ir, pamatojoties uz šo datu kopu, izveidot nolaižamo sarakstu, kurā var veikt vairākas izvēles. Turpmākajā sadaļā es parādīšu soli pa solim.

1. KĀRTĪBA: Izlaižamā saraksta izveide, izmantojot datu validāciju

Lai izveidotu nolaižamo sarakstu ar vairākām izvēlēm, vispirms ir jāizveido nolaižamais saraksts. Izpētīsim procedūras.

• Vispirms atlasiet šūnas, kurās vēlaties izveidot nolaižamo sarakstu. Es esmu atlasījis. Šūna D5 .

• Pēc tam dodieties uz Dati cilni un izvēlieties Datu validēšana no lentes.

• Tad no Datu validēšana logā atlasiet Saraksts vietnē Atļaut sadaļu un ierakstiet diapazona šūnas, kuru datus vēlaties pievienot sarakstam. Avots: lauka.
• Varat arī noklikšķināt uz mazās uz augšu vērstās bultiņas laukā Avots: sadaļu un atlasiet datu diapazonu no darblapas.

• Visbeidzot, mēs redzēsim izlaižamo sarakstu, kas izveidots Šūna D5 .

Līdzīgi lasījumi:

• Kā izveidot izlaižamo sarakstu programmā Excel (neatkarīgs un atkarīgs)
• Veiciet vairākkārtēju atlasi no izlaižamā saraksta programmā Excel (3 veidi)
• Kā izveidot atkarīgu izlaižamo sarakstu programmā Excel
• Izlaižamā saraksta izveide vairākās Excel kolonnās (3 veidi)

2. KĀRTĪBA: Nolaižamā saraksta ieslēgšana, lai ar VBA kodu pieņemtu vairākkārtēju atlasi

Mēs jau esam izveidojuši nolaižamo sarakstu. Tagad ir pienācis laiks sagatavot nolaižamo sarakstu vairākām izvēlēm. Es izmantošu 2 VBA kodus, lai sarakstā varētu pieņemt vairākas izvēles. Viens no tiem pieņems datu atkārtošanos, bet otrs nepieņems datu atkārtošanos.

1. gadījums: VBA kods vairākkārtējai atlasei ar atkārtošanos

Šajā sadaļā es parādīšu, kā izveidot nolaižamo sarakstu ar vairākām izvēlēm, kurā tiks izmantoti atkārtoti dati.

Apskatīsim procedūras.

• Vispirms nospiediet ALT + F11 lai atvērtu VBA logs.
• Pēc tam atlasiet Projekta pētnieks . arī, dubultā - noklikšķiniet uz uz lapas, kurā vēlaties veikt uzdevumu.

• Vienlaikus Kods tiks atvērts logs.
• Pēc tam šajā logā ierakstiet šādu kodu.

 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 Ja 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 

• Visbeidzot, atgriezieties darblapā, un mēs varēsim atlasīt vairākus elementus nolaižamajā sarakstā, atkārtojot vienu un to pašu elementu.

2. gadījums: VBA kods vairākkārtējai atlasei bez atkārtošanās

Šajā sadaļā es parādīšu, kā izveidot nolaižamo sarakstu ar vairākām izvēlēm, kas neprasa datu atkārtošanos.

Apskatīsim procedūras.

• Vispirms nospiediet ALT + F11 lai atvērtu VBA logs.
• Pēc tam atlasiet Projekta pētnieks . arī, dubultā - noklikšķiniet uz uz lapas, kurā vēlaties veikt uzdevumu.

• Vienlaikus Kods tiks parādīts logs.
• Pēc tam šajā logā ievadiet šādu kodu.

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

• Visbeidzot, atgriezieties darblapā, un mēs varēsim atlasīt vairākus elementus nolaižamajā sarakstā, neatkārtojot vienu un to pašu elementu.

Secinājums

Izmantojot šo metodi, varat izveidot izlaižamo sarakstu programmā Excel ar vairākām izvēlēm. Vai jums ir kādi jautājumi? Lūdzu, dariet mums zināmu komentāru sadaļā. Apmeklējiet mūsu ExcelWIKI tīmekļa vietne vairāk rakstus par Excel .