excel 可不可以在VBA类模块里设置动态数组作为属性，然后在标准模块中给这个动态数 如何定义在VBA中定义一个动态数组？
excel \u6a21\u5757\u4e0e\u7c7b\u6a21\u5757\u7684\u533a\u522b\u662f\u4ec0\u4e48??\u7c7b\u522b\u662f\u4ec0\u4e48\uff1f
\u7c7b\u522b\u662f\u5bf9\u8c61\u7684\u5b9a\u4e49\u3002\u5176\u4e2d\u5305\u542b\u5bf9\u8c61\u52a8\u4f5c\u884c\u4e3a\u7684\u76f8\u5173\u4fe1\u606f\uff0c\u5305\u62ec\u5bf9\u8c61\u7684\u540d\u79f0\u3001\u65b9\u6cd5\u3001\u5c5e\u6027\u548c\u4e8b\u4ef6\u3002\u5b83\u5b9e\u9645\u4e0a\u4e0d\u662f\u5bf9\u8c61\u672c\u8eab\uff0c\u56e0\u4e3a\u5b83\u4e0d\u5b58\u5728\u4e8e\u5185\u5b58\u4e2d\u3002\u5f53\u6267\u884c\u7684\u7a0b\u5e8f\u4ee3\u7801\u53c2\u8003\u7c7b\u522b\u65f6\uff0c\u5c31\u5728\u5185\u5b58\u4e2d\u5efa\u7acb\u7c7b\u522b\u7684\u65b0\u6267\u884c\u4e2a\u4f53\uff0c\u5373\u5bf9\u8c61\u3002\u867d\u7136\u53ea\u6709\u4e00\u4e2a\u7c7b\u522b\uff0c\u4f46\u53ef\u5728\u5185\u5b58\u4e2d\uff0c\u4ece\u8be5\u7c7b\u522b\u5efa\u7acb\u591a\u4e2a\u76f8\u540c\u7c7b\u578b\u7684\u5bf9\u8c61\u3002
\u53ef\u4ee5\u628a\u7c7b\u522b\u770b\u4f5c\u300c\u7406\u8bba\u4e0a\u300d\u7684\u5bf9\u8c61 \u2014 \u4e5f\u5c31\u662f\u8bf4\uff0c\u5b83\u63d0\u4f9b\u5bf9\u8c61\u7684\u84dd\u56fe\uff0c\u4f46\u672c\u8eab\u5728\u5185\u5b58\u4e2d\u6ca1\u6709\u5b9e\u8d28\u5b58\u5728\u3002\u4ece\u8fd9\u4e2a\u84dd\u56fe\u53ef\u4ee5\u5efa\u7acb\u6570\u91cf\u4e0d\u9650\u7684\u5bf9\u8c61\u3002\u6bcf\u4e00\u4e2a\u4ece\u7c7b\u522b\u5efa\u7acb\u7684\u5bf9\u8c61\u90fd\u6709\u76f8\u540c\u7684\u6210\u5458\uff1a\u5176\u5c5e\u6027\u3001\u65b9\u6cd5\u548c\u4e8b\u4ef6\u3002\u4f46\u5404\u5bf9\u8c61\u90fd\u50cf\u72ec\u7acb\u5b9e\u4f53\u4e00\u6837\u8fd0\u4f5c\uff1b\u4f8b\u5982\uff0c\u4e00\u4e2a\u5bf9\u8c61\u7684\u5c5e\u6027\u53ef\u4ee5\u8bbe\u5b9a\u6210\u4e0e\u5176\u5b83\u76f8\u540c\u7c7b\u578b\u5bf9\u8c61\u4e0d\u540c\u7684\u503c\u3002
\u4e00\u4e2a Microsoft® Visual Basic® for Applications (VBA) \u9879\u76ee\u53ef\u4ee5\u5305\u542b\u4e24\u79cd\u4e0d\u540c\u7684\u7c7b\u522b\u6a21\u5757\uff1a\u4e00\u79cd\u662f\u57fa\u672c\u7c7b\u522b\u6a21\u5757\uff0c\u6ca1\u6709\u4efb\u4f55\u4f7f\u7528\u8005\u63a5\u53e3\u4e0e\u5176\u76f8\u5173\u8054\uff0c\u53e6\u4e00\u79cd\u662f\u4e0e\u7a97\u4f53\u6216\u5176\u5b83\u7ec4\u4ef6\u76f8\u5173\u8054\u7684\u7c7b\u522b\u6a21\u5757\u3002\u4e0e\u7a97\u4f53\u76f8\u5173\u8054\u7684\u7c7b\u522b\u6a21\u5757\u5176\u5b9e\u4e0e\u57fa\u672c\u7c7b\u522b\u6a21\u5757\u5b8c\u5168\u4e00\u6837\uff0c\u4f46\u53ea\u6709\u76f8\u5173\u8054\u7684\u7a97\u4f53\u5b58\u5728\u4e8e\u5185\u5b58\u4e2d\u65f6\uff0c\u5b83\u4eec\u624d\u5b58\u5728\u4e8e\u5185\u5b58\u4e2d\u3002\u6709\u76f8\u5173\u8054\u7c7b\u522b\u6a21\u5757\u4e4b\u5bf9\u8c61\u7684\u8303\u4f8b\u662f Userforms\u3001Microsoft® Access \u7a97\u4f53\u548c\u62a5\u8868\u3001Microsoft® Word ThisDocument \u7269\u4ef6\u3001\u8fd8\u6709 Microsoft® Excel ThisWorkbook \u548c SheetN \u7269\u4ef6\u3002
\u52a0\u5165\u7c7b\u522b\u6a21\u5757
\u82e5\u8981\u5728 Microsoft® Visual Basic® for Applications (VBA) \u9879\u76ee\u4e2d\u52a0\u5165\u7c7b\u522b\u6a21\u5757\uff0c\u8bf7\u5728 Visual Basic \u7f16\u8f91\u5668\u4e2d\u7684 [\u63d2\u5165] \u83dc\u5355\u4e0a\u6309\u4e00\u4e0b [\u7c7b\u522b\u6a21\u5757]\u3002\u7136\u540e\u5728 [\u5c5e\u6027] \u7a97\u53e3\u4e2d\u8bbe\u5b9a\u5176 Name \u5c5e\u6027\u6765\u547d\u540d\u7c7b\u522b\u6a21\u5757\u3002\u5207\u8bb0\u7c7b\u522b\u6a21\u5757\u5c06\u88ab\u89c6\u4e3a\u5bf9\u8c61\uff0c\u56e0\u6b64\u6700\u597d\u4f7f\u7528\u53ef\u63d0\u793a\u5bf9\u8c61\u529f\u80fd\u7684\u540d\u79f0\u3002\u6307\u5b9a\u7ed9\u7c7b\u522b\u6a21\u5757\u7684\u540d\u79f0\u4e5f\u5c06\u662f\u5b83\u663e\u793a\u5728\u5bf9\u8c61\u5bf9\u8c61\u68c0\u89c6\u5668 \u4e2d [\u7c7b\u522b] \u6e05\u5355\u4e0a\u7684\u540d\u79f0\u3002
\u82e5\u5df2\u9075\u5faa\u6807\u51c6\u6a21\u5757\u7684\u547d\u540d\u60ef\u4f8b\uff0c\u5728\u6b64\u5373\u53ef\u653e\u5f03\u4e09\u4e2a\u5b57\u6bcd\u7684\u524d\u7f00\u3002\u6700\u597d\u662f\u51ed\u76f4\u89c9\u6765\u4e3a\u5bf9\u8c61\u547d\u540d\u3002
\u5efa\u7acb\u7c7b\u522b\u7684\u65b0\u6267\u884c\u4e2a\u4f53
\u82e5\u8981\u5728\u7a0b\u5e8f\u4ee3\u7801\u4e2d\u4f7f\u7528\u81ea\u8ba2\u5bf9\u8c61\uff0c\u8bf7\u5148\u5efa\u7acb\u5b9a\u4e49\u8be5\u5bf9\u8c61\u4e4b\u7c7b\u522b\u7684\u65b0\u6267\u884c\u4e2a\u4f53\u3002\u5f53\u60a8\u5efa\u7acb\u7c7b\u522b\u7684\u65b0\u6267\u884c\u4e2a\u4f53\u65f6\uff0c\u5373\u5728\u5185\u5b58\u4e2d\u5efa\u7acb\u7531\u7c7b\u522b\u5b9a\u4e49\u7684\u5bf9\u8c61\u3002
\u60a8\u53ef\u4ee5\u4ece\u4efb\u4f55\u7c7b\u578b\u7684\u6a21\u5757\u5185\u90e8\uff0c\u5efa\u7acb\u7c7b\u522b\u7684\u65b0\u6267\u884c\u4e2a\u4f53\u3002\u5efa\u7acb ClassName \u7c7b\u578b\u7684\u5bf9\u8c61\u53d8\u91cf\uff0c\u7136\u540e\u4f7f\u7528 New \u5173\u952e\u8bcd\uff0c\u5c06\u7c7b\u522b\u7684\u65b0\u6267\u884c\u4e2a\u4f53\u6307\u5b9a\u7ed9\u5bf9\u8c61\u53d8\u91cf\u3002
\u6ca1\u6709\u52a8\u6001\u6570\u7ec4\u5427
\u5c31\u7b97\u5229\u7528 dim Arr\uff08\uff09as string\u8fd9\u6837\u58f0\u660e\uff0c\u4e00\u65e6\u8d4b\u503c\u540e\uff0c\u6570\u7ec4\u5927\u5c0f\u4e5f\u5c31\u56fa\u5b9a\u4e86\u3002
\u5982\u679c\u8981\u6539\u53d8\u6570\u7ec4\u5927\u5c0f
\u8981\u7528redim \u547d\u4ee4
redim arr\uff0810\uff09
preserve redim arr\uff08\uff09
\u52a0preserve \u53ef\u4ee5\u4e0d\u6e05\u7a7a\u6570\u7ec4\uff0c\u4fdd\u6301\u539f\u6709\u6570\u636e
类模块的编写跟日常写代码的编程思想有很大反差，类模块的主题是创建，而日常的代码是使用。
类模块里是禁止使用Public类型的动态数组作为模块级变量的，而私有级的变量外界不可直接调用，那么也失去了数组的意义。
因为通过类模块创建的实例，我们通常称之为对象，而纵观Applicaiton集合对象，Range集合对象，Addins集合对象，等等各种对象，似乎官方总会给予一个“集合”概念。实际上，这里的“集合”就相当于一个动态数组，比如WorkBooks(1)就返回第一个工作簿，WorkSheets(2)就返回第二个工作表，这个不正是动态数组所需要表达的意义么！？
所以，建议你尝试使用Collect对象，来实现类似于动态数组的功能。给你一个参考示例：
Rem -==巴蜀兄弟连==- 团队提供支持
Public Arr As New Collection
Public Function Add(ByRef R As Range) As Range
Set Add = R '创建对参数R对应单元格的引用
Arr.Add Add '将建立的引用实例添加到Arr集合
End Function
然后标准模块创建实例，并返回集合元素的值：
Private mm As New unsamesky '创建类模块unsamesky的一个实例mm
Private Sub xx()
Dim i As Long
For i = 1 To 10
mm.Add Sheet1.Cells(i, 1) '给A1到A10单元格添加到mm实例的Arr集合中
Next
End Sub
Sub yy()
Call xx '调用xx
MsgBox mm.Arr(3) '试试返回集合的第3个元素，也就是工作表的第A3单元格的内容！
End Sub
可使用附件测试：
建议你还是先去学一下类模块的入门比较好
扩展阅读：vba入门 ... vba 打开excel ... microsoft visio ... excel vba视频教程 ... excel vba入门 ... excel vba实例详解 ... wps vba ... vba能干什么厉害的事情 ... excel vba最后一行 ...
