vba・userformのリアルタイム更新の方法について。

Question

vbaを使って、エクセルのシート上にカウントダウンタイマーを作りました。

Ａ1のセルに、最初、”10”という数字が入力してあります。
１分間経過するごとに、そのＡ1セルの数字が9,8,7,6,5,4,3,2,1,0
と自動的に1ずつ減っていくというタイマーです。

---

そのＡ1セルの数字を、userformのラベルに表示してみたいと思い、
以下のマクロを作りました。

Sub test()

UserForm1.Label1.Caption = Cells(1.1).Text
UserForm1.Show

End Sub

しかし、このコードでは、時間が経過してＡ1セルの値が9,8,7,...
と変化しても、手動でマクロを実行しない限り、ラベルはずっと、”10”を表示したままです。

---

そこで質問です。
Ａ1セルの値をリアルタイム、もしくは、一定の間隔（2分おき等）でuserformに
自動的に反映させる方法を教えてください。

宜しくお願い致します

Answer 1

ラベルではなくテキストボックスに表示させるのであれば、ControlSource にセルアドレスを設定すればリアルタイムに反映させることが可能です。

Sub test()
    UserForm1.TextBox2.ControlSource = "Sheet1!A1"
    UserForm1.Show vbModeless
End Sub

テキストボックスは背景スタイルと境界線スタイルを透明にすれば見た目はラベルと同様にできます。

ちなみにユーザーフォームはモードレスで開かないと、VBAコードは停止するので、VBAでのカウントダウンタイマーも停止してしまいます。

Comments

[popipi_1]

詳しく教えて頂いて、とても助かりました！ありがとうございました！

Answer 2

セルの変更はWorksheet_Changeで拾えるけど、Calculation等の描画系の処理を止めていた場合に無理かもしれません