新手学VBA数组--示例1

兰色幻想 · 发表于 2010-8-3 10:20

前言：不要把VBA数组想的太神秘，它其实就是一组数字而已Sub 数组入门1()  Dim x As Integer   Dim arr(1 To 10) '创建一个可以盛下10个数的箱子，第一个位置是arr(1)，第二个位置用arr(2)..     For x = 1 To 10   '通过循坏向这个箱子里1-10个位置放入10个数        arr(x) = x  '箱子里依次放入数字1-10,即arr(1)=1,arr(2)=2....        Next x     '通过上面的循环,数组里装满了10个数字,下面就可以用arr(序数)得到相应位置的数了     MsgBox arr(5) '显示数组内第5个数字 End Sub

[此贴子已经被作者于2010-8-3 10:30:33编辑过]

兰色幻想 · 发表于 2010-8-3 10:31

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用无爱无恨在2010-8-3 10:28:00的发言： 这不是与一般的没啥样，只是用arr减少了赋值：Sub 式1()   Dim k As Integer   Dim X As Integer   For X = 1 To 10      k = X    Next X End Sub</div>你的K最终结果只是一个数（最后的10），不是一组

兰色幻想 · 发表于 2010-8-3 10:52

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用无爱无恨在2010-8-3 10:48:00的发言： 哪我加一行：cells(x,1)=x也能达到效果啊</div>你放在单元格了，也是一组数，只是它是显示在单元格中

sclxc · 发表于 2010-8-3 10:59

For x = 1 To 10   '通过循坏向这个箱子里1-10个位置放入10个数为什么我改成 for x = 10 to 19 就下标越界了呢哦，懂了，是arr(x) = x，这里x只能是1到10

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

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

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用sclxc在2010-8-3 10:59:00的发言：  For x = 1 To 10   '通过循坏向这个箱子里1-10个位置放入10个数为什么我改成 for x = 10 to 19 就下标越界了呢</div>开始都给这个数组编好号了，arr(1 to 10)  去看电影，电影院只有10排座位，你能坐到第11排的位置吗？

提拉米苏08 · 发表于 2010-8-3 11:20

<div class="msgheader">QUOTE:</div><div class="msgborder">小无， </div>你的不是鞋柜，我们的可以放好多鞋子的[em04]

[此贴子已经被作者于2010-8-3 14:17:23编辑过]

echolan · 发表于 2010-8-3 12:25

我来学习了。

liuliu66 · 发表于 2010-8-3 14:26

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用兰色幻想在2010-8-3 10:20:00的发言：   Dim x As Integer   Dim arr(1 To 10) '创建一个可以盛下10个数的箱子，第一个位置是arr(1)，第二个位置用arr(2)..     For x = 1 To 10   '通过循坏向这个箱子里1-10个位置放入10个数        </div>arr()就是那个箱子了，如果不用arr()，range("a1:a10")也可以代替这个箱子呀，这里用arr()有什么优势呢?

scl5801 · 发表于 2010-8-3 14:44

学习来啦

兰色幻想 · 发表于 2010-8-3 23:33

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用liuliu66在2010-8-3 14:26:00的发言： arr()就是那个箱子了，如果不用arr()，range("a1:a10")也可以代替这个箱子呀，这里用arr()有什么优势呢?</div>在内存中运算，远比调用单元格运算快的多，一个是光速，一个是蜗牛爬

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

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

评分