宏中没有在活动单元格中返回输出

时间:2016-04-02 01:57:37

标签: excel vba excel-vba

我是excel宏的初学者,我正在尝试执行以下操作:

  1. 检查单元格中的条目=“是”,如果是,则记下用户ID并访问id
  2. 检查接下来的N行以查找用户退出的位置(更改访问ID或用户ID)。
  3. 访问ID或用户ID更改后,我会记下上一行的时间戳。
  4. Sub CalculateSessiontime()
      Dim userid As String
      Dim visitid As Integer
      Dim endtime As Integer
      Dim RowNumber As Integer
      Dim j As Integer
      RowNumber = ActiveCell.Row
      If Cells(RowNumber, 11).Value = "Yes" Then
              userid = Cells(RowNumber, 1).Value
              visitid = Cells(RowNumber, 8).Value
              For j = RowNumber To 57627
                  If Cells(j, 1).Value <> userid Then
                      If Cells(j, 8).Value <> visitid Then
                          endtime = Cells(j - 1, 4).Value
                          ActiveCell.Value = endtime
                      End If
                  Else:
                      endtime = Cells(j - 1, 4).Value
                      ActiveCell.Value = endtime
                  End If
              Next j
      Else: End If
    
    End Sub
    

    我没有得到任何关于运行此代码的输出。请指出我正确的方向。

0 个答案:

没有答案