|
▼ichinose さん:
ichinose さん有り難うございます。
>変数を使ってうまくいかなかったのか
>記述するようにしてください。
変数の使い方が悪く、そのコントロールはサポートしてません
と出てしまいました。
Dim FRM as Variant
If UF1.visible = True Then
FRM = UF1
・
・
・
With FRM
.T1----
.T2----
といった感じで、コードはそのままでWithのところを変数にすれば
同じコードを何度も書かずに済むかと思っていましたが、
無理なようでした。
>状況説明を詳細に記述すれば、
>この辺りもすっきりするかもしれませんよ!!
別なシートにデータを入力するときに入力の項目が多少違うので
それぞれのユーザーフォームを用意しました。
しかしながら、その入力項目の内容が同じものである部分を
リストボックスやコンボボックスから選択する点を共通に
しようとしたものです。
例
売掛→ 品名 単価 数量 販売日
買掛→ 品名 単価 数量 仕入日 支払日 支払先
たとえばカレンダーを起動して日付の入力をしようとするとき
起動しているユーザーフォームに日付が入るようにしたい。
そのように考えた訳です。
>UF1、UF2と処理を分けずに記述できそうなんです。
>(そうしないと将来、例えばUF3、UF4、UF5なんて出てきた場合、
>似たようなコードの記述を繰り返すことになりますよね?)
この点は最初に考えまして、−−−−−−結論はこれ以上
ユーザーフォームを増やさない。−−−だと良いのですが??
その時に対処できるように考え、このような質問をさせていただきました。
丁寧なご回答有り難うございました。
|
|