Duomenų patvirtinimas yra įdomi "Excel" funkcija. Ši funkcija suteikia naudotojui galimybę kontroliuoti reikšmių įvedimą ląstelėje. Naudotojai negali įvesti bet ko, ko nori. Jie turi pasirinkti iš pateikto sąrašo. Aptarsime, kaip "Excel" programoje atlikti automatinį duomenų patvirtinimo išskleidžiamojo sąrašo užbaigimą.

Atsisiųsti praktikos sąsiuvinį

Atsisiųskite šį pratybų sąsiuvinį, kad galėtumėte atlikti pratimus skaitydami šį straipsnį.

Automatinis duomenų užbaigimo patvirtinimas išskleidžiamajame sąraše.xlsm

2 metodai, kaip "Excel" programoje automatiškai užpildyti duomenų patvirtinimo išskleidžiamąjį sąrašą

Parodysime 2 skirtingus metodus, kaip automatiškai užpildyti duomenų patvirtinimo išskleidžiamąjį sąrašą "Excel" programoje. Nagrinėsime toliau pateiktą duomenų rinkinį, skirtą automatiniam duomenų patvirtinimui.

1. Automatinis duomenų patvirtinimo išskleidžiamojo sąrašo automatinis užbaigimas naudojant VBA kodus Combo Box valdiklyje

Įdėsime pasirinktinį VBA kodą su ActiveX valdiklis įrankis automatiškai atlikti duomenų patvirtinimą iš išskleidžiamojo sąrašo "Excel" programoje.

1 žingsnis:

• Pirmiausia turime pridėti Kūrėjas skirtuką juostoje. Eikite į Failas> parinktys .
• Pasirinkite Pritaikyti juostelę parinktį iš "Excel" parinktys .
• Pažymėkite Kūrėjas parinktį ir paspauskite GERAI .

2 žingsnis:

• Pasirinkite Įdėkite iš Kūrėjas skirtukas.
• Dabar pasirinkite Combo langelis iš ActiveX valdiklis .

3 veiksmas:

• Įdėkite Valdymo blokas duomenų rinkinį.
• Spustelėkite dešinįjį pelės mygtuką ir pasirinkite Savybės iš sąrašo.

4 veiksmas:

• Pakeiskite Pavadinimas į TempComboBox iš Savybės langas.

5 veiksmas:

• Eikite į Lapo pavadinimas srityje.
• Pasirinkite Peržiūrėti kodą parinktį iš sąrašo.

Dabar, a VBA komandų modulis pasirodys. Turime įdėti VBA kodą tame modulyje.

6 veiksmas:

• Nukopijuokite ir įklijuokite VBA kodas modulyje.

 Private Sub Wrksht_SelectionChange(ByVal Target As Range) Dim combox_1 As OLEObject Dim str_1 As String Dim ws_1 As Worksheet Dim arr_1 Set ws_1 = Application.ActiveSheet On Error Resume Next Set combox_1 = ws_1.OLEObjects("TempComboBox") With combox_1 .ListFillRange = "" .LinkedCell = "" .Visible = False End With If Target.Validation.Type = 3 Then Target.Validation.InCellDropdown = False Cancel =True str_1 = Target.Validation.Formula1 str_1 = Right(str_1, Len(str_1) - 1) If str_1 = "" Then Exit Sub With combox_1 .Visible = True .Left = Target.Left .Top = Target.Top = Target.Top .Width = Target.Width + 5 .Height = Target.Height + 5 .ListFillRange = str_1 If .ListFillRange = "" Then arr_1 = Split(str_1, ",") Me.TempComboBox.List = arr_1 End If .LinkedCell = Target.Address End With combox_1.ActivateMe.TempComboBox.DropDown End If End Sub Private Sub TempComboBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyCode Case 9 Application.ActiveCell.Offset(0, 1).Activate Case 13 Application.ActiveCell.Offset(1, 0).Activate End Select End Sub 

7 veiksmas:

• Dabar išsaugokite VBA kodą ir eikite į duomenų rinkinį. Išjunkite Dizaino režimas iš Kūrėjas skirtukas.

8 veiksmas:

• Pasirinkite Ląstelė C5 .
• Pasirinkite Duomenų įrankiai grupę iš Duomenys skirtukas.
• Pasirinkite Duomenų patvirtinimas iš sąrašo.

9 veiksmas:

• Duomenų patvirtinimas bus rodomas langas. Pasirinkite Sąrašas į Leisti srityje.
• Į Šaltinis lauke pasirinkite atskaitos vertės intervalą.
• Tada paspauskite GERAI .

10 veiksmas:

• Eikite į bet kurį Atranka stulpelyje ir paspauskite bet kurią pirmąją raidę.

Įrašius raidę, tame langelyje bus rodomas atitinkamas pasiūlymas.

Dabar užpildykite visus langelius pagal mūsų norimą pasirinkimą iš siūlomo sąrašo.

Skaityti daugiau: Duomenų tvirtinimo išskleidžiamojo sąrašo tikrinimas naudojant VBA "Excel" programoje (7 programos)

2. Automatinis duomenų patvirtinimo išskleidžiamojo sąrašo su Combo Box iš ActiveX valdiklių užbaigimas

Naudosime tik ActiveX valdiklis automatiniam duomenų patvirtinimui.

1 žingsnis:

• Pasirinkite Įdėkite grupė iš Kūrėjas skirtukas.
• Pasirinkite Combo langelis iš ActiveX valdiklis .

2 žingsnis:

• Įdėkite Combo langelis bet kurioje tuščioje duomenų rinkinio vietoje.
• Tada paspauskite dešinįjį pelės mygtuką.
• Pasirinkite Savybės iš sąrašo.

3 veiksmas:

• Dabar įdėkite C5 į Susieta ląstelė laukas, nes duomenys bus rodomi Ląstelė C5 .
• Įdėkite $B$5:$B$9 svetainėje ListFillRange srityje.
• Pasirinkite 1-fmMatchEntryComplete už MatchEntry lauką ir išsaugokite pakeitimus.

4 veiksmas:

• Dabar išjunkite Dizaino režimas iš Kūrėjas skirtukas.

5 veiksmas:

• Dabar įrašykite bet kokią raidę į kombaino langelį ir pasirodys pasiūlymas. Galiausiai duomenys bus peržiūrėti Ląstelė C5 .

Skaityti daugiau: Kaip sukurti "Excel" išskleidžiamąjį sąrašą duomenims tvirtinti (8 būdai)

Išvada

Šiame straipsnyje atlikome duomenų tikrinimas iš išskleidžiamojo sąrašo . Pridėjome automatinį duomenų patvirtinimo iš "Excel" išskleidžiamojo sąrašo pildymą. Tikiuosi, kad tai patenkins jūsų poreikius. Peržiūrėkite mūsų svetainę Exceldemy.com ir pateikite savo pasiūlymus komentarų lauke.