Ugrás a tartalomra

Hogyan töltse fel a Combo Box-ot az elnevezett tartomány adataival az Excelben?

Megadhat egy Combo mezőt (ActiveX Control) egy bizonyos tartomány adataival, ha hozzáadja a tartományt a kombinációs mező ListFillRange tulajdonságaihoz. De tudod, hogyan töltsd fel a Combo mezőt egy megnevezett tartomány adataival az Excelben? Például megnevezett egy cellatartományt a munkalapon, és most meg kell adnia ezt a tartománynevet egy Combo mezőben. Ha egy kombinációs mezőben kiválasztja a tartomány nevét, akkor a megnevezett tartomány összes cellájának értéke automatikusan feltöltődik egy másik Combo mezőben. Ez a cikk egy VBA módszert mutat be a probléma megoldására.

Töltse fel a Combo mezőt egy megnevezett tartomány adataival, VBA kóddal


Töltse fel a Combo mezőt egy megnevezett tartomány adataival, VBA kóddal

Kérjük, tegye a következőket, hogy feltöltse a Combo mezőt egy megnevezett tartomány adataival az Excelben.

1. Kérjük, válassza ki a munkalapon a teljes fejléceket (ebben az esetben az A1: E1-et választom), majd írjon be egy nevet a név Box az alábbi képernyőképen látható.

2. Jelölje ki az egyes oszlopok adatait, a fejlécük kivételével, majd nevezze el az oszlopot külön a név Box. Lásd a képernyőképet:

Ebben az esetben az A2: A8, B2: B8, C2: C8, D2: D8 és E2: E8 tartományokat külön dátumként, boltként, tételként, értékesítésként és hétköznapként neveztem meg.

3. Ezután kattintson a Combo mezőbe Fejlesztő > betétlap > Combo Box (ActiveX vezérlő). Lásd a képernyőképet:

4. Ismételje meg a 3. lépést egy másik Combo mező beillesztéséhez a munkalapba.

5. Kattintson a jobb gombbal a lap fülre, majd kattintson a gombra Kód megtekintése a helyi menüből. Lásd a képernyőképet:

6. A nyílásban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a VBA kód alatt a Kód ablakba.

VBA kód: Töltse fel a Combo mezőt egy megnevezett tartomány adataival

Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
    Dim xRg As Range
    Set xRg = Range(Me.ComboBox1.Text)
    Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Set xRg = Range("Headers")
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Megjegyzések: A kódban a ComboBox1 annak a kombinációs mezőnek a neve, amelyen belül felsorolja az összes tartománynevet, a ComboBox2 pedig annak a kombinációs mezőnek a neve, amelyen belül a megadott nevű tartomány adatait feltöltik. A „Fejlécek” az 1. lépésben létrehozott tartománynév.

7. Kattintson a gombra a Design Mode kikapcsolásával Fejlesztő > Tervezési mód.

8. Kattintson a munkalap bármelyik cellájára a kód aktiválásához. Kattintson az első kombinációs mezőben található nyíl gombra, és láthatja, hogy az összes megnevezett tartomány fel van sorolva. Lásd a képernyőképet:

Ha megnevez egy tartományt az első kombinációs mezőben, akkor a megfelelő cellaadatokat a második kombinációs mezőben kell feltölteni, az alábbi képernyőkép szerint:


Könnyen létrehozhat legördülő listát az Excel jelölőnégyzeteivel:

Az Legördülő lista jelölőnégyzetekkel hasznossága Kutools az Excel számára segítségével könnyedén létrehozhat egy legördülő listát egy meghatározott tartományba tartozó jelölőnégyzetekkel, az aktuális munkalap, az aktuális munkafüzet vagy az összes megnyitott munkafüzettel az Ön igényei szerint.
Töltse le és próbálja ki most! (30 napos ingyenes túra)


Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations