各位老师给看下这个代码怎么实现

qaz10121

Sub ??????????????()
Dim Target As Range
r = Sheet2.[e65536].End(xlUp).Row
For i = 3 To r
    If Cells(i, 5) <> 0 And Cells(i, 7) > 0 And Cells(i, 8) > 0 Then
        Cells(i, 9) = Cells(i, 42) * Cells(i, 7) * Cells(i, 8) / 1000
    ElseIf Cells(i, 5) = "" Or Cells(i, 7) = "" Or Cells(i, 8) = "" Then
        Cells(i, 9) = ""
    End If
Next
End Sub


各位老师，请教个事情，我想让上面的r大于或等于3时在运行下面的代码，怎么设置呢

qaz10121

反之则不运行

鄂龙蒙

1. Sub 判断执行程序()
   
2.     Dim Target As Range
   
3.     r = Sheet2.[e65536].End(xlUp).Row
   
4.     If r >= 3 Then
   
5.         For i = 3 To r
   
6.             If Cells(i, 5) <> 0 And Cells(i, 7) > 0 And Cells(i, 8) > 0 Then
   
7.                 Cells(i, 9) = Cells(i, 42) * Cells(i, 7) * Cells(i, 8) / 1000
   
8.             ElseIf Cells(i, 5) = "" Or Cells(i, 7) = "" Or Cells(i, 8) = "" Then
   
9.                 Cells(i, 9) = ""
   
10.             End If
    
11.         Next
    
12.     End If
    
13. End Sub

复制代码

xyxcc177

当r小于3时，程序本身就不会运行