序论

列表框（ListBox）是最常用的VBA窗体控件之一。竣事列表框项见地上移下移功能，不错达到自界说排序的后果。

UI运筹帷幄

这里主要使用到了一个列表框和两个按钮控件，主界面运筹帷幄和关联控件定名如下所示。

VBA竣事代码

1.窗体开动化事件

Private Sub UserForm_Initialize() ListBox1.AddItem "张三" ListBox1.AddItem "李四" ListBox1.AddItem "王五" ListBox1.AddItem "赵六" ListBox1.AddItem "孙七" ListBox1.AddItem "周八" ListBox1.AddItem "吴九" ListBox1.AddItem "郑十"End Sub

2.上移按钮单击事件

Private Sub cmdbUp_Click() Dim i As Integer ' 确保ListBox有选中的技俩 If ListBox1.ListIndex <> -1 Then ' 遍历列表框的技俩 For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) And i <> 0 Then temp = ListBox1.List(i) ListBox1.List(i) = ListBox1.List(i - 1) ListBox1.List(i - 1) = temp '保握列表框选中的技俩不变 ListBox1.Selected(i - 1) = True Exit For End If Next i End IfEnd Sub

3.下移按钮单击事件

Private Sub cmdbDown_Click() Dim i As Integer ' 确保ListBox有选中的技俩 If ListBox1.ListIndex <> -1 Then ' 遍历列表框的技俩 For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) And i <> ListBox1.ListCount - 1 Then tempp = ListBox1.List(i) ListBox1.List(i) = ListBox1.List(i + 1) ListBox1.List(i + 1) = tempp '保握列表框选中的技俩不变 ListBox1.Selected(i + 1) = True Exit For End If Next i End IfEnd Sub

推选阅读

基于Excel VBA运筹帷幄的抽奖系统欺诈VBA操作Excel称呼惩办器欺诈VBA一键将多个单位格转为复选框

思了解更多精彩试验，快来缓和VBAMatrix