Заливка цветом с выпадающим окном

[staniiislav]

Доброго времени суток, ув. форумчане. Есть небольшая проблема с заливкой цветом макросом. Прилагаю пример и в примере описание проблемы. Взял макрос nerv'a за основу, и пытаю переделать по цвет заливки. Изначально макрос выглядел так:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> [b6].Address Then Exit Sub
Dim i&
With Application
.EnableEvents = False
.Range("b7:b51").ClearContents
With Target
If .Count = 1 Then
If .Address = "$B$6" Then
For i = .Value To Application.InputBox("Ââåäèòå êîëè÷åñòâî äíåé âûðàùèâàíèÿ", "Âíèìàíèå", Type:=1) + .Value
Cells(i - CLng(.Value) + 6, "B").Value = i
Next
End If
End If
End With
.EnableEvents = True
End With
End Sub

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

[nilem]

Попробуем угадать. Так?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [f3:f56]) Is Nothing Then Exit Sub
Target.Interior.ColorIndex = Application.InputBox("Введите число от 1 до 50", "Внимание", Type:=1)
End Sub

[staniiislav]

почти так, но у меня в коде было указано через RBG. То есть было приведено 5 рбг цветов, допустим я число или слово, и это один рбг, другое число или слово или буква и это другой рбг цвет. Как можно подправить ваш код?

[nilem]

Так что ли:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [f3:f56]) Is Nothing Then Exit Sub
Select Case Application.InputBox("Введите что-нибудь")
    Case "слово1": Target.Interior.Color = RGB(242, 221, 220)
    Case "слово2": Target.Interior.Color = RGB(255, 192, 0)
    Case "слово3": Target.Interior.Color = RGB(155, 187, 89)
    Case "слово4": Target.Interior.Color = RGB(197, 217, 241)
    Case "слово5": Target.Interior.Color = RGB(255, 0, 0)
    Case Else: Exit Sub
End Select
End Sub

[staniiislav]

то что нужно, Спасибо огромное!