A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは
仮にフォームがUserForm1、ラベルがLabel1とするなら、標準モジュールに
Private flag As Boolean
Sub timeDisp()
UserForm1.Label1.Caption = Format(Now, "hh:mm:ss")
DoEvents
If flag Then
Application.OnTime Now() + 1 / 86400, "timeDisp"
End If
End Sub
Sub timeStop()
flag = False
End Sub
のようなものを用意しておいて、
・フォーム表示時にflag=TrueにしてフォームをShow
・フォームのInitializeイベントでtimeDispを呼び出し
することで、時刻が表示(更新)されるようになります。
ただし、そのままではずっと更新され続けますので、
・QueryCloseイベントで、timeStopを実行するなどが必要となります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォームのラベルに時間を表示させてずっと時間がちゃんと動くような方法はありますか?コード書い 2 2023/03/28 03:48
- Visual Basic(VBA) ユーザーフォームのラベルに日付を表示させる方法があればお願いします。出来ればコード書いていただけると 1 2023/03/24 15:06
- JavaScript 空白で入力フォームのボタンをクリックしたら、ブラウザの上部からjavascriptで 表示されるアラ 1 2022/05/20 11:16
- Visual Basic(VBA) ユーザーフォーム上に現在日時と時刻を表示させていますがフォームを実行すると時間が更新されません。それ 2 2023/02/21 22:28
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
- JavaScript 読み込んだQRコードをフォームに受け渡したい 1 2023/05/18 11:18
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- JavaScript ソースコードは下の共有コードサイト「張り紙」にあります。 入力フォームの javascript で 1 2022/05/11 11:01
- その他(買い物・ショッピング) JANコードの登録について 1 2022/07/23 14:19
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ユーザーフォーム上に現在日時と時刻を表示させていますがフォームを実行すると時間が更新されません。それ
Visual Basic(VBA)
-
ユーザーフォームに今の時間を表示
Access(アクセス)
-
ユーザーフォーム時間表示
Excel(エクセル)
-
-
4
excelVBA コンボボックスに時刻で表示したい
Excel(エクセル)
-
5
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
6
ユーザーフォームに日付を表示させる方法を教えてください。そして、実行したあとでも日付が変わるようなプ
Visual Basic(VBA)
-
7
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
8
エクセルVBAでフォームのListboxをスクロールするには?
その他(Microsoft Office)
-
9
ユーザーフォームのラベルに時間を表示させてずっと時間がちゃんと動くような方法はありますか?コード書い
Visual Basic(VBA)
-
10
テキストボックス(VBA)でEnterを押したときに作動するマクロ
Access(アクセス)
-
11
vb.netで画面のコントロールId名を変数で動的に制御し処理する方法
Visual Basic(VBA)
-
12
マクロ実行時、ユーザーフォームにラベルのテキストが表示されません。
Access(アクセス)
-
13
UserForm1.Showでエラーになります。
工学
-
14
VBユーザーフォームで時間入力
Visual Basic(VBA)
-
15
ラベルを表示したり非表示にしたりしたい
Visual Basic(VBA)
-
16
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
17
.NETで現在時刻を常に動作させる方法。
Visual Basic(VBA)
-
18
EXCELのセルへ、デジタル時計を表示できますか?
Excel(エクセル)
-
19
TextBoxに日付を自動的に入れる
Visual Basic(VBA)
-
20
エクセルVBAのフォームを最前面にする方法を教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
Hideについて(.NET)
-
ユーザーフォームのテキストボ...
-
Form_Load と Form_Activate の...
-
Access VBA コントロールの参照...
-
クリックイベントなのに、2回ク...
-
テキストボックス入力データの...
-
MSGBOXのフォント大きさ変更
-
コントロールの存在確認
-
テキストボックスやラベルのクリア
-
Microsoft Formsの「個人情報や...
-
【VBAユーザーフォームで閉じる...
-
ユーザーフォームのラベルに時...
-
ブックをCloseまたはQuitで閉じ...
-
Excelにて、ユーザーフォームで...
-
VBAのテキストフォームの折り返...
-
'ユーザーフォーム右上隅の[×...
-
アクセスのUserFormにはInitial...
-
なぜエラーになるのでしょう?...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
クリックイベントなのに、2回ク...
-
ExcelVBAのユーザーフォームの...
-
ユーザーフォームのテキストボ...
-
Microsoft Formsの「個人情報や...
-
ユーザーフォーム上に現在日時...
-
Form_Load と Form_Activate の...
-
モーダルフォームとモードレス...
-
Excelにて、ユーザーフォームで...
-
VBAでユーザーフォームを再表示...
-
【VBAユーザーフォームで閉じる...
-
MSGBOXのフォント大きさ変更
-
VBA(エクセル)のユーザー...
-
Hideについて(.NET)
-
エクセルVBAのフォームを最...
-
コントロールの存在確認
-
ACCESSのフォーム、開くんです...
-
'ユーザーフォーム右上隅の[×...
-
フォームウィンドウを最前面に...
-
ユーザーフォームのラベルに時...
おすすめ情報