[[20141218120446]]　『ユーザーフォーム内 TextBoxに最新のセル値を常に』（YOU）　ページの最後に飛ぶ

『ユーザーフォーム内 TextBoxに最新のセル値を常に表示する』（YOU）

はじめまして。YOUと申します。

VBAについて初心者で、WEBを見ながら下記のようなコードを作成しました。

★ユーザーフォームを立ち上げるとユーザーフォーム上のTextBox1に
　特定シートのセル値を表示します。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub UserForm_Initialize()

    TextBox1.Text = Worksheets("Sheet1").Range("C9").Value

End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

しかし、セル値は5秒毎に変更されますが、TextBox1には
最初に取得したセル値が表示されるのみです。

お手数をお掛けしますが、常に（もしくは一定時間ごとに）最新のセル値がTextBox1に
表示されるようにするには、どのようなコードを
作成すればよいでしょうか。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

セル値を変更する処理に、UserForm1.TextBox1.Textを更新する処理も加えては？
（???） 2014/12/18(木) 13:30

 Private Sub UserForm_Initialize()
    TextBox1.ControlSource = "sheet1!c9"
 End Sub

 このようにしてみては？　　但し、テキストボックスに入力した内容もC9に反映されてしまいますけど・・。

（ichinose） 2014/12/19(金) 06:16

???さん
ichinoseさん

ありがとう御座いました。
考えていた動作になりました。

DoEventを使用して作成も出来たのですが
どうも動作が重かったので、ichinoseさんにご教示頂いた
方法で試してみます。

（YOU） 2014/12/19(金) 09:43

ichinoseさん

ControlSourceで確認してみましたが、やはりセルの計算式も
上書きされてしまう為、上手く行きませんでした。

DoEventでもう少し調整してみようと思います。
（YOU） 2014/12/19(金) 13:29

コメント返信：