如何将对象赋值给数组成员？

作者：绿色风分类：时间：2022-08-17 浏览：141

楼主
kevinchengcw

Q: 如何将对象赋值给数组成员？
A: 暂时找到的两种方法如下：
先插入一个窗体，再在窗体中插入一个textbox和一个combobox，默认名一般是TextBox1和ComboBox1，然后插入一个模块，输入下述代码即可进行测试：
方法1：字典转置

Sub test()
Dim Dic As Object, N&, Arr
Set Dic = CreateObject("scripting.dictionary")
With Dic
.Add "1", UserForm1.TextBox1
.Add "2", UserForm1.ComboBox1
.Add "3", 2
.Add "4", Sheet1.Cells(1, 1)
End With
Arr = Dic.items '转置item项给数组
For N = LBound(Arr) To UBound(Arr)
Debug.Print TypeName(Arr(N))
Next N
Set Dic = Nothing
End Sub

执行结果：
TextBox
ComboBox
Integer
Range

方法2：直接赋值

Sub test2()
Dim Arr(1 To 4), N&
Set Arr(1) = UserForm1.TextBox1 '将textbox对象值给数组，注意：对象赋值用set，区别于后面的数值赋值
Set Arr(2) = UserForm1.ComboBox1
Arr(3) = 2
Set Arr(4) = Sheet1.Cells(1, 1)
For N = LBound(Arr) To UBound(Arr)
Debug.Print TypeName(Arr(N))
Next N
End Sub

执行结果：
TextBox
ComboBox
Integer
Range

2楼
xyf2210

学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表