|
▼ぴかる さん:
説明不足で申し訳ございません。
UserFormが2個ほどあり
メニューというUserFormでもう片方が
記入という名前のUserFormになっております
このどちらにもComboBox1と2があり
UserFormの名前だけを変更し
同じ処理を2回書かねばならないもので
それを標準モジュールを使用し
どちらからでも呼び出すことの可能な
つくりにしたいと思っております。
■UserForm(メニュー)に記載されています。
メニュー.Controls("ComboBox" & 1).Clear
For Each Wb In Workbooks
メニュー.Controls("ComboBox" & 1).AddItem Wb.Name
Next
■UserForm(記入)に記載されています。
記入.Controls("ComboBox" & 1).Clear
For Each Wb In Workbooks
記入.Controls("ComboBox" & 1).AddItem Wb.Name
Next
↓このようなつくりにしたいと思っております
■UserForm(メニュー)に記載されています。
Dim TTT As String
TTT = "メニュー"
ComboBoxの処理
■UserForm(記入)に記載されています。
Dim TTT As String
TTT = "記入"
ComboBoxの処理
■標準モジュール
Sub ComboBoxの処理()
TTT.Controls("ComboBox" & 1).Clear
For Each Wb In Workbooks
TTT.Controls("ComboBox" & 1).AddItem Wb.Name
Next
End Sub
|
|