方法和變量

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