Select Case Worksheets(1).Cells(5, 1).Interior.ColorIndex
Case xlNone: MsgBox "Нет заливки", , ""
Case 15: MsgBox "Предположительно серый(25%)", , ""
End Select
'Вместо MsgBox должны быть Ваши инструкции
Как можно определить цвет ячейки?
Добрый день. Подскажите пожалуйста как можно определить цвет ячейки? При этом установить условие. Например:
If Sheets("1").Cells(a, 1).Value = xlNone (Interior.ColorIndex) Then GoTo A1
If Sheets("1").Cells(a, 1).Value = 15 (Interior.ColorIndex) Then GoTo A2
If Sheets("1").Cells(a, 1).Value = xlNone (Interior.ColorIndex) Then GoTo A1
If Sheets("1").Cells(a, 1).Value = 15 (Interior.ColorIndex) Then GoTo A2
Вячеслав, Вы сами и ответили на поставленный вопрос
Код:
Большое спаибо за помощь.
Век живи век учись.
Век живи век учись.