使用宏计算Excel工作表中的已用时间

Question

我的Excel工作表如下所示：

A---------------------B---------------------C  
Intime----------------Outtime---------------Elapsedtime  
10:00 AM--------------  
11:00 AM--------------  
9:00 AM  

我只想在C列上输入数据时在C列上进行计算，这应该使用Macro来完成。

Answer 1

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'when entering data in a cell in Col B
On Error GoTo enditall
Application.EnableEvents = False
    If Target.Cells.Column = 2 Then
        n = Target.Row
    If Me.Range("B" & n).Value <> "" Then
        Me.Range("C" & n).Value = Format(Me.Range("B" & n).Value - Me.Range("A" & n).Value, "hh:mm:ss")
    End If
    End If
enditall:
Application.EnableEvents = True
End Sub

右键单击工作表标签和“查看代码”。

将代码粘贴到该工作表模块中。

Alt + q返回Excel窗口。