LISTVIEW 选中项上下移动以及勾选的问题

lagssl

【问题一】


以下代码，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)

2024-12-6 09:41 上传

点击文件名下载附件

lagssl

查了很多资料，还是没有解决。顶一下。

lagssl

再顶一下，有没有老师帮忙看一下。感谢感谢！

chxw68

问题一没有看，问题二修改好了。

lagssl

chxw68 发表于 2024-12-14 12:39
问题一没有看，问题二修改好了。

感谢chxw老师，我学习一下。