|
▼123 さん:
>すみません。ちょっと説明が下手で。
いいえ、私が間違えていたようですが・・・。
但し、
> Application.Run("book1.xls!get_frm").TextBox1.Text = genzai
↑さえ、修正すれば、動いていますけどね。
>genzai は Book2のUserForm1にあるTextBox1の値を変数に代入したものです。
>
>ichinoseさんからご教示いただいたコードを条件に合うようにやってみましたが、
>うまくいきません。
本当は、どのようにうまくいかないのか知りたいのですが・・(何々のエラーでここで止まるとか、エラーにはならないけど、正しく表示されないとか)。
Book1.xlsのユーザーフォーム(userform1)もbook2.xlsのユーザーフォーム(userform1)も共にモーダーレスモードで表示されている状態で動いています。
>何が間違っているのでしょうか?
>
>
>Book1.xlsの標準モジュール
>'====================================================
>Function get_frm()
> Set get_frm = UserForm1
>End Function
>
>
>book2.xlsのユーザーフォーム内のコマンドボタンのクリックイベントで
>'======================================================
>Private Sub CommandButton1_Click()
>
>dim genzai as String
genzai=textbox1.text
> Application.Run("book1.xls!get_frm").TextBox1.Text = genzai
>End Sub
|
|