关于listview，请问该代码应该怎么修改？谢谢！
PrivateSub确定_Click()DimiAsIntegerWithListView1Fori=1To.ListItems.CountIf.ListItems(i)...
Private Sub 确定_Click()
Dim i As Integer
With ListView1
For i = 1 To .ListItems.Count
If .ListItems(i).Checked = True Then
Sheet1.Range("G" & Target.Row & ":G" & Target.Row - 1 + i) = .ListItems(i)
End If
Next
End With
End Sub
请问在listview中选定的项目，按顺序填充到活动单元格及以下区域，这个代码应该怎么改？谢谢了！ 展开
Dim i As Integer
With ListView1
For i = 1 To .ListItems.Count
If .ListItems(i).Checked = True Then
Sheet1.Range("G" & Target.Row & ":G" & Target.Row - 1 + i) = .ListItems(i)
End If
Next
End With
End Sub
请问在listview中选定的项目，按顺序填充到活动单元格及以下区域，这个代码应该怎么改？谢谢了！ 展开
2个回答
展开全部
为每个ITEM绑定个事件来处理
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
