Ověřování dat je zajímavou funkcí aplikace Excel. Tato funkce nabízí uživateli kontrolu nad zadáváním hodnot do buňky. Uživatelé nemohou zadávat, co chtějí. Musí vybírat z daného seznamu. Probereme, jak v aplikaci Excel provést automatické doplňování dat pomocí rozevíracího seznamu.

Stáhnout cvičebnici

Stáhněte si tento cvičební sešit a procvičujte si při čtení tohoto článku.

Rozbalovací seznam s automatickým doplňováním dat.xlsm

2 metody automatického doplňování rozbalovacího seznamu s ověřením dat v aplikaci Excel

Ukážeme 2 různé metody automatického doplňování rozbalovacího seznamu pro ověřování dat v aplikaci Excel. Budeme uvažovat následující datovou sadu pro automatické ověřování dat.

1. Automatické doplňování dat - rozbalovací seznam pomocí kódů VBA v ovládacím prvku Combo Box

Vložíme vlastní VBA kód s Ovládací prvek ActiveX nástroj pro automatické ověřování dat z rozevíracího seznamu v aplikaci Excel.

Krok 1:

• Nejprve musíme přidat Vývojář na pásu karet. Přejděte na Soubor> Možnosti .
• Vyberte si Přizpůsobení pásky možnost z Možnosti aplikace Excel .
• Zaškrtněte políčko Vývojář a stiskněte tlačítko OK .

Krok 2:

• Vyberte si Vložte z Vývojář tab.
• Nyní vyberte Combo Box z Ovládací prvek ActiveX .

Krok 3:

• Vložte Ovládací skříňka na souboru dat.
• Klikněte pravým tlačítkem myši a vyberte možnost Vlastnosti ze seznamu.

Krok 4:

• Změňte Název na TempComboBox z Vlastnosti okno.

Krok 5:

• Přejděte na Název listu pole.
• Vyberte si Zobrazit kód možnost ze seznamu.

Nyní je Příkazový modul VBA se objeví. Musíme vložit VBA kód tohoto modulu.

Krok 6:

• Zkopírujte a vložte následující VBA kód na modulu.

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

Krok 7:

• Nyní uložte VBA a přejděte do datové sady. Vypněte funkci Režim návrhu z Vývojář tab.

Krok 8:

• Vyberte Buňka C5 .
• Vyberte Datové nástroje skupiny z Data tab.
• Vyberte si Ověřování dat ze seznamu.

Krok 9:

• Ověřování dat zobrazí se okno. Seznam v Povolit pole.
• V Zdroj: vyberte rozsah referenčních hodnot.
• Pak stiskněte tlačítko OK .

Krok 10:

• Přejděte na libovolnou buňku Výběr a stiskněte libovolné první písmeno.

Jakmile vložíme písmeno, zobrazí se v dané buňce odpovídající návrh.

Nyní doplňte všechny buňky podle našeho požadovaného výběru z navrženého seznamu.

Přečtěte si více: Rozbalovací seznam pro ověřování dat pomocí VBA v aplikaci Excel (7 aplikací)

2. Rozbalovací seznam s automatickým ověřováním dat pomocí Combo Boxu z ovládacích prvků ActiveX

Použijeme pouze Ovládací prvek ActiveX pro automatickou validaci dat.

Krok 1:

• Vyberte si Vložte skupiny z Vývojář tab.
• Vyberte Combo Box z Ovládací prvek ActiveX .

Krok 2:

• Umístěte Combo Box na libovolném prázdném místě datové sady.
• Poté stiskněte pravé tlačítko myši.
• Vyberte si Vlastnosti ze seznamu.

Krok 3:

• Nyní vložte C5 v Propojená buňka pole, protože data se budou zobrazovat na Buňka C5 .
• Vložte $B$5:$B$9 na adrese ListFillRange pole.
• Vyberte si 1-fmMatchEntryComplete pro MatchEntry a uložte změny.

Krok 4:

• Nyní zakažte Režim návrhu z Vývojář tab.

Krok 5:

• Nyní vložte libovolné písmeno do kombinovaného pole a zobrazí se nabídka. A nakonec se data zobrazí na stránce Buňka C5 .

Přečtěte si více: Jak vytvořit rozevírací seznam aplikace Excel pro ověřování dat (8 způsobů)

Závěr

V tomto článku jsme provedli ověření dat z rozevíracího seznamu . Přidali jsme automatické doplňování ověřování dat z rozevíracího seznamu aplikace Excel. Doufám, že to uspokojí vaše potřeby. Podívejte se prosím na naše webové stránky. Exceldemy.com a napište své návrhy do komentářů.