如何在Excel中的两个列表框之间快速移动项目？

网友投稿 182 2024-01-11

如何在Excel中的两个列表框之间快速移动项目？

您是否曾尝试根据需要将项目从一个列表框移动到另一个列表框，如下图所示？在这里，我将讨论Excel中的此操作。

在列表框之间移动项目

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

没有内置功能可以帮助您完成工作，但是我有一个VBA代码可以帮您一个忙。

1.首先，您需要创建一个数据列表，该数据列表将在新工作表的列表框中显示为项目，管理员列表.

2.然后选择这些数据并转到 Name

给他们起个名字的盒子物品清单。看截图：

3.然后在包含两个列表框的工作表中，单击 开发商 > 插页 > 列表框（Active X控件），并绘制两个列表框。看截图：

如果 开发商 标签页隐藏了您的功能区，如何在Excel 2007/2010/2013功能区中显示/显示开发人员选项卡？本文将告诉您如何显示它。

4。然后点击 开发商 > 插页 > 命令按钮（Active X控件），并在两个列表框之间绘制四个按钮。看截图：

现在用新名称重命名四个命令按钮。

5.选择第一个命令按钮，单击租房，而在租房窗格，给一个名字 BTN_moveAllRight 并输入 >> 进入旁边的文本框标题

。看截图：

6.重复步骤5，用下面的名称重命名最后三个命令按钮，然后在标题中键入不同的箭头。看截图：

BTN_MoveSelectedRight

BTN_moveAllLeft

BTN_向左移动所选内容

7.右键单击包含列表框和命令按钮的工作表名称，然后选择 查看代码

从上下文菜单中。看截图：

8.复制下面的宏代码并将其粘贴到模块脚本，然后保存代码并关闭 Microsoft Visual Basic应用程序 窗口。看截图

VBA：在两个列表框之间移动项目

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

Copy

9.然后转到另一个工作表，然后返回到包含列表框的工作表，现在您可以看到列表数据已在第一个列表框中列出。然后单击命令按钮以在两个列表框之间移动项目。

移动选择

全部移动

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！