The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- VBAでテキストファイルを操作する方法 - 2019年1月17日
- VBA 【クラスモジュールとは？】クラスモジュールについて - 2018年12月24日
- VBA スピンボタンで日付を変更する - 2018年12月9日
- 【雑記】MicrosoftOfficeのアイコンが変わるらしいですよ - 2018年11月30日
- ExcelとPowerPointの連携パート2【シェイプのテキストを取得する】 - 2018年11月29日
どうも、taka(@takabou63)です(^^♪
今まで【ユーザーフォームに時計をつけてみる】と【VBAでタイマーを作ってみた】の2度ほど時計ネタをやってきましたが・・・
今回は第三弾【ストップウォッチ】です(笑)
ストップウォッチをVBAで使う場面をあまり想像できませんがネタ切れし始めているのでもう何でも作ってみようと思い作成しました(;^ω^)
そろそろ中一日の更新もキツイです←
ストップウォッチの作成イメージ
本当にストップウォッチだけで、ラップ機能などは全くありません(;´･ω･)
まぁ今つぶしにでもご覧ください(;´･ω･)
今回用意するフォーム
今回用意したフォームは
- labelコントロール・・・1つ
- commandbuttonコントロール1つ
のみです( ^ω^ )
ストップウォッチのサンプルコード
ストップウォッチのコードはこちらです、コメントアウトして解説していますので参考程度にご覧ください(。-∀-)
※フォーム上で記述していますが、編集すればセル上での表示も可能です(^^)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | Dim Startfrg As Boolean 'startスイッチのような役割 Dim Stopfrg As Boolean 'stopスイッチのような役割 Sub sample() Dim btTimer As Double If Startfrg = True Then 'startスイッチがオンの時に実行した場合 Stopfrg = True 'stopスイッチがオンになる Exit Sub End If Startfrg = True 'startスイッチオン Stopfrg = False 'stopスイッチオフ btTimer = Timer Do Until Stopfrg = True 'stopスイッチがON以外の時はループしてタイマーを動かす。 DoEvents Label1.Caption = Format(Int((Timer - btTimer) * 100) / 100, "0.00") Loop Startfrg = False Stopfrg = False End Sub Private Sub CommandButton1_Click() Call sample '上のコードを呼び出す。 End Sub |
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
WordPressでブログを始めるなら
WordPress簡単インストール＆安心の安定性
プロフィール
どうも本サイト【E-VBA】のtakaと申します！
ひょんなことからVBAを学ぶことになった非IT社員です。
趣味
アニメ・ゲーム、PCやスマートフォンについての情収集という典型的なオタク(^_-)-☆
苦手な分野
英語がどうしても覚えられません( ;∀;)
最近興味があるもの
最近はVBA・WEB関係の本が欲しいです(^^♪
当サイトの環境について
使用OS：
特別企画実施中
企業様との共同企画！
【IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！」】
コメントを残す