[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『同一ブック内でのユーザーフォームのコピー』（ＳＪＣ）
お知恵をお借りできれば幸いです。
エクセルブック上にユーザーフォーム１を作成してあります。 ユーザーフォーム１をコピーして 同じブック上に全く同じ形式・内容のユーザーフォーム２・３を作成し、 リンクするセルやフォーム上のテキストボックス等のＮｏのみを変えたいのです。
例えばユーザーフォーム１上では TextBox1の出荷先CDから「出荷関連情報」シートをVlookupで検索して 「納期（TextBox6）」－「リードタイム」の日付を出荷日欄（TextBox7)に入力し TextBox7の内容を「依頼書」シートのセルＡ１に転記する
となっているものをコピーして
ユーザーフォーム２上では TextBox11の出荷先CDから「出荷関連情報」シートをVlookupで検索して 「納期（TextBox16）」－「リードタイム」の日付を出荷日欄（TextBox17)に入力し TextBox17の内容を「依頼書」シートのセルＢ１に転記する
というようにしたいのです。
いい方法ありますでしょうか？ そもそも そういったことは可能なのでしょうか？
どうぞ宜しくお願い致します。
操作対象とするセルはともかく、オブジェクトの名前（番号）まで変えるのは 意図が良く分かりません。 私ならオブジェクト名はそのまま使います。不都合はないと思うので。 もしくは、フォームを増やす代わりに、タブストリップで、選んだタブによって操作対象を 変更するような仕組みにするかもしれません。 （みやほりん）
シート１のＤ９：ＡＶ１６に客先名や品名等々を記入するようなフォーマットがあります（記入欄１） 同じシート１のＤ１７：ＡＶ２４とＤ２５：ＡＶ３２にも同じフォーマットで客先名や品名等々を記入するようになっています（記入欄２・３）。
シート２にコンボボタン１・２・３があり コンボボタン１を押すと記入欄１に入力するユーザーフォーム１が コンボボタン２を押すと記入欄２に入力するユーザーフォーム２が開くようにしたいと思っています。 （最終的にはシート１の記入欄１・２・３に入力されている状態にしてシート１を印刷します）
各記入欄へ記入する項目は同じ操作になるので ユーザーフォームをコピーしたいと思ったのですが・・・。 （イメージ うまく伝わるでしょうか・・・？）
＞私ならオブジェクト名はそのまま使います。不都合はないと思うので。 済みません 不勉強でよく分からないのですが ユーザーフォーム１とユーザーフォーム２の両方にテキストボックス１があったとしてもＯＫということでしょうか？
申し訳ありません もう少しご教授頂けますか。 宜しくお願い致します。 （ＳＪＣ）
> ユーザーフォーム１とユーザーフォーム２の両方にテキストボックス１があったとしてもＯＫということでしょうか？ 「Ｂｏｏｋ１とＢｏｏｋ２の両方にＳｈｅｅｔ１があったとしてもＯＫということでしょうか？」 と同じような質問をしていると思いますよ。 オブジェクトは親オブジェクトが違えば名前が同じでも別物です。 Userform1.Textbox1 Userform2.Textbox1 で区別が出来ます。 逆に言えば、親オブジェクトさえ明確にしておけば、別のユーザーフォームの オブジェクトも操作できます。 ＞コンボボタン コマンドボタン？ 処理そのものが同じで対象とする範囲と押すボタンが違うだけですから ボタンによって対象範囲を切り替えることで可能だと考えます。 Public変数に何らかの情報を格納して区別するか、 セルに何かの印を入力して区別するか。 実は、そのような処理を嫌う人も多いので、ボタンはひとつにして、処理をコンボ ボックスやオプションボタンの選択状況で切り替えるようなインターフェースが 世の中には多いのだと思われます。 ＞そういったことは可能なのでしょうか？ 冒頭の問いかけですが、可能ですよ。フォームをコピーしてそれぞれ コードを書き換えれば出来ることですから。 ただ、処理したい範囲が少しずれるだけなので、果たして専用のフォームが必要か どうかですね。将来、少しレイアウトが変わっただけで、フォームに処理コードを 全部書いておくと、コードの変更はコピーした方も書き換えなきゃならない。 私なら、コンボボックスで記入欄１、２、３からひとつを選び、ボタンを押す。 コンボボックスで 記入欄１が選ばれていたらＤ９：ＡＶ１６ 記入欄２が選ばれていたらＤ９：ＡＶ１６の８行下の範囲 記入欄３が選ばれていたらＤ９：ＡＶ１６の１６行下の範囲 と言う処理をひとつのユーザーフォームでやります。 今現在、記入欄１への処理が出来ているのなら、Offsetプロパティを うまく転記セルに当てはめていけば、それほど難しい変更ではないはずです。 （みやほりん）
（みやほりん）様
詳しいご説明 有り難う御座います。 ＞「Ｂｏｏｋ１とＢｏｏｋ２の両方にＳｈｅｅｔ１があったとしてもＯＫということでしょうか？」 と同じような質問をしていると思いますよ。 そうですね。言われてみれば仰るとおりです。 参照や連携等々繋げて（？）考えすぎて混乱していました。 お恥ずかしい限りです。
＞コンボボタン コマンドボタン？ ご指摘の通りコマンドボタンです。 失礼致しました。
アドバイス頂いたように ＞コンボボックスで記入欄１が選ばれていたら～ というようにやってみたいと思います。
本当に丁寧に有り難う御座いました。 （ＳＪＣ）
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.