初学VBA 求教

ys12580

自学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

ys12580

是不是第四行代码if后面少写了个range?

jiangxiaoyun

end属性看一看先吧

ys12580

jiangxiaoyun 发表于 2019-10-17 22:38
end属性看一看先吧

你好  能详细讲解下吗？

zopey

大致没问题，再通过错误提示，仔细查找。

blue_li

改为如下：
For i = 2 To 2000
If ActiveWorkbook.ActiveSheet.Cells(3, i).Value= "" Then

Exit For

End If
或者
For i = 2 To 2000
If Range("C" &  i ).Value= "" Then

Exit For

End If

shi353

建議上傳附件 方便執行測試結果
提問樓主的代碼太冗長
可簡化提高效率及識別度

donghui2363

你试试
Sub 个税()
arr = Range("a2:c8") '个税数组
    For i = 2 To 100 '循环员工表
        s = Cells(i, 3)
        If s = "" Then Exit For
        For k = 1 To UBound(arr)
            Select Case s
                Case Is > 80000
                    Cells(i, 4) = s * 0.45
                    '其它的条件自己添加
            End Select
        Next k
    Next i
End Sub

ys12580

shi353 发表于 2019-10-18 02:33
建議上傳附件 方便執行測試結果
提問樓主的代碼太冗長
可簡化提高效率及識別度

好的  第一次发帖 没经验！谢谢

ys12580

ys12580 发表于 2019-10-18 08:58
好的  第一次发帖 没经验！谢谢

附件上传了