方法和变量

Question

是否可以在VBA方法中使用变量？

对于例如，我试图项添加到列表：列表框 .AddItem（物品1）

QNS：我是否能够取代 “1” 与varible：列表框& “Varible “ .AddItem（物品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 

Answer 1

我不认为任何方式，使用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) 

Answer 2

你需要循环的控制在适当的容器中，以检查其名称等于您需要的控件名称。即

For Each c in Controls 
    If LCase(c.Name) = LCase("NameOfDesiredControl") Then 
     ... Work with it ... 
    End If 
Next 

这可以很容易地被翻译成一个函数。

Answer 3

我不知道你的目标是什么，但以下修改您发布的代码允许它的工作：

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