Как решить задачку в общем виде?

[sonata]

Есть интересная задачка:
в зависимости от цвета ячейки определенного столбца,
присваиваем значения "1" в другие столбцы,чтобы потом иметь возможность отобрать и посчитать ячейки с определенным цветом.
Я сделала так, но хотелось бы услышать мнение Гуру...
Как сделать так, чтобы иметь возможность использовать эту задачку в других приложениях...

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

Public Sub Только_акты_передачи()
'Сравниваем цвета ячеек Столбца А(лист "СМР_акты ")
'Задача: Условие "Если цвет ячейки желтый(6), то в ячейке Столбца D(4) ставим 1
'Условие "Если цвет ячейки зеленый(4), то в ячкйке Столбца E(5) ставим 1
'Условие "Если цвет ячейки красный(3), то в ячкйке Столбца F(6) ставим 1
Dim i As Integer
    For i = 1 To 320
    Sheets("СМР_акты").Select
    Cells(i, 1).Select
        If (Selection.Interior.ColorIndex = 6) Then
            Sheets("СМР_акты").Cells(i, 4).Value = 1
    ElseIf (Selection.Interior.ColorIndex = 4) Then
            Sheets("СМР_акты").Cells(i, 5).Value = 1
    ElseIf (Selection.Interior.ColorIndex = 3) Then
            Sheets("СМР_акты").Cells(i, 6).Value = 1
    ElseIf (Selection.Interior.ColorIndex = 44) Then
            Sheets("СМР_акты").Cells(i, 7).Value = 1
       End If
   Next i
End Sub

[corgi]

а сразу посчитать сложно

[sonata]

Так ведь и знала, что не совсем поймут...
Мне еще нужно визуальное цветное представление...
Так хочется цвета, ярких красок, когда на дворе слякоть и дождь...

[jetcom]

2sonata: Только, на мой взгляд, Select здесь был лишним, - просто перебирай в цикле Cells(i,1) и ... тот же результат, но за меньшие деньги!

[corgi]

ну так кто против красок
я просто к тому что зачем делать еще одну функцию, когда можно все в одной совместить

[GSerg]

Ну нужно человеку единички ставить

Я бы сделал функцию

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

function IsColor(r as excel.range,ColorIndex as long) as variant
  iscolor=iif(r.interior.colorindex=colorindex,1,vbnullstring)
end function


и растянул бы её в те ячейки, где она должна быть.

Кстати, чего у нас с почтой? Как я понимаю, ты моего письма не получала, хотя я его отправлял. Ещё раз отправить?