时间记录问题

starlight520

1.王五下面可以新增数据；
2.如果A,B列某行的数据不为空，选择某行后点击开始显示开始时间，点击结束显示结束时间，最后E列显示总时间；
3.如果完成后数据需要提交到Sheet2里面去。

山菊花

供参考。

starlight520

山菊花 发表于 2016-7-2 16:30
供参考。

不好意思加多了两行，不知道如何编辑了。

山菊花

第三段：
ReDim Brr(1 To nRow, 1 To 7), Crr(1 To nRow, 1 To 7)

starlight520

山菊花 发表于 2016-7-2 18:21
第三段：
ReDim Brr(1 To nRow, 1 To 7), Crr(1 To nRow, 1 To 7)

红色部分显示错误。
Private Sub CommandButton3_Click()
    Dim nRow%, Arr(), Brr(), Crr(), m%, n%
    nRow = Range("b65536").End(xlUp).Row
    If nRow = 1 Then Exit Sub
    Arr = Range("a2:g" & nRow).Value
    ReDim Brr(1 To nRow, 1 To 7), Crr(1 To nRow, 1 To 7)
    For i = 1 To nRow - 1
        For j = 1 To 7
            If Arr(i, j) = "" Then Exit For
        Next
        If j = 8 Then
            m = m + 1
            For k = 1 To 7
                Brr(m, k) = Arr(i, k)
            Next
        Else
            n = n + 1
            For k = 1 To 7
                Crr(n, k) = Arr(i, k)
            Next
        End If
    Next
    If m > 0 Then
        With Sheet2
            n = .Range("a65536").End(xlUp).Row + 1
            .Range("a" & n).Resize(m, 7).Value = Brr
        End With
    End If
    Me.Range("a2:g" & nRow).Value = Crr
End Sub

山菊花

是因为你的数据错误。

starlight520

山菊花 发表于 2016-7-3 12:21
是因为你的数据错误。

运行时错误   ‘9’
下标越界

错误位置：
Brr(m, k) = Arr(i, k)

山菊花

m=?i=?k=?nrow=?

starlight520

山菊花 发表于 2016-7-3 14:59
m=?i=?k=?nrow=?

不懂，不知道哪里出错了？

山菊花

就是m、i、k等当中的一个，裤子穿不下了，要么是腰粗了，要么是布缩水了。
按F8逐行运行，打开本地窗口，观察变量的变化，找出出错的原因。