Question

我是Excel-VBA的新手。我的任务是计算网关的数量和网关的电路部分，然后将它们显示在一个可读的报告中。我的逻辑首先计算网关的数量，然后使用do until循环来遍历数据的每一行。检索电路部件名称，然后保存到每行调用“parts（）”的数组。

然而，行“j = j + 1”抛出运行时错误'6'：溢出。

任何人都可以帮我解决问题或给我一些建议吗？我感谢任何回应：）

Function countG450(index As Long, gateway As String, gatewayCount As Integer)       
     Dim sheet As Worksheet
     Set sheet = ActiveSheet
     Dim row, rowCount As Range
     Set row = sheet.Rows(1)
     Dim thisRow  As Long        
     Dim parts() As String, partsCount As Integer
     Dim uniqueList() As Variant        
     Dim vertical As String, horizontal As String      
     Dim j As Integer       
     Dim writeIndex As Integer

     index = 1
     writeIndex = 1
     RowIndex = 1

     For i = 0 To gatewayCount
          j = 0
          Do Until Application.CountA(sheet.Rows(RowIndex)) = 0

              'save parts of gateway

              If (Left(Cells(RowIndex, 1), 4) = gateway) And Cells(RowIndex, 2) <> vbstringnull And Cells(RowIndex, 2) <> "ANALOG LINE" And Cells(RowIndex, 2) <> "DIGITAL LINE" Then
                  ReDim Preserve parts(j)
                  parts(j) = Cells(RowIndex, 2)                    
                  **j = j + 1**
              End If

             'Count the circuit parts of analog
             'Count the circuit parts of digtal
              If (Left(Cells(RowIndex, 1), 4) <> gateway And Cells(RowIndex, 1) <> vbstringnull) Then
                  uniqueList = GetUniqueValues(parts)

                  'Write parts of gateway

                  Erase parts
                  Erase uniqueList
                  gateway = Left(Cells(RowIndex, 1), 4)
                  RowIndex = RowIndex + 1

              End If
          Loop
          Dim y As Variant
          y = DrawBorder(horizontal, vertical)
    Next
End Function

运行时错误“6”：溢出 - 将数据保存到动态数组中

0 个答案: