|
ichinose さん、こんにちは。
はじめまして、ひかるの同僚のまえちんと言います。
>後は、頭に浮かんだのはモーダレスのフォームに時計を作ってしまう方法ですが・・。
>ユーザーフォーム(Userform1)にラベル(Label1)を一つ付けて・・・
>標準モジュールで
>'=============================================
>Sub clock_disp() '時計の表示
> UserForm1.Show vbModeless
>End Sub
>'============================================
>Sub clock_stop() '時計の非表示
> UserForm1.stopflg = True
>End Sub
>
>フォームモジュールに
>'===========================================
>Public stopflg As Boolean
>Private Sub UserForm_Activate()
> stopflg = False
> Do While stopflg = False
> Label1.Caption = Format(Now(), "hh:mm")
> DoEvents
> Loop
> Unload Me
>End Sub
>のようなコードですけどね・・・(他のマクロも実行は可能です)。
>これをラベルではなく、セルにする?
さっそく試させて頂きました。
モードレスモードを使えば良かったのですね。
納得です。
実際やってみて、ウィンドウズの画面右下の時計が進んだ時、
ユーザーフォームの時計もあがりました。
素早く返信頂き、ありがとうございました。
|
|