墙上那一串串红辣椒——数组入门讲座

mqcwl

建议版主把该贴命名为利用VBA创建数组。

山菊花

QUOTE:

以下是引用mannewer123在2006-10-27 0:53:19的发言：

QUOTE:

Private Sub CommandButton1_Click()
    arr = Sheet2.Range("a1:e83")
    Range("a1:e83") = arr
End Sub

如果改成:sheet1.range("a1:e83")=arr是不是更好理解一点

一开始没看范例文件，还以为都在sheet2中操作了,总觉得怪怪的,呵呵.

这样好理解，但罗嗦。省略工作簿对象表示本工作簿，省略工作表对象表示本工作表，理解了就一样。

QUOTE:

另外如果上面的代码直接写成:

sheet1.range("a1:e83")=sheet2.range("a1:e83")  好象是一样的吧

我想问的是:是不是有时候先定义一个数组存储变量,能得到一些效果,而这效果是

sheet1.range("a1:e83")=sheet2.range("a1:e83")   没办法达到的. 

先看到第七吧~~~

本操作一样。但我们今天在说数组，学习用数组的方法操作。实际中，更多时候不是直接复制数据，而是通过一系列的中间加工，生成新的数据，输出到另一区域，这时，range()=range()就行不通，就像去除重复值那个例子。

山菊花

QUOTE:

以下是引用mqcwl在2006-10-27 7:51:22的发言：
建议版主把该贴命名为利用VBA创建数组。

这样理解不对。数组是VBA的一个组成部分，不是VBA以外的东西，加上VBA可以区别函数的数组公式。

VBA之数组启蒙班

不太好听，是不是？

hxhgxy

非常容易理解的教材，谢谢！

刘铁

谢谢老师教导.

我对您的敬仰犹如滔滔江水、连绵不绝.

高人呀.敬礼!

邦斯舅舅

QUOTE:

以下是引用山菊花在2006-10-26 16:11:14的发言：

与Array()和Split()相比，由工作表区域创建数组更加直观而简易，一个等号便解决问题：
如：用Sheet2工作表A1:E83的数据创建一个数组：

QUOTE:

Private Sub CommandButton1_Click()
    arr = Sheet2.Range("a1:e83")
End Sub

如果把该数据复制到Sheet1工作表相同区域，用数组操作，代码如下：

QUOTE:

Private Sub CommandButton1_Click()
    arr = Sheet2.Range("a1:e83")
    Range("a1:e83") = arr
End Sub

共两句，前一句把数据保存到数组，第二句，把数组内容写入到工作表。

请教菊花, 我想把A表的数据保存到数组, 再把数据内容写入到B表呢,又该如何?

在学习中把Sheet2更改在我需要的数据表, 代码如下:

Private Sub CommandButton1_Click()
    arr = 总表.Range("b2:j11")
    配件表.Range("b2:j11") = arr
End Sub

但老提示"运行时错误'424' 要求对象"

还有, 如果单元格上面有个图像, 又如何一并引用过来?   ~ 这个估计很难:)

注:  其中,工作薄中有二个表, 一个为"配件表" 一个为"总表"

ez4g4yl7.rar (12.5 KB, 下载次数: 101)

2006-10-27 15:26 上传

点击文件名下载附件

[此贴子已经被作者于2006-10-27 15:27:40编辑过]

chenyl89

回复邦斯舅舅

 

Private Sub CommandButton1_Click()

    arr = Sheets("总表").Range("b2:j11")

    Sheets("配件表").Range("b2:j11") = arr

End Sub

邦斯舅舅

非常感谢,chenyl89

如果单元格包含个图像, 又如何一并引用过来? 

这个对我很关键啊..

homego

山菊花大哥真是奇人呀.谢谢!!

name004

好好贴！好好学习天天向上