Voodooism
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Black_Lung
Спасибо тебе! С другом сидели минут 20 разбирались что как. В смой среде разработки - не сразу бросается в глаза 
Добавлено:
Ну а теперь на основе того кода, пишу свой - но опять что то не получается.
Задача программы в том чтобы выделить цветом значения, превышающие по абсолютной величине число 1 и расположенные в ячейках с четными номерами колонок, и подсчитать количество таких ячеек.
Код:
Sub ex7()
Dim NR, NC, NumOfRow, NumOfCol, i, j, K As Integer
Dim Item As Variant
K = 0
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.Cells(i, j)
If IsNumeric(Item) Then
If Abs(Item) > 1 And j Mod 2 = 0 Then
Selection.Cells(i, j).Font.Color = vbRed
K = K + 1
End If
Next i
Next j
End Sub
|
Ошибку выдает такую:
Compile error:
Next without For.
Хотя в коде явно видно что For указано нормально. |
Всего записей: 7 | Зарегистр. 22-11-2012 | Отправлено: 13:29 22-11-2012 | Исправлено: Voodooism, 17:46 22-11-2012 |
|
