エクセルのセルデータの反映

エクセルでユーザーフォームにテキストボックスを作っていますが
セルデータを一度読み込んだ後はセルデータを変更しても
フォームを立ち上げなおさないと変更したデータが反映できません。
リアルタムで表示できるようにできないでしょうか？（データを変更したら値が変わる）
また元となるセルデータには計算式が記入してあり
他のセルを参照しているため、元のセルデータの計算式を消さない
ようにしたいです。
ご教示頂ければうれしいです。

No.3 ベストアンサー 回答者： ママチャリ 回答日時： 2018/09/01 07:51

「リアルタイムで表示」とは、「ユーザフォームを表示したまま、セルに値を入力すると、その値がテキストボックスに表示される」ということでしょうか？

であれば、テキストボックスの「ControlSource プロパティ」に連動したいセルのアドレスを指定（例えば、A1）しちゃうのが、一番簡単だと思います。
その上で、モードレスでユーザフォームを表示させます。
こんな感じです。

UserForm1.Show vbModeless

この回答へのお礼

回答ありがとうございました。
こちらの方が簡単そうです。
試してみます。

お礼日時：2018/09/03 08:50

No.2 回答者： OrangeCake 回答日時： 2018/08/28 16:19

フォームを開いても、テキストボックスの値が更新されないということですよね。

ユーザーフォームのInitialize イベントで下記のように記述すれば、ユーザーフォームが開く前にテキストボックスの値が更新されます。
セルの参照先は仮に「A1」とします。念のため記述箇所のスクリーンショットも添付しますね。

Private Sub UserForm_Initialize()
TextBox1.Text = Range("A1").Text
End Sub

この回答へのお礼

回答ありがとうございました。
試してみます。

お礼日時：2018/09/03 08:49

No.1 回答者： tatsu99 回答日時： 2018/08/28 09:37

該当のシートのシートモジュールに、以下のマクロを追加してください。

Sheet1のセルA1の内容をUserForm1のTextBox1に自動反映する例です。
シートモジュールは、添付図の赤線で囲んだところをダブルクリックすると表示されます。
-----------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
UserForm1.TextBox1.Text = Range("A1").Text
End Sub

この回答へのお礼

回答ありがとうございました。
試してみます。

お礼日時：2018/09/03 08:49