|
こんにちは、いつもお世話になっております。今回お力になってほしい件は
UserForm UF1、UF2 があり、それぞれのUserFormに同じ名前の
TextBox T1、T2、T3 があります。
UF1、UF2のどちらかが起動しているときに、リストボックスやコンボボックスの
ある別なUserForm(仮にfrmLB)を起動させ、frmLBが閉じるときに(Unload)
選択したリストやコンボボックスの内容をT1、T2、T3 に書き込むようにして
いるのですが、その時のコードに
If UF1.Visible = True Then
With UF1
.T1-----
.T2-----
.T3-----
End With
ElseIf UF2.Visible = True Then
With UF2
.T1-----
.T2-----
.T3-----
End With
End If
と言うように書いているのですが、With 以下が多くなってくると
同じことを書いているのが多くなるのでまとめることが出来ないかと
思っております。変数を使ってみましたが、上手くできませんでした。
何か良い方法がありませんでしょうか?
|
|