ник: Alega
Excel
есть два столбца с данными, рядом выделяю третий столбец и жму баттона, процедура должна сравнить данные по строкам из первых двух столбцов и если истина закрасить третью ячейку в строке сравнения, если фальшь, то оставить как есть.
Private Sub CommandButton1_Click()
Dim cur_range As Range
With ActiveSheet
Set cur_range = Selection
cur_range.Activate
If .[R[-2]C].Value < .[R[-1]C].Value Then
With cur_range.Interior
.ColorIndex = 4
End With
End If
End With
End Sub
Ругаться, не ругается!!! Но и не хрена не делает, подскажите ПЛЗ в чем прикол.
Заранее Сенкс. 