VBA的Excel做，当且如果条件

Question

下面的代码有时它工作，为两个以上的值，它说的错误提一个溢出。 我只想写一个值的VBA代码的列在每个类别分开三类和计数数字。请告诉我这段代码的错误。

Sub income_status() 

Dim income As Integer 
Dim locount As Integer 
Dim mecount As Integer 
Dim hicount As Integer 



Do While ActiveCell.Value <> "" 

    income = ActiveCell.Value 


    If income <= 10000 Then 
    ActiveCell.Offset(0, 1).Value = "Low Income" 
    locount = locount + 1 

    ElseIf income > 10000 And income <= 50000 Then 

    ActiveCell.Offset(0, 1).Value = "Medium Income" 
    mecount = mecount + 1 

    Else 

    ActiveCell.Offset(0, 1).Value = "High Income" 
    hicount = hicount + 1 


    End If 
    ActiveCell.Offset(1).Select 

    Loop 
    ActiveCell.Offset(1, 2).Value = locount 
    ActiveCell.Offset(1, 2).Value = mecount 
    ActiveCell.Offset(1, 2).Value = hicount 


End Sub 

Answer 1

的整数的最大值为32767。当然有收入高于此，特别是因为你在更高的检查值超过50K。声明所有的变量为多头：

Dim income As Long 
Dim locount As Long 
Dim mecount As Long 
Dim hicount As Long 

，其余的应该是相同的。