|
> ↓このようなつくりにしたいと思っております
>■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
名前(String)等で指定せず、オブジェクトで渡すのが基本でしょう。
(示されたマクロは変数のスコープについて理解されていませんし)
以下のかんじ...
>■UserForm(メニュー)
ComboBoxの処理 Me
>■UserForm(記入)
ComboBoxの処理 Me
>■標準モジュール
Sub ComboBoxの処理(uf As UserForm)
Dim wb As Workbook
uf.Controls("ComboBox" & 1).Clear
For Each wb In Workbooks
uf.Controls("ComboBox" & 1).AddItem wb.Name
Next
End Sub
|
|