VBA自学应用(11)——移动列表框元素
2020-02-04 14:28
78 查看
在自学应用10我们已经讲过了如何给列表框添加元素,今天我们就来看看如何移动列表框的元素并且数据源的位置也随之变动。
- 首先我们用listbox的list属性添加元素,这里自学应用10已经提过,不再做赘述
- 如图是我的窗体部分
在上移按钮中键入如下代码
Private Sub CommandButton1_Click() With ListBox1 j = .ListIndex Select Case j Case -1 MsgBox "选择一行后在操作" Case 0 MsgBox "已经是第一行" Case Is > 0 arr = .List(j) .List(j) = .List(j - 1) .List(j - 1) = arr .ListIndex = j - 1 End Select End With End Sub
在下移按钮中键入如下代码
Private Sub CommandButton3_Click() With ListBox1 a = .ListIndex Select Case a Case -1 MsgBox "请选择一行再操作" Case .ListCount - 1 MsgBox "是最后一行啦!" Case Is < .ListCount - 1 brr = .List(a) .List(a) = .List(a + 1) .List(a + 1) = brr .ListIndex = a + 1 End Select End With End Sub
在保存按钮中键入如下代码
Private Sub CommandButton2_Click() crr = ListBox1.List Sheet5.Range("a1").Resize(UBound(crr), UBound(crr, 2)) = crr End Sub
这样就完成了数据的交换!
- 点赞
- 收藏
- 分享
- 文章举报
相关文章推荐
- 【JavaScript】列表元素上下左右移动:Select和Option的应用
- 【JavaScript】列表元素上下左右移动:Select和Option的应用
- VBA自学应用(12)——允许列表框多项选择和多列
- DayDayUP_Python自学记录[11]_列表自动生成
- 谷歌移动应用强调设计元素:向极简风格转型
- 移动应用框架 ionic2 自学须知的基本知识点
- 【Python】第8次练习:列表——程序填空题 -合并队列、列表元素"零"的移动、列表逆序输出、第K序元素查找
- iOS 11适配:LSApplicationWorkspace无法获取应用安装列表解决方案
- Unity3D自学笔记——架构应用(八)人物移动与角色相机的跟随
- Smobiler基于.NET框架开发移动应用内部系统—消息列表功能(开发日志五)
- python中列表元素移动
- 苹果终于入伙 WebRTC,新一代移动 Web 应用爆发路上还有哪些坑?(6/11)
- 坚持#第214天~零基础自学云计算基础语言应用11~15节
- 俩个列表内的元素左右移动
- jquery的综合应用2(select里option元素的移动)
- 实现列表框元素的左右移动
- 2016级移动应用开发在线测试11-线程
- Smobiler基于.NET框架开发移动应用内部系统—消息列表功能(开发日志六)
- 学习笔记:用python将列表左、右两侧元素首尾移动的简单方法
- JavaScript Select和Option列表元素上下左右移动