Фон ячейки

[Lirin]

Такая проблемка... Надо в зависимости от цвета фона ячейки (i,3) присвоить значение ячейке (i,2). Использую Cells(i, 3).Interior.ColorIndex.Value - не помогает... Помогите, плз...

[alibek]

Cells(i,2)=Cells(i,3).Interior.ColorIndex

[Lirin]

спасибо...
правда в моем случае это выглядит как:
color_flag = Cells(i, 3).Interior.ColorIndex
Select Case color_flag
Case 36
Cells(i, 2) = "HB"
....
End Select
но идея была верной...
еще раз спасибо...

[alibek]

Cells(i,2)=Choose(color_flag,"color1","color2",...)
Cells(i,2)=Switch(color_flag,1,"color1",2,"color2",...)

[Igor_123]

...Choose...Switch...

[Lirin]

Cells(i,2)=Choose(color_flag,"color1","color2",...)
Cells(i,2)=Switch(color_flag,1,"color1",2,"color2",...)

мммм... а в чем смысл?

[alibek]

мммм... а в чем смысл?

Сравни два варианта:

Код: Выделить всё

color_flag = Cells(i, 3).Interior.ColorIndex
Select Case color_flag
  Case 36
    Cells(i, 2) = "HB"
  ...
End Select


Код: Выделить всё

Cells(i, 2) = Choose(Cells(i, 3).Interior.ColorIndex, _
                     "color1",
                     "color2",
                     ...
                     "HB",
                     "color37")
'или
Cells(i, 2) = Switch(Cells(i, 3).Interior.ColorIndex, _
                     1, "color1", _
                     ...
                     36, "HB", _
                     37, "color37")


Помоему, второй вариант компактнее и легче читается.

[Lirin]

Помоему, второй вариант компактнее и легче читается.

мое мнение: первый - интуитивно более понятный и простой, второй - м.б. более профессиональный и навороченный... ))))
не претендую на профессионализм, чистое ИМХО...