2016-11-30 8 views
0

Пожалуйста, помогите мне решить эту проблему. Как только я запустил этот макрос VBA, он показывает ошибку, в которой упоминается ошибка определения приложения или объекта.VBA-Excel Macro

Код:

Sub income_status() 
Dim i As Integer 

For i = 1 To 10 
    Cells(i, 0) = ActiveCell.Value 

    If Cells(i, 0) <= 10000 Then 
    Cells(i, 1) = "Low Income" 
    ElseIf Cells(i, 0) > 10000 And Cells(i, 0) <= 50000 Then 
    Cells(i, 1) = "Medium Income" 
    Else 
    Cells(i, 1) = "High Income" 
    End If  
Next i 

End Sub 
+3

нет колонки 0. Столбец А равен 1 не 0. –

+0

Как упоминал Скотт, нет столбца 0. Однако ... вы действительно пытаетесь получить доступ к столбцу 0, или вы пытаетесь выполнить какой-то смещение из текущей ячейки? На данный момент ваш код, даже если вы меняете ', 0' и', 1' на ', 1' и', 2' соответственно, просто берет одну (активную) ячейку и помещает это же значение в 10 строк с то же самое соответствующее описание помещено в соседний столбец. Вместо этого вы пытаетесь обработать 10 разных значений в 10 строках, начиная с текущей ячейки? – YowE3K

ответ

0

Там нет Cells (1,0). Индекс для строки или столбца всегда начинается с 1

+0

Упс, извините, не видел комментария Скотта – Storax

+0

Скотт Кранер, На самом деле я хочу создать макрос для заданного набора данных. Скажем, есть столбец, который включает ежемесячный доход нескольких человек. Я хочу ухаживать за> 10000 «низким доходом», 10001-50000: средний доход и> 50000, а затем высокий доход. В то же время я хочу подсчитать количество данных в каждой категории. Пожалуйста, помогите мне написать этот макрос –