新手学VBA数组--示例1

fjmxwrs · 发表于 2010-8-8 11:01

Private Sub CommandButton1_Click()     Dim R As Integer     Dim X As Long     R = Sheets.Count     Dim Arr(1 To 10)  As Variant '这个为什么不能定义为Arr(1 to R)     For X = 1 To R         Arr(X) = Sheets(X).Name         Cells(X + 1, 1) = Arr(X)     Next X End Sub

兰色幻想 · 发表于 2010-8-8 11:03

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用fjmxwrs在2010-8-8 11:01:00的发言：

rivate Sub CommandButton1_Click()     Dim R As Integer     Dim X As Long     R = Sheets.Count     Dim Arr(1 To 10)  As Variant '这个为什么不能定义为Arr(1 to R)     For X = 1 To R         Arr(X) = Sheets(X).Name         Cells(X + 1, 1) = Arr(X)     Next X End Sub </div>Dim 声明数组时，数组的区域间不能使用变量

fjmxwrs · 发表于 2010-8-8 11:09

也就是说此例不知道多张表时，超10张，但不知道，怎么办？是不是就应该把这个数组定义大些（箱子多点）可是大到什么程度要怎么来界定或表示？另外，怎么来显示一下使用的运行时间是多少？ msgbox  tine这个时间要怎么写？我想测试下这个运行的时间

[此贴子已经被作者于2010-8-8 11:11:52编辑过]

fjmxwrs · 发表于 2010-8-8 11:20

原来这样就行了Sub 数组1()     Dim R As Integer     Dim X As Long     R = Sheets.Count     Dim Arr  As Variant      For X = 1 To R         Arr = Sheets(X).Name         Cells(X + 1, 1) = Arr     Next X End Sub

兰色幻想 · 发表于 2010-8-8 12:16

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用fjmxwrs在2010-8-8 11:09:00的发言： 也就是说此例不知道多张表时，超10张，但不知道，怎么办？是不是就应该把这个数组定义大些（箱子多点）可是大到什么程度要怎么来界定或表示？另外，怎么来显示一下使用的运行时间是多少？ msgbox  tine这个时间要怎么写？我想测试下这个运行的时间 </div>sub 测试时间（）dim tt=timer   '记录开始运行时间for x=1 to 1000000 next msgbox timer-t  '现在的时间减原来的时间tend sub

thebirdfly · 发表于 2010-8-8 19:52

Sub 式1()   Dim arr As Integer   Dim ayy As Integer   For arr = 1 To 10      arr = ayy    Next ayy End Sub就这样吗？

thebirdfly · 发表于 2010-8-8 19:54

有点难[em06]

主机 · 发表于 2010-8-9 10:04

个人理解：数组就是存在内存中的一个数据中转站，可以对运行速度有提升。 不懂：26 楼和23楼的代码有什么区别？23楼：arr（1 to 10)  26楼  arr    23楼给了1-10个位置。26楼还算数组吗？在本地窗口没看到数组的十字

新手学VBA数组--示例1

新手学VBA数组--示例1

兰色幻想 · 发表于 2010-8-9 10:19

26楼的只是一个变量而已

主机 · 发表于 2010-8-9 11:03

谢谢兰版！

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

[资料] 新手学VBA数组--示例1