fistview双击数据调用代码请教

winsonpwr · 发表于 2024-7-25 09:31

想请教一下,在listview数据出现后,选中其中一行数据,如何双击把选中的那一行的第一列(序号)的值写到excel表的一个单元格内?
简单说就是,双击数据行-获取序号-写入excel的单元格内

例如选中第3条数据,那么excel表sheet1的M8单元格内就会写入数字3

截图20240725092338.jpg

3190496160 · 发表于 2024-7-25 09:53

上传你的附件才可能帮到你的

winsonpwr · 发表于 2024-7-25 10:40

本帖最后由 winsonpwr 于 2024-7-25 12:19 编辑

3190496160 发表于 2024-7-25 09:53
上传你的附件才可能帮到你的

刚刚找了一下代码,然后想了想已经写出来了

Private Sub ListView1_DblClick()
Set ctrl = Me.Controls("ListView1")
      rowSelected = ctrl.SelectedItem.Index          ' 获取当前ListView被选择的行号
      idx = ctrl.ListItems(rowSelected).Text          ' 获取被选择行第1列信息

      MsgBox "选中的是" & idx & "序号"
      Sheet1.Range("M19").Value = idx       '向sheet1工作表M19单元格写入序号
End Sub

		自动登录	找回密码
密码			免费注册

[求助] fistview双击数据调用代码请教