Voodooism
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста, я в тупике. В институте занимаюсь изучением VBA. Код приведенный ниже взят из методички( за исключением переменных, их озвучивал сам)
Код: Sub Диапазон_ячеек()
Dim KP, KO, KN, NR, NC, NumOfRow, NumOfCol, i, j As Integer
Dim Item As Variant
NR = Selection.Rows.Count
NC = Selection.Columns.Count
NumOfRow = Selection.Row
NumOfCol = Selection.Column
For i = 1 To NR
For j = 1 To NC
Item = Selection.CeIls(i, j)
If IsNumeric(Item) Then ' если значение в ячейке - числовое
If Item > 0 Then
КР = КР+1
Selection.Cells(i, j).Font.Color = vbRed
End If
If Item = 0 Then KN = KN + 1
If Item < 0 Then КО = КО + 1
End If
Next j
Next i
Cells(NumOfRow, NumOfCol + NC) = КР
Cells(NumOfRow, NumOfCol + NC + 1) ="Количество положительных значений"
Cells(NumOfRow + 1, NumOfCol + NC) = KN
Cells(NumOfRow + 1, NumOfCol + NC + 1) ="Количество нулевых значений"
Cells(NumOfRow + 2, NumOfCol + NC) = КО
Cells(NumOfRow + 2, NumOfCol + NC + 1) ="Количество отрицательных значений"
End Sub |
Суть задачи:
1. Составьте макрос, ко¬торый в выделенном диапазоне ячеек В2:С5 подсчитывает количество по¬ложительных, нулевых и отрицательных значений, записывает ре¬зультаты в смежную с диапазоном колонку и выделяет цветом ячейки с положительными значениями.
Проблема в том, что в строке "Item = Selection.CeIls(i, j) " выдает ошибку "Object doesn't support this property or method (Error 438)"
Код скопирован полностью из методички, не могу разобраться в чем проблема. |
