|
▼りん さん:
りんさん、こんにちは。
回答ありがとうございます。
教えていただいたもので試してみたいと思います。
>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 'データが2行目から始まっているとして
> 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
>
>こんな感じです。
|
|