|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 lagssl 于 2024-12-6 10:35 编辑
【问题一】
以下代码,listview中选中的一行,向上移动一行,可以顺利完成。
i = .selectedItem.Index
For m = 3 To Sheet3.Range("EN65536").End(xlUp).Row
If Sheet3.Cells(m, 144) = .ListItems(i) Then
Sheet3.Cells(m - 1, 144) = .ListItems(i)
Sheet3.Cells(m, 144) = .ListItems(i - 1)
End If
Next
以下代码,把选中行向下移动一行时,会把表格中其他的数据覆盖了。
i = .selectedItem.Index
For m = 3 To Sheet3.Range("EN65536").End(xlUp).Row
If Sheet3.Cells(m, 144) = .ListItems(i) Then
Sheet3.Cells(m + 1, 144) = .ListItems(i)
Sheet3.Cells(m, 144) = .ListItems(i + 1)
End If
Next
【问题二】
如何做到:
listview2中的项目,在listview3中也有时,listview2对应的项目前自动勾选。
listview2中的项目,没有在listview3中时,listview2不勾选。
不知道用哪个属性,翻了好久也没找到。
工作簿1.zip
(29.46 KB, 下载次数: 11)
|
|