| |
▼１２３ さん：
こんにちは。
>またまた お助けください。
>
>２つのブックがあります。
>Book1のUserForm1にあるTextBox1の値を
>Book2のUserForm1にあるTextBox1の値に変更したいのです。
>
>２つのブックは開かれている状態です。
>
>Book2の値はちょくちょく変わり、その都度変更したいのです。
>（Book2のUserForm1には、コマンドボタンがあり、これにより
>変更処理をしたいのです。）
>可能なようでしたらご教示願います。
Book1.xlsの標準モジュールに以下のコードをコピーして、
'====================================================
Function get_frm()
Set get_frm = UserForm1
End Function
book2.xlsのユーザーフォーム内のコマンドボタンのｸﾘｯｸｲﾍﾞﾝﾄで
'======================================================
Private Sub CommandButton1_Click()
TextBox1.Text = Application.Run("book1.xls!get_frm").TextBox1.Text
' ↑は、book2.xlsのユーザーフォームにあるテキストボックスね！！
End Sub
参照したいデータがテキストボックス一つだけなら、INAさんがおっしゃっているように
セルを使用してデータを渡す方法が簡単かもしれませんが。
|
|
ichinose
- 03/10/27(月) 16:11 -
