Форумы HiProg.com - MS ACCESS, VBA, VB

ник: pashulka
1. Изменение цвета заливки, в зависимости от данных других ячеек, легко реализуется с помощью условного форматирования.
2. Причём установить условное форматирование можно как вручную, так и программно, причём последнее аозволит значительно ускоритьпроцесс выполнения макроса.
3. Если использование условного форматирование невозможно, то Ваш макрос может выглядить следующим образом.

Private Sub CommandButton1_Click() If Me.ProtectContents = True Then    MsgBox "Изменение параметров форматирования в защищённом листе может привести к проблемам", , ""    Exit Sub End If If Selection.Column < 3 Then    MsgBox "Нельзя выделять первые два столбца", , ""    Exit Sub End If With Selection.Columns(1)      .Interior.ColorIndex = xlNone      'иначе заливка останется прежней и возможны нежелательные эффекты      Dim iCell As Range      For Each iCell In .Cells          If IsNumeric(iCell.Item(1, -1)) And _             IsNumeric(iCell.Item(1, 0)) Then             If iCell.Item(1, -1) < iCell.Item(1, 0) Then _                iCell.Interior.ColorIndex = 4          End If      Next End With End Sub