Как найти цвет фона ячейки

Question

Использование Flexgrid

Я хочу проверить цвет фона определенной ячейки ...

Код

if flexgrid1.TextMatrix(1, 2).CellBackColor = vbCyan then
msgbox vbcyan
else
msgbox vbwhite
End if

Приведенный выше код показывает ошибку как "НедопустимыйКвалификатор "

Другой способ ....

if flexgrid1.row = 1 and flexgrid1.col = 2 and  .CellBackColor = vbCyan then
    msgbox vbcyan
    else
    msgbox vbwhite
    End if

Приведенный выше код не отображает окно сообщения

Как решить проблему ...

Что не так в моем коде.

Answer 1

.CellBackColor получает / устанавливает цвет для текущего .Row / .Col, поэтому, прежде чем спрашивать, вы должны установить .Row / .Col на тот, на который вы смотрите:

With flexgrid1
   .Row = 1
   .Col = 2
   If .CellBackColor = vbCyan Then
      msgbox vbCyan
   Else
      msgbox vbWhite
   End If
End With 

Answer 2

Ваши сообщения msgbox кошерные? msgbox принимает строку в качестве аргумента.

msgbox "colour is Cyan"