так смешнее
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
For Each u In Range(Target.Address)
v = " о 1в 256б 257д65536"
w = InStr(v, u.Value)
On Error Resume Next
u.Interior.Color = Trim(Mid(v, w + 1, 5)) * 255
Next
End Sub
[/vba]как-то не очень смешно,
теперь да:
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
For Each u In Range(Target.Address)
v = "0о00001в00256б00257д65536ю"
w = InStr(v, u.Value)
On Error Resume Next
u.Interior.Color = Mid(v, w + 1, 5) * 255
Next
End Sub
[/vba]