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:
A 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:
- Hogyan lehet másolni a Combo Box értékét az Excel aktív cellájába?
- Hogyan jelenítheti meg a dátumformátumot az Excel kombinált mező kimenetében?
- Hogyan lehet megakadályozni vagy letiltani az Excel kombinációs mezőbe történő beírást?
- Hogyan lehet feltölteni egy kombinált mezőt a megadott adatokkal a nyitott munkafüzetben?
- Hogyan lehet automatikusan feltölteni a többi cellát, amikor kiválasztja az értékeket az Excel legördülő listában?
A legjobb irodai hatékonyságnövelő eszközök
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...
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!