Excel ListView的双击添加响应事件，修改成将记录录入到（导出工作表！单元格
ExcelListView的双击添加响应事件，修改成将记录录入到（导出工作表！单元格中）PrivateSubListView1_DblClick()i=Cells(Row...
Excel ListView的双击添加响应事件，修改成将记录录入到（导出工作表！单元格中）
Private Sub ListView1_DblClick()
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(i, 1).Value = ListView1.SelectedItem.Text
Cells(i, 2).Value = ListView1.SelectedItem.SubItems(1)
Cells(i, 3).Value = ListView1.SelectedItem.SubItems(2)
Cells(i, 4).Value = ListView1.SelectedItem.SubItems(3)
End Sub 展开
Private Sub ListView1_DblClick()
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(i, 1).Value = ListView1.SelectedItem.Text
Cells(i, 2).Value = ListView1.SelectedItem.SubItems(1)
Cells(i, 3).Value = ListView1.SelectedItem.SubItems(2)
Cells(i, 4).Value = ListView1.SelectedItem.SubItems(3)
End Sub 展开
1个回答
展开全部
再加以下代码：
range(cells(i,1),cells(i+4,1)).copy
sheets("导出工作表").select
j=cells(rows.count,1).end(upxl).row
cells(j+1,1).paste
range(cells(i,1),cells(i+4,1)).copy
sheets("导出工作表").select
j=cells(rows.count,1).end(upxl).row
cells(j+1,1).paste
更多追问追答
追答
刚写错了是end(xlup)
追问
😊谢谢！明天看看是否可以
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
