No.3ベストアンサー
- 回答日時:
No.2です。
そうですね・・・
「開始/停止(トグル)」と書いてあったので、てっきりその時間から始めると思ってしまいました。
勝手にプログラムに手を加えるのは良くないかもしれませんが・・・
たとえば標準モジュールの
Sub kStopwatch(Optional obj As Object)
の中の8行目位の
>dstart = timeGetTime
が、
dstart = timeGetTime - obj.Value * 86400000 '86400000=60*60*24*1000
だったら、現在の時間から始めるかもしれません。
教えて下さったとうり変更してみたらできました!
まさに知りたかったのはこのことです。親切に教えて下さって本当に助かりました。VBを勉強している最中で分からないことだらけですが、これから少しずつ上達していきたいと思ってます。
とても役に立ちました。有難うございました。
No.2
- 回答日時:
kStopwatch が
>http://homepage2.nifty.com/kmado/ke_m8.htm
のストップウォッチの事なら、2つのコマンドボタンを用意して、以下ではどうでしょうか?
本物のストップウォッチもこんな風なボタン配置ではなかったでしょうか?
'スタート・一時停止ボタン
Private Sub CommandButton1_Click()
kStopwatch Range("A1")
End Sub
'クリアボタン
Private Sub CommandButton2_Click()
kStopwatch 'カウント中の場合でも停止
Range("A1").Value = 0
End Sub
p.s.
プログラムの先頭に
'kStopwatch関数 ストップウォッチの開始/停止(トグル)
とありました。
実行中に呼ばれる事で一時停止になるようです。
この回答への補足
>kStopwatch が
http://homepage2.nifty.com/kmado/ke_m8.htm
のストップウォッチの事なら・・・・
まさにそのことです。
ご回答ありがとうございます。
これで一時停止できるようにはなったのですが、再スタート(スタート・一時停止ボタンを押す)しようとすると、カウントがまた0からになってしまうので困っています。一時停止し、もう一度押すことでその続きからカウントするようにするにはどうしたらいいのでしょうか。ぶしつけですみませんが、ご指導お願いします。
No.1
- 回答日時:
kStopwatch1の中の時間を数えている部分に
フラグを判定する部分または
セルまたはさらに別のボタンの値を読み取るかする
部分を追加して、
その値が一時停止させたい値なら時刻カウントを
しないようにすればいいと思います。
引数としてRange("a1")のように値を利用できる
みたいですから、A2などのセルの値を利用するのが
手っ取り早そうですが・・・。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA 1 2023/04/27 13:37
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA ユーザーフォームラベルキ...
-
VBA(エクセル)で自動的にボタン...
-
[Excel VBA]コマンドボタンの入...
-
Excel VBA実行中にワークシート...
-
GridViewのボタンの高さ
-
VBAで多数のプログラムを一つの...
-
CommandButtonのCaptionを変化...
-
delphiでボタンを押せなくしたい
-
Flash Lite 1.0で1文字ずつ文字...
-
ボタン(コントロール)を丸くしたい
-
C♯初心者で、四則演算の電卓を...
-
他フォームのクリックイベント取得
-
セルをマクロのボタンにしたい。
-
【VB.NET2005】DirectX導入
-
ユーザーフォームに別シートか...
-
他のアプリケーションとの連携
-
左クリックさせるプログラム
-
ボタンをクリックするとエラー...
-
パソコンへの「Dropbox...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
フォームの再読み込み
-
VBA CommandButtonの文字ずれ
-
ユーザーフォームに別シートか...
-
VBAのボタンの位置が変わって困...
-
Access VBA でデータペーストを...
-
Excel VBA Application.caller...
-
セルをマクロのボタンにしたい。
-
コマンドボタンやイメージにマ...
-
ボタン
-
プロシージャからイベントをコ...
-
ボタンをマウスで押し続けたと...
-
VBA でのボタンの移動について
-
C#で動的に作ったtextboxを消す。
-
バックスペース機能の作り方
-
アイコンとボタンの違い
-
VBAで多数のプログラムを一つの...
-
TextBoxでEnterキーを押すと、...
-
VBA IE ダウンロード ダイアロ...
おすすめ情報