Voodooism
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Окей,я понял. Ну и последний вопрос на сегодня, а то я уже устал, и вас утомил 
В общем задача такая:
В каждой строке диапазона подсчитать число пар соседних ячеек, таких, что значение во второй ячейке в 2 раза меньше значения в первой ячейке, и выделить цветом меньшее значение.
Написал такой код
Код:
Sub ololoshka2()
Dim NR, NC, NumOfRow, NumOfCol, i, j As Integer
Dim Item, Item1 As Variant
Dim K As Double
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)
Item1 = Selection.Cells(i, j + 1)
K = Item \ Item1
If K = 2 Then
Selection.Cells(i, j + 1).Font.Color = vbRed
End If
Next j
Next i
End Sub
|
Если, к примеру, у меня будет выделен квадрат ячеек 4х4, то на 4 ячейке первой строки у меня Item1 будет равнятся пятой ячейке, и соответственно программа не работает. Как сделать так чтобы в цикле проверялись только ячейки в строке? Т.е. чтобы после 4 ячейки сразу переходить в первую ячейку второй строки и сравнивать со второй ячейкой второй строки. |
