[已解决]两个问题请高手帮忙在此叩谢

kenliu75

有两个问题无法搞定希望哪位高手能帮忙谢谢。 两个问题谢谢.rar (48.1 KB, 下载次数: 16)

2011-11-9 10:51 上传

点击文件名下载附件

第一：如何把listview选中的数据删除，同时将工作表相应数据也一样删除。

第二：如何把listview选中的数据修改，同时将工作表相应数据也一样修改。

最佳答案

月排行榜 / 总排行榜

QLZ0602

2011-11-9 13:48

在"Y列"增加一个字段 "=row()" 保存该记录的行号 保证唯一性   
再增加一个 tet25  储存 行号
这样就可以 利用行号 进行删除/修改了

Private Sub CommandButton3_Click() '修改键

Dim x%, y%
With Sheets("工资单记录")   '工作表为sheet1
    x = Me.Controls("Tet25").Text
        For y = 1 To 25
            .Cells(x, y) = Me.Controls("Tet" & y).Text
        Next y
  End With
  Call CommandButton2_Click
End Sub
Private Sub CommandButton4_Click()    '删除键
Rows(Me.Controls("Tet25").Text).Delete
Call CommandButton2_Click
End Sub
Private Sub CommandButton1_Click() '导入到工资单记录
Dim x%, y%
With Sheets("工资单记录")   '工作表为sheet1
    x = .[A65536].End(xlUp).Row + 1
        For y = 1 To 24
            .Cells(x, y) = Me.Controls("Tet" & y).Text
        Next y
            .Cells(x, 25) = "=row()"
  End With
  Call CommandButton2_Click
End Sub

跳转到最佳答案楼层

liuguansky

listview选中的数据可以依选中的行数，在工作表数据中进行循环[倒序]，进行删除，再把Tet2_Change的代码改成一个SUB，运行它一次，就可以更新LISTVIEW的数据

修改类似,判断选中的行，在工作表中进行循环，进行修改，再运行SUB。

QLZ0602

在"Y列"增加一个字段 "=row()" 保存该记录的行号 保证唯一性   
再增加一个 tet25  储存 行号
这样就可以 利用行号 进行删除/修改了

Private Sub CommandButton3_Click() '修改键

Dim x%, y%
With Sheets("工资单记录")   '工作表为sheet1
    x = Me.Controls("Tet25").Text
        For y = 1 To 25
            .Cells(x, y) = Me.Controls("Tet" & y).Text
        Next y
  End With
  Call CommandButton2_Click
End Sub
Private Sub CommandButton4_Click()    '删除键
Rows(Me.Controls("Tet25").Text).Delete
Call CommandButton2_Click
End Sub
Private Sub CommandButton1_Click() '导入到工资单记录
Dim x%, y%
With Sheets("工资单记录")   '工作表为sheet1
    x = .[A65536].End(xlUp).Row + 1
        For y = 1 To 24
            .Cells(x, y) = Me.Controls("Tet" & y).Text
        Next y
            .Cells(x, 25) = "=row()"
  End With
  Call CommandButton2_Click
End Sub

xayuhe

呵呵 本来打算帮楼主重新写一下的 不过正好有一个例子程序 发给楼主参考

laosanjie

跟着学习一下