计算回款时间的VBA

yinycc

1. Sub test1()
   
2. Dim i, j As Integer
   
3. j = 0
   
4. For i = 2 To Range("a65536").End(xlUp).Row
   
5. <span style="background-color: yellow;">    j = j + Sheet1.Range("a" & i)</span>
   
6.     If j > Sheet1.Range("K3") Or j = Sheet1.Range("K3") Then
   
7.          Exit For
   
8.     End If
   
9. Next
   
10. Range("L3") = i - 1
    
11. End Sub

复制代码

yinycc

1. Sub test1()
   
2. Dim i, j As Integer
   
3. j = 0
   
4. For i = 2 To Range("a65536").End(xlUp).Row
   
5.     j = j + Sheet1.Range("a" & i)
   
6.     If j > Sheet1.Range("K3") Or j = Sheet1.Range("K3") Then
   
7.          Exit For
   
8.     End If
   
9. Next
   
10. Range("L3") = i - 1
    
11. End Sub

复制代码

上面的Code 第5行开始报错，请帮忙看一下

zzj198237

Sub test1()
Dim i As Integer, j As Long
j = 0
For i = 2 To Range("a65536").End(xlUp).Row
    j = j + Sheet1.Cells(i, 1).Value
   
    If j > Sheet1.Range("K3") Or j = Sheet1.Range("K3") Then
         Exit For
    End If
Next
Range("L3") = i - 1
End Sub

zzj198237

Integer（整形）变量存储为16位的数值形式，其范围为-32,768到32,767之间。

zzj198237

Sub test1()
Dim i as Integer , j As long
j = 0
For i = 2 To Range("a65536").End(xlUp).Row
    j = j + Sheet1.Range("a" & i)
    If j > Sheet1.Range("K3") Or j = Sheet1.Range("K3") Then
         Exit For
    End If
Next
Range("L3") = i - 1
End Sub