方法与变量
方法与变量
提问于 2015-09-07 00:16:25
是否可以在VBA方法中使用变量？
例如，我试图将项目添加到列表中: Listbox1.AddItem (item1)
Qns:我能用varible: Listbox & "Varible".AddItem (item1)替换"1“吗？
Sub ThisWorks()
Worksheets("Control Sheet").Tx_TgtRaw_FX_CA.AddItem ("Remark1")
End Sub
=======================
Sub test()
'Trying to use this as a varible instead
X = "Tx_TgtRaw_FX_CA"
Worksheets("Control Sheet").X.AddItem ("Remark1")
'Error 438: Object does not support this property or method
End Sub
=======================
Sub testarr()
Dim y(0 To 2)
Set y(0) = "Tx_TgtRaw_FX_CA"
Worksheets("Control Sheet").y(0).AddItem ("Remark1")
'Error 438: Object does not support this property or method
End Sub回答 3
Stack Overflow用户
回答已采纳
发布于 2015-09-07 00:32:33
我认为在VBA中使用INDIRECT变量名是不可能的。
一个解决办法是定义数组并引用它们的项，例如：
Dim ListBoxes(10) as Variable
Set ListBoxes(1) = ListBox1
Set ListBoxes(2) = ListBox2
(instead of preparing the array manually you can
also add the items programmatically to the form)
...
ListBoxes(i).AddItem(item1)Stack Overflow用户
发布于 2015-09-07 00:43:16
您需要在适当的容器中循环控件，以检查其名称是否等于所需的控件名称。也就是说。
For Each c in Controls
If LCase(c.Name) = LCase("NameOfDesiredControl") Then
... Work with it ...
End If
Next这可以很容易地转换成一个函数。
Stack Overflow用户
发布于 2015-09-07 03:30:42
我不清楚您的目标是什么，但是对您发布的代码的以下修改使其能够工作：
Option Explicit
Sub ThisWorks()
Worksheets("Control Sheet").Tx_TgtRaw_FX_CA.AddItem ("Remark1")
End Sub
'=======================
Sub test()
Dim X As Object
'Trying to use this as a varible instead
Set X = Worksheets("Control Sheet").Tx_TgtRaw_FX_CA
X.AddItem ("Remark1")
End Sub
'=======================
Sub testarr()
Dim y(0 To 2)
Set y(0) = Worksheets("Control Sheet").Tx_TgtRaw_FX_CA
y(0).AddItem ("Remarkx")
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/32434006
复制相关文章
点击加载更多
相似问题
如何将对象列表转换为简单列表，从对象列表中选择单个属性？
如何将对象中的属性列表转换为对象列表
将对象列表转换为单个列表
将对象列表转换为对象属性列表
如何将jq返回的JSON数组转换为具有该列表数据的单个属性的对象？
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
