|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
自学VBA,课程作业中有个计算个税的代码 下面这段写好后 显示在中断程序中不能执行程序代码,不知道哪里出问题了。就是想判断c列的值,如果是发现c列是空值就结束循环,如果不是空值就继续执行。求教论坛朋友予以解答,万分感谢。
Sub gs()
Dim i As Integer
For i = 2 To 2000
If ("c" & i) = "" Then
Exit For
End If
If Range("c" & i) - 3500 <= 0 Then
Range("d" & i) = 0
ElseIf Range("c" & i) - 3500 > 0 And Range("c" & i) - 3500 <= 1500 Then
Range("d" & i) = (Range("c" & i) - 3500) * 0.03
ElseIf Range("c" & i) - 3500 > 1500 And Range("c" & i) - 3500 <= 4500 Then
Range("d" & i) = (Range("c" & i) - 3500) * 0.1 - 105
ElseIf Range("c" & i) - 3500 > 4500 And Range("c" & i) - 3500 <= 9000 Then
Range("d" & i) = (Range("c" & i) - 3500) * 0.2 - 555
ElseIf Range("c" & i) - 3500 > 9000 And Range("c" & i) - 3500 <= 35000 Then
Range("d" & i) = (Range("c" & i) - 3500) * 0.25 - 1005
ElseIf Range("c" & i) - 3500 > 35000 And Range("c" & i) - 3500 <= 55000 Then
Range("d" & i) = (Range("c" & i) - 3500) * 0.3 - 2755
ElseIf Range("c" & i) - 3500 > 55000 And Range("c" & i) - 3500 <= 80000 Then
Range("d" & i) = (Range("c" & i) - 3500) * 0.35 - 5505
Else
Range("d" & i) = (Range("c" & i) - 3500) * 0.45 - 13505
End If
Next
End Sub
|
|