VBA Excel Do while 및 If 조건

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를 초과하는 값을 확인 중이므로 분명히 소득이 더 높습니다. 모든 변수를 long으로 선언하십시오.

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

나머지는 동일해야합니다.