taka
最新記事 by taka (全て見る)
- VBAでテキストファイルを操作する方法 - 2019年1月17日
- VBA 【クラスモジュールとは？】クラスモジュールについて - 2018年12月24日
- VBA スピンボタンで日付を変更する - 2018年12月9日
- 【雑記】MicrosoftOfficeのアイコンが変わるらしいですよ - 2018年11月30日
- ExcelとPowerPointの連携パート2【シェイプのテキストを取得する】 - 2018年11月29日
ユーザーフォームに時計をつけてみる
今回はExcel VBAのユーザーフォーム上に時計を付けてみようと思います。あまり必要ないかもしれませんが暇つぶしにでもご覧ください。
作成イメージ
今回はこのように秒まで表示して動く時計を作成したいと思います。
時計を作成してみる
まず時計を作成するにあたり、今回用意するものは
- UserForm
- Label
この二つだけです。下記のコードをコピーしてももらえればすぐ使えます。
下で解説をしますので理屈を知りたい方引き続きご覧下さい。
1 2 3 4 5 6 7 8 9 10 11 12 | Private Sub UserForm_Activate() Dim counttime As Variant Do While UserForms.Count > 0 counttime = Format$(Time(), "h:nn:ss") Label1.Caption = counttime DoEvents Loop End Sub |
コードの解説
まず時計は随時動いていなければいけません。
1 | Private Sub UserForm_Activate() |
ですのでUserForm上のイベントは【Activate】にしておかなければいけません。
続いて変数の宣言ですが、変数の宣言の型は【String】で宣言します【Variant】でも構いません。
1 | Dim counttime As String |
ここからが処理のお話になります。
1 2 3 4 5 6 7 | Do While UserForms.Count > 0 counttime = Format$(Time(), "h:nn:ss") Label1.Caption = counttime DoEvents Loop |
今回の処理は【Do …Loop】を使用して条件を指定します。指定する条件は【UserForms.Count > 0】UserForms.Countはフォームを開いている数を返します。なので今回は【1】を返してきます。
While は条件が正しい間繰り返す条件ですのでUserFormが一つでも開いている場合繰り返すという処理です。
データの書式を整える【Format関数】と現時点の時間を返す【Time関数】を使用して表示するデータを整形していきます。
Label1.Captionでラベルにデータを表示します。
DoEventsは処理の途中にOSに制御を移す関数です、この関数を使わない場合うまく処理できなくなってしまうので必ず使用してください。
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
WordPressでブログを始めるなら
WordPress簡単インストール＆安心の安定性
プロフィール
どうも本サイト【E-VBA】のtakaと申します！
ひょんなことからVBAを学ぶことになった非IT社員です。
趣味
アニメ・ゲーム、PCやスマートフォンについての情収集という典型的なオタク(^_-)-☆
苦手な分野
英語がどうしても覚えられません( ;∀;)
最近興味があるもの
最近はVBA・WEB関係の本が欲しいです(^^♪
当サイトの環境について
使用OS：
特別企画実施中
企業様との共同企画！
【IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！」】
コメントを残す