| |
これに関連しての質問なんですが
時間測定した場合に出た数値を
セルに表示させました。
ここから悩んでいるのですが、
それぞれ分割させたのを
違うコマンドボタンを押した時に一連してそれぞれ流した時に、色分けをしたいのですが・・
例
２０秒→１５秒→１０秒
と分割
そして、あるコマンドボタンを押した時に
２０秒の時このセル内を色表示
そして次に分割した１５秒の時に以降した時はそこを色表示する
というようなものを作りたいのですが
なかなか思うような文法ができあがりません
アドバイスよろしくお願いします☆
▼りん さん：
>まさっぴ さん、おはようございます。
>>コマンドボタン1.を押す→測定スタートさせる
>>コマンドボタン2.を押す→測定の時間を表示させる
>>
>>コマンドボタン1.を押す→測定を再開させる
>>コマンドボタン2.を押す→測定の時間を表示させる
>
>Timerではなくて、Nowで現在時刻を取得して差をとってみました。
>UserForm1に、CommandButton1とCommandButton2を配置し、以下をすべて記述。
>'/////////////////////////
>Dim s1 As Double
>Dim t1 As Double
>Dim s2 As Double
>Private Sub CommandButton1_Click()
> t1 = Now()
> CommandButton2.Enabled = True
> CommandButton1.Enabled = False
>End Sub
>'/////////////////////////
>Private Sub CommandButton2_Click()
> s2 = t1 - Now()
> s1 = s1 + s2
> '
> CommandButton1.Caption = "再開"
> CommandButton1.Enabled = True
> CommandButton2.Enabled = False
> 'Result
> MsgBox "今回" & Format(s2, "[h]:nn:ss") & vbCrLf & _
> "累計" & Format(s1, "[h]:nn:ss"), vbInformation
>End Sub
>'/////////////////////////
>Private Sub UserForm_Activate()
> CommandButton1.Caption = "開始"
> CommandButton2.Caption = "停止"
> CommandButton1.Enabled = True
> CommandButton2.Enabled = False
> s1 = 0 '初期化
>End Sub
>'/////////////////////////
>こんな感じです。
|
|
まさっぴ
- 08/5/21(水) 18:07 -
