| |
▼１２３ さん：
>すみません。ちょっと説明が下手で。
いいえ、私が間違えていたようですが・・・。
但し、
> 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
|
|
ichinose
- 03/10/27(月) 18:13 -
