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最后一行 ...