| |
▼へいちゃん さん：
こんばんは。
>ストップウォッチを作ってみたのですが、うまくいきません。
>問題１ コンマ台が表示できない。
>問題２ 条件分岐がうまくいきません。
>
>Option Explicit
>'モジュールレベル変数宣言
>Private St As Double 'Start time
>Dim Stp As Double 'Stop time
>
>Sub Start_Time()
>
>'変数stにスタート時刻を代入
St = [Now()]
>
>End Sub
>
>
>Sub Stop_Time()
>
>
> Dim Tim As Double '時間差
>
>'変数stにストップ時刻を代入
Stp = [Now()]
>
>'経過時間を計算
> Tim = Stp - St
>
>'経過時間をE7セルに表示
> Range("E１１").Value = Tim
>
>'E7セルの表示形式を変更
Range("E１１").NumberFormat = "mm:ss.00"
' ↑ここまでは表示します
>
>
>End Sub
>
>Sub Reset_Time()
>
>
> '範囲内の塗りつぶしをなくす
>
> Range("a1:p40").Select
> Selection.Interior.ColorIndex = 0
>
> 'E7セルを０にリセットする
>
> Range("E１１").Select
> Range("E１１").Value = 0
>
> 'd18セルを空にする
>
> Range("d18").Value = ""
>
>
>End Sub
>
>Sub 判定()
>
>
> Stp = Range("e11").Value
>
> 'E11セル（ストップ時間）を比較する
> Select Case Stp
>
> '５以下の場合は以下のメッセージを出し、範囲内を青く塗る
' ↓この５とかその下の１０ってどんな意味ですか？
'Stpという中身は、書式から推測すれば、大きくても何分の単位ですよね？
'そうすると、大抵は１以下なんですよ！！
'この５とか１０の単位は何ですか？
>
> Case Is <= 5
> Range("d18").Value = "作業スピードは120です。"
> Range("a1:p40").Select
> Selection.Interior.ColorIndex = 5
>
> '10以下の場合は以下のメッセージを出し、範囲内を緑く塗る
>
> Case Is <= 10
> Range("d18").Value = "作業スピードは100です。"
> Range("a1:p40").Select
> Selection.Interior.ColorIndex = 4
>
> 'その他の場合は以下のメッセージを出し、範囲内を赤く塗る
>
> Case Else
> Range("d18").Value = "作業スピードは80です。"
> Range("a1:p40").Select
> Selection.Interior.ColorIndex = 3
>
> End Select
>
>
>End Sub
>
|
|
ichinose
- 04/6/8(火) 22:03 -
