|
▼123 さん:
こんにちは。
>またまた お助けください。
>
>2つのブックがあります。
>Book1のUserForm1にあるTextBox1の値を
>Book2のUserForm1にあるTextBox1の値に変更したいのです。
>
>2つのブックは開かれている状態です。
>
>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さんがおっしゃっているように
セルを使用してデータを渡す方法が簡単かもしれませんが。
|
|