|
教えてください。
A1セルに4桁の数字(時刻)を入れる。
A2セルに4桁の数字(時刻)を入れる。
入力したセルの内容を書き換える。
1400→14:00
1610→16:10
A3セルにA2とA1の時間差を出力する。
やりたいことは単純なのですが、
下記のやり方では、セルに入力すると
1400→14:00になると、またチェンジイベントが発生するようで、
望む結果になりません。
どのようにすればよいのでしょうか。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim target_cell As String
Dim target_cell1 As String
Dim target_cell2 As String
target_cell = Range(Target.Address).Value
target_cell1 = Mid(target_cell, 1, 2)
target_cell2 = Mid(target_cell, 3, 2)
target_cell = "2000/01/01 " & target_cell1 & ":" & target_cell2
Range(Target.Address) = target_cell
End Sub
|
|