| |
▼ぴかる さん：
>ありがとうございます。でも出来ればなんですが、時・分のみの表示をしたいと考えております。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
のようなコードですけどね・・・（他のマクロも実行は可能です）。
これをラベルではなく、セルにする？
|
|
