[已解决]新学习vba的菜鸟，关于数组问题，求大侠相助

1049671600

新学习vba的小菜鸟一个，今天在使用listview的时候，想把在listview勾选的数据重新存入到一个新的数组中，以供重新使用存入数组中数据的调用。

能力有限，只能写出来点击存入后，先将数据写入excel表格中，再转存到数组中。

能不能有更好的办法，能一键将勾选的数据直接循环到数组中。

最佳答案

月排行榜 / 总排行榜

金樽空对月

2022-4-15 17:12

1. Private Sub CommandButton6_Click()
   
2. Dim br(1 To 10000, 1 To 3)
   
3.     With ListView1
   
4.         For i = 1 To .ListItems.Count
   
5.             If .ListItems(i).Checked = True Then
   
6.                 h = h + 1
   
7.                 For j = 1 To 3
   
8. '                   Cells(h + 1, j) = .ListItems(i).SubItems(j) '装入单元格内
   
9.                    br(h, j) = .ListItems(i).SubItems(j)  '装入数组
   
10.                 Next
    
11.             End If
    
12.         Next
    
13.     End With
    
14.     Sheet1.Range("a1").Resize(h, 3) = br
    
15. End Sub

复制代码

跳转到最佳答案楼层

金樽空对月

1. Private Sub CommandButton6_Click()
   
2. Dim br(1 To 10000, 1 To 3)
   
3.     With ListView1
   
4.         For i = 1 To .ListItems.Count
   
5.             If .ListItems(i).Checked = True Then
   
6.                 h = h + 1
   
7.                 For j = 1 To 3
   
8. '                   Cells(h + 1, j) = .ListItems(i).SubItems(j) '装入单元格内
   
9.                    br(h, j) = .ListItems(i).SubItems(j)  '装入数组
   
10.                 Next
    
11.             End If
    
12.         Next
    
13.     End With
    
14.     Sheet1.Range("a1").Resize(h, 3) = br
    
15. End Sub

复制代码

1049671600

金樽空对月 发表于 2022-4-15 19:05

非常感谢大虾的帮助。仿佛受到了很多新知识，茅塞顿开！