Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

66440 / 76734

←次へ　｜　前へ→


	【14857】Re:どうかご教授おねがい致します。

ichinose - 04/6/8(火) 22:03 -


	引用なし

	パスワード

▼へいちゃんさん：
こんばんは。

>ストップウォッチを作ってみたのですが、うまくいきません。
>問題１　コンマ台が表示できない。
>問題２　条件分岐がうまくいきません。
>
>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
>

1 hits

▼

【14855】どうかご教授おねがい致します。 へいちゃん 04/6/8(火) 21:50