Как пометить цветом найденные ячейки? - VB

Формулировка задачи:

Делаю так:

ServiceButton_Click()
 Serv  Range
 vars  Variant
 Serv = Range()
  vars  Serv
 Worksheets().Range()
     c = .Find(vars, LookIn:=xlValues)
      c   
        firstAddress = c.Address
        
            Cells(c.Row, c.Column).Color =  -------------- ошибка!!!!!!!!!!
            TextBox1 = TextBox1 & c.Value & vbCrLf
            TextBox2.Text = TextBox2.Text & CStr(Cells(c.Row, c.Column - ).Value) & vbCrLf
             c = .FindNext(c)
           c    c.Address <> firstAddress

 vars
 

Строку Cells(c.Row, c.Column).Color = 3 VBA не переваривает. Пишет, что объект не поддерживает такое свойство. Пробовал также С.Color - результат тот же.
Помогите!
Спасибо.

Решение задачи: «Как пометить цветом найденные ячейки?»

textual
                            Листинг программы 
                        
                            c.Interior.ColorIndex = <font color="darkblue"><b>3</b></font>

Оцени полезность:

13 голосов , оценка 3.692 из 5

Похожие ответы