|
▼ぴかる さん:
>ありがとうございます。でも出来ればなんですが、時・分のみの表示をしたいと考えております。Now関数がリアルで更新されるような・・・。もし何かアイデアがありましたら、よろしくお願いします。
後は、頭に浮かんだのはモーダレスのフォームに時計を作ってしまう方法ですが・・。
ユーザーフォーム(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
のようなコードですけどね・・・(他のマクロも実行は可能です)。
これをラベルではなく、セルにする?
|
|