|
> ↓このようなつくりにしたいと思っております
>■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
どっちにしろ、変数TTTの使い方がダメですね。
グローバル変数でないから、中身がない。
素直にこうしたらどうですか。
Public zzzzz As String
Dim TTT As UserForm
If zzzzz = "メニュー" Then
Set TTT = UserForm1
Else
Set TTT = UserForm2
End If
> TTT.Controls("ComboBox" & 1).Clear
> For Each Wb In Workbooks
> TTT.Controls("ComboBox" & 1).AddItem Wb.Name
> Next
もしくは、
Call abcd(Me)
Sub abcd(TTT As Object)
> TTT.Controls("ComboBox" & 1).Clear
> For Each Wb In Workbooks
> TTT.Controls("ComboBox" & 1).AddItem Wb.Name
> Next
End Sub
|
|