xiao77小说 讹诈VBA已矣列表框项盘算推算上移下移功能

引子xiao77小说

列表框（ListBox）是最常用的VBA窗体控件之一。已矣列表框项盘算推算上移下移功能，不错达到自界说排序的效劳。

UI想象

这里主要使用到了一个列表框和两个按钮控件，主界面想象和筹商控件定名如下所示。

VBA已矣代码xiao77小说

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一键将多个单位格转为复选框

思了解更多精彩骨子xiao77小说，快来温雅VBAMatrix