Tartalomjegyzék
Az adatérvényesítés az Excel egy érdekes funkciója. Ez a funkció ellenőrzést kínál a felhasználó számára, hogy értékeket adjon meg egy cellában. A felhasználók nem adhatnak be bármit, amit akarnak. Egy adott listából kell választaniuk. Megbeszéljük, hogyan lehet automatikus kitöltéses adatérvényesítést végezni az Excel legördülő listában.
Gyakorlati munkafüzet letöltése
Töltse le ezt a gyakorlati munkafüzetet, hogy gyakorolhasson, miközben ezt a cikket olvassa.
Automatikusan kitöltött adatérvényesítés legördülő lista.xlsm
2 módszer az adatok automatikus kitöltésére az adatok érvényesítésének legördülő listája az Excelben
Megmutatjuk 2 különböző módszerek az adatérvényesítés legördülő listájának automatikus kitöltésére az Excelben. A következő adatkészletet tekintjük az automatikus adatérvényesítéshez.
1. Automatikusan kitöltött adatérvényesítés legördülő lista VBA-kódok használatával a Combo Box vezérlőben
Beillesztjük az egyéni VBA kódot a ActiveX vezérlő eszközzel a legördülő listából automatikusan elvégezheti az adatok érvényesítését az Excelben.
1. lépés:
- Először is, hozzá kell adnunk a Fejlesztő lapot a szalaghoz. Válassza a Fájl> Beállítások .
- Válassza ki a címet. Szalag testreszabása opciót a Excel lehetőségek .
- Jelölje be a Fejlesztő opciót, és nyomja meg a OK .
2. lépés:
- Válassza ki a címet. Beillesztés a Fejlesztő tab.
- Most válassza ki a Combo Box a ActiveX vezérlő .
3. lépés:
- Tegye a Vezérlődoboz az adatállományon.
- Kattintson az egér jobb gombjára, és válassza a Tulajdonságok a listáról.
4. lépés:
- Változtassa meg a Név a címre. TempComboBox a Tulajdonságok ablak.
5. lépés:
- Menjen a Sheet Name mező.
- Válassza ki a Kód megtekintése opciót a listából.
Most egy VBA parancsmodul Megjelenik. VBA kódot az adott modulon.
6. lépés:
- Másolja ki és illessze be a következőket VBA kód a modulon.
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 End Sub
7. lépés:
- Most mentse el a VBA kódot, és menjen az adatkészlethez. Kapcsolja ki a Tervezési mód a Fejlesztő tab.
8. lépés:
- Válassza ki a címet. C5 sejt .
- Válassza ki a Adateszközök csoport a Adatok tab.
- Válassza ki a címet. Adatérvényesítés a listáról.
9. lépés:
- Adatérvényesítés ablak jelenik meg. Válassza a Lista a Engedélyezze a mező.
- A Forrás mezőben válassza ki a referenciaérték-tartományt.
- Ezután nyomja meg a OK .
10. lépés:
- Menjen a táblázat bármely cellájába Kiválasztás oszlopot, és nyomja meg bármelyik első betűt.
Ahogy betűt írunk, a megfelelő javaslat megjelenik az adott cellában.
Most töltse ki az összes cellát a javasolt listából a kívánt kiválasztással.
Bővebben: Adatérvényesítés legördülő lista VBA-val az Excelben (7 alkalmazás)
2. Automatikusan kitöltött adatérvényesítés legördülő lista kombinált mezővel ActiveX-vezérlőkből
Csak a ActiveX vezérlő az automatikus adatérvényesítéshez.
1. lépés:
- Válassza ki a címet. Beillesztés csoport a Fejlesztő tab.
- Válassza ki a címet. Combo Box a ActiveX vezérlő .
2. lépés:
- Helyezze a Combo Box az adatkészlet bármely üres helyére.
- Ezután nyomja meg az egér jobb gombját.
- Válassza ki a címet. Tulajdonságok a listáról.
3. lépés:
- Most pedig tegye C5 a Összekapcsolt cella mező, mivel az adatok a C5 sejt .
- Tegye a $B$5:$B$9 a oldalon ListFillRange mező.
- Válassza ki a címet. 1-fmMatchEntryComplete a MatchEntry mezőt, és mentse a módosításokat.
4. lépés:
- Most tiltsa le a Tervezési mód a Fejlesztő tab.
5. lépés:
- Most tegye be bármelyik betűt a kombinált mezőbe, és megjelenik a javaslat. És végül, az adatok megtekinthetők lesznek a C5 sejt .
Bővebben: Hogyan hozzon létre Excel legördülő listát az adatérvényesítéshez (8 mód)
Következtetés
Ebben a cikkben a következő feladatokat végeztük el adatérvényesítés a legördülő listából Az Excel legördülő listájából az adatok érvényesítésének automatikus kiegészítését adtuk hozzá. Remélem, ez kielégíti az Ön igényeit. Kérem, nézze meg a weboldalunkat. Exceldemy.com és tegye meg javaslatait a megjegyzés rovatban.