[已解决]LIstview选择行,双击输入到单元格

心灵之舞

Private Sub ListView1_DblClick()
    With Sheets("sheet2")
       Rows.Activate
       .Cells(Row, 2) = ListView1.SelectedItem.SubItems(1)
        .Cells(Row, 3) = ListView1.SelectedItem.SubItems(3)
        End With LISTVIEW双击输入问题.rar (23.84 KB, 下载次数: 153)

2014-4-26 12:57 上传

点击文件名下载附件
     
End Sub

1、从LISTVIEW中双击选择输入，只输入LISTVIEW中第2和第四列。

2、选择行单元格，可以对应输入到此行第二个和第三个单元格。

请论坛里的老师帮助，谢谢！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2014-4-26 13:12

1. Private Sub ListView1_DblClick()
   
2.     With Sheets("sheet2")
   
3.        .Cells(ActiveCell.Row, 2) = ListView1.SelectedItem.SubItems(1)
   
4.         .Cells(ActiveCell.Row, 3) = ListView1.SelectedItem.SubItems(3)
   
5.         End With
   
6.      
   
7. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Private Sub ListView1_DblClick()
   
2.     With Sheets("sheet2")
   
3.        .Cells(ActiveCell.Row, 2) = ListView1.SelectedItem.SubItems(1)
   
4.         .Cells(ActiveCell.Row, 3) = ListView1.SelectedItem.SubItems(3)
   
5.         End With
   
6.      
   
7. End Sub

复制代码

心灵之舞

谢谢您的指点,已测试成功!