ребята привет!
подскажите как мне решить следующую проблему.
я не рублю в вба так что не судите строго...

что хочу сделать хочу иметь функцию результатом которой была бы смена бэкграунгда ячейки ну нифига не получается сижу уже с этим дней 5

один из моих изысков :
Function Cvet (uslowie)

If uslowie= "1" Then

With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

End If

End Function


ну и так далее и тому подобное
в общем пробовал по разному ни работает ничего

помогитеразобраться с проблемой буду очень признателен
спасибо

условное форматирование не канает потому что мне надо именно функцию ... или что то похожее на нее...
я потом это буду использогвать в случае когда условное форматирование не прокатит

Public Function cvet(uslovie As Integer)
If uslovie = 1 Then
With Selection.Interior
.ColorIndex = 6
End With
End If
End Function

такая штука у меня не работает

результатом вставки в ячейку 1 является 0 и все
цвет не меняется ...
я уже такое пробовал делать ...

не правильно не много выразился
=cvet(1)
дает мне 0 в ячейке