| |
KOOL さん、こんにちわ。
>この場合ですと「出社時間と」「退社時間」が入力された時点で
>「稼働時間」の計算をし、「3:00」の数字を出したいと思います。
>2箇所が入力された場合のやり方がわかりません。
>そして、それを1か月分記述するにはどうしたらよいでしょうか。
入力されたセルの行と列をチェックして、さらに二つのセルの値が入っていることを確認できたら実行するようにしました。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RR As Long, CC As Long
RR = Target.Row: CC = Target.Column
'
If CC = 2 Or CC = 3 Then
Select Case RR
Case 2 To 32 'データが２行目から始まっているとして
If Cells(RR, 2).Value <> 0 And Cells(RR, 3).Value <> 0 Then
Application.EnableEvents = False 'イベント停止
'ここで計算結果をD列に入れる
Cells(RR, 4).Value = Cells(RR, 3).Value - Cells(RR, 2).Value
Application.EnableEvents = True 'イベント再開
End If
End Select
End If
End Sub
こんな感じです。
|
|
りん
- 07/12/5(水) 14:34 -
