VBA Excel Do while and If condition

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 

, а остальное должно быть одинаковым.