Hogyan lehet gyorsan mozgatni az elemeket két listamező között az Excelben?
Megpróbálta már az elemeket egyik listából a másikba egy listamezőbe mozgatni, amire szüksége van az alábbi képernyőképen? Itt beszélek erről a műveletről az Excel programban.
Elemek áthelyezése a listamezők közé
Elemek áthelyezése a listamezők közé
Nincs beépített funkció, amely segíthet a munka befejezésében, de van egy VBA-kódom, amely tehet egy szívességet.
1. Először létre kell hoznia egy olyan adatok listáját, amelyek a hívó új lap listamezőinek elemeként jelennek meg Admin_Lists.
2. Ezután válassza ki ezeket az adatokat, és lépjen a Név négyzetet, hogy nevet adjon nekik Tétel lista. Lásd a képernyőképet:
3. Ezután kattintson a két listamezőt tartalmazó lapra Fejlesztő > betétlap > Lista doboz (Active X Control), és rajzoljon két lista mezőt. Lásd a képernyőképet:
Ha a Fejlesztő lap el van rejtve a szalagod, Hogyan jelenítse meg / jelenítse meg a fejlesztői lapot az Excel 2007/2010/2013 szalagban? ez a cikk megmondja, hogyan kell megmutatni.
4. Ezután kattintson Fejlesztő > betétlap > Parancs gomb (Aktív X vezérlés), és húzzon négy gombot két listamező közé. Lásd a képernyőképet:
Most átnevezheti a négy parancsgombot új nevekkel.
5. Válassza ki az első parancsgombot, majd kattintson Ingatlanok, és a Ingatlanok ablaktáblán adjon nevet BTN_moveAllRight hozzá, és írja be >> a mellette lévő szövegdobozba Képaláírás. Lásd a képernyőképet:
6. Ismételje meg az 5. lépést az utolsó három parancsnév átnevezéséhez az alábbi nevekkel, és írja be a különböző nyílokat a feliratokba is. Lásd a képernyőképet:
BTN_MoveSelectedRight
BTN_moveAllLeft
BTN_MoveSelectedLeft
7. Kattintson a jobb egérgombbal a lista nevét és a parancsgombokat tartalmazó lap nevére, majd válassza a lehetőséget Kód megtekintése a helyi menüből. Lásd a képernyőképet:
8. Másolja és illessze be a makrókód alatt a Modulok parancsfájl, majd mentse a kódot, és zárja be a Microsoft Visual Basic for Applications ablak. Lásd a képernyőképet
VBA: Elemek áthelyezése két listamező között
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20171117
Dim xCell As Range
Dim xRg As Range
Set xRg = Sheets("Admin_Lists").Range("ItemList")
Me.ListBox1.Clear
Me.ListBox2.Clear
With Me.ListBox1
.LinkedCell = ""
.ListFillRange = ""
For Each xCell In xRg
If xCell <> "" Then
.AddItem xCell.Value
End If
Next xCell
End With
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub BTN_MoveSelectedLeft_Click()
Call moveSigle(Me.ListBox2, Me.ListBox1)
End Sub
Private Sub BTN_MoveSelectedRight_Click()
Call moveSigle(Me.ListBox1, Me.ListBox2)
End Sub
Private Sub BTN_moveAllLeft_Click()
Call moveAll(Me.ListBox2, Me.ListBox1)
End Sub
Private Sub BTN_moveAllRight_Click()
Call moveAll(Me.ListBox1, Me.ListBox2)
End Sub
Sub moveAll(xListBox1 As Object, xListBox2 As Object)
Dim I As Long
For I = 0 To xListBox1.ListCount - 1
xListBox2.AddItem xListBox1.List(I)
Next I
xListBox1.Clear
End Sub
Sub moveSigle(xListBox1 As Object, xListBox2 As Object)
Dim I As Long
For I = 0 To xListBox1.ListCount - 1
If I = xListBox1.ListCount Then Exit Sub
If xListBox1.Selected(I) = True Then
xListBox2.AddItem xListBox1.List(I)
xListBox1.RemoveItem I
I = I - 1
End If
Next
End Sub
9. Ezután lépjen egy másik lapra, majd térjen vissza ahhoz a laphoz, amely tartalmazza a listamezőket, most már láthatja, hogy a lista adatai felsorolásra kerültek az első listamezőben. És kattintson a parancsgombokra az elemek két listamező közötti mozgatásához.
Kijelölés áthelyezése
Mozgassa az összeset
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!