[已解决]如何动态生成数组，并循环报出数组的各值。

事后诸葛亮

如题，请帮忙下载附件 解决问题 谢谢

代码修改中最终生成的数组必须用“Arr临时数组”表示
可以从下拉列表中选择，然后依次报出生成新数组的值。
也可以自行输入，自己输入时，生成后的数组，在汇报时只需要报出 新数组“Arr临时数组”的第一个也是唯一一个 值 ComboBox1.text
必须用数组循环的方式“汇报”
如何修改代码？谢谢。我写的代码有问题。


原始文件： 函数调用.rar (11.99 KB, 下载次数: 16)

2013-6-11 15:43 上传

点击文件名下载附件
最佳答案修改之后的文件： 调试成功之后的函数调用.rar (12.4 KB, 下载次数: 36)

2013-6-11 21:47 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-11 18:21

1. Private Sub ComboBox1_Change()
   
2. 
   
3.     For i = 1 To Col末列号
   
4.         If ComboBox1.Text = Cells(1, i) Then
   
5.             Row末行号 = Cells(Rows.Count, i).End(xlUp).Row
   
6.             If Row末行号 = 2 Then
   
7.                 ReDim Arr临时数组(1 To 1)
   
8.                 Arr临时数组(1) = Cells(2, i)
   
9.             Else
   
10.                 Arr临时数组 = Application.Transpose(Range(Cells(2, i), Cells(Row末行号, i)))
    
11.             End If
    
12.             Exit Sub
    
13.         End If
    
14.     Next
    
15. End Sub
    
16. 
    
17. Private Sub CommandButton1_Click()
    
18.     Dim str$
    
19.     For k = 1 To UBound(Arr临时数组)
    
20.         str = str & "arr(" & k & ")=" & Arr临时数组(k) & vbCrLf
    
21.     Next k
    
22.     MsgBox str
    
23. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub ComboBox1_Change()
   
2. 
   
3.     For i = 1 To Col末列号
   
4.         If ComboBox1.Text = Cells(1, i) Then
   
5.             Row末行号 = Cells(Rows.Count, i).End(xlUp).Row
   
6.             If Row末行号 = 2 Then
   
7.                 ReDim Arr临时数组(1 To 1)
   
8.                 Arr临时数组(1) = Cells(2, i)
   
9.             Else
   
10.                 Arr临时数组 = Application.Transpose(Range(Cells(2, i), Cells(Row末行号, i)))
    
11.             End If
    
12.             Exit Sub
    
13.         End If
    
14.     Next
    
15. End Sub
    
16. 
    
17. Private Sub CommandButton1_Click()
    
18.     Dim str$
    
19.     For k = 1 To UBound(Arr临时数组)
    
20.         str = str & "arr(" & k & ")=" & Arr临时数组(k) & vbCrLf
    
21.     Next k
    
22.     MsgBox str
    
23. End Sub

复制代码

hwc2ycy

你要是数据多了，用这个MSGBOX来显示的话不大好看了。

事后诸葛亮

hwc2ycy 发表于 2013-6-11 18:21
你要是数据多了，用这个MSGBOX来显示的话不大好看了。

太聪明了 呵呵 谢谢