|
Sub test1()
Dim x As Integer
For x = 1 To 20
If Range("a" & x) = "" Or Range("b" & x) = "" Then GoSub 200
Range("c" & x) = Cells(x, 1) * Cells(x, 2)
Next
Exit Sub
200:
Range("c" & x).Font.Color = vbRed
Range("c" & x) = "空"
x = x + 1
Return
End Sub
Sub test2()
Dim x As Integer
For x = 1 To 20
If Range("a" & x) = 0 Or Range("b" & x) = 0 Then GoTo 200
Range("c" & x) = Cells(x, 1) * Cells(x, 2)
Next
Exit Sub
200:
MsgBox "在第" & x & "行出现零值"
End Sub
Sub test3()
On Error Resume Next
Dim x As Integer
For x = 1 To 20
If x > 13 Then On Error GoTo 0
Range("c" & x) = Cells(x, 1) * Cells(x, 2)
Next
End Sub
|
|