VBA 引数にcombobox,Range

質問

おはようございます。
質問内容が明確？で無い点が多いかもしれませんが、
質問させていただきます。

まず、Excel2003を使い、フォーム上にはコンボボックスを置いています。

プロシージャ？の中の引数？として
コンボボックスの名前を使いたいと思っています。

Private Sub UserForm_Initialize()
　Call　TEST(Combobox1,"A1")
End sub

Sub　TEST(Byval　ComboboxName,Byval　TEST_Range)
　ComboboxName.AddItem　"A"
　TEST_Range="テスト"
End Sub

適当に作成してみましたが…
TESTを実行したら、
引数にあるコンボボックスに”A"という値を追加し、
TEST_Rangeに"テスト"と入力したいです。
引数として宣言する際、Stringは違うと思うのですが、
どうやって宣言？すれば良いのでしょうか。

上記例では、TESTを実行したら
Combobox1に"A"という値が追加され、
A1に"テスト"と入力されるようになっています（それを目的とします）

分からない点がありましたら、どんどん聞いてください。
よろしくお願いします！

回答No.2

keithin · ベストアンサー

＞引数？としてコンボボックスの名前を使いたい

private sub UserForm_Initialize()
　call TEST1("Combobox1", "A1")
　call TEST2(me.combobox1, range("B1"))
end sub

sub TEST1(byval myName1 as string, byval myName2 as string)
　me.controls(myname1).additem "A"
　range(myname2).value = "A"
end sub

sub TEST2(byval myCtrl as object, byval myRng as excel.range)
　myctrl.additem "B"
　myrng.value = "B"
end sub

お礼

回答ありがとうございます。
回答を締め切るのを忘れてました・・・すみません。

あぁ、でもこういうやり方があったんですね！
TEST1が理想的でした＾＾

最初の方には申し訳ないのですが、
ベストアンサーにさせて頂きます。

回答No.1

eden3616

Private Sub UserForm_Initialize()
Call TEST2(ComboBox1, Range("A1"))
End Sub
Sub TEST2(ByVal ComboboxName As Object, ByVal TEST_Range As Range)
ComboboxName.AddItem "A"
TEST_Range = "テスト"
End Sub

または

Private Sub UserForm_Initialize()
Call TEST2(ComboBox1, "A1")
End Sub
Sub TEST2(ByVal ComboboxName As Object, ByVal TEST_Range As String)
ComboboxName.AddItem "A"
Range(TEST_Range) = "テスト"
End Sub

ていう意味で良かったのかな？

お礼

回答ありがとうございます。
まさに、その通りです！
上手くいきました＾＾　ありがとうございます！