В: Создайте подпроцедуру с именем «Task2» для получения цветов шрифта и цвета интерьера с помощью функций поля ввода. Разрешить пользователю вводить цвета «Фрукты» и «Овощи», используя 2 функции ввода соответственно. Используйте другую функцию поля ввода, чтобы получить внутренний цвет трав. Затем используйте структуру If / Then / ElseIf, чтобы изменить шрифт и цвета интерьера на основе введенных пользователем данных. В этом подпункте нет необходимости создавать окно сообщения.
Dim i As Integer
Dim RowCount As Integer
Dim FruitColor As Variant
Dim VegColor As Variant
Dim HerbColor As Variant
' create 3 input box functions here to obtain user's preference:
' 2 input box functions for Fruits (Blue or Magenta), and
' Vegetables (Red or Cyan); 1 input box function for interior
' color of Herbs (Yellow or Green)
FruitColor = InputBox("Please enter the color of fruits: " & vbCrLf & _
"Blue or Magenta", "Fruit Color")
If FruitColor = "Blue" Then
FruitColor = vbBlue
Else
FruitColor = vbMagenta
End If
' insert If/Then/Else structures to format the colors of
' Vegetables and Herbs
VegColor = InputBox("Please enter the color of vegetables: " & vbCrLf & _
"Red or Cyan", "Vegetables Color")
If VegColor = "Red" Then
VegColor = vbRed
Else
VegColor = vbCyan
End If
HerbColor = InputBox("Please enter the interior color of herbs: " & vbCrLf & _
"Yellow or Green", "Herbs Color")
If HerbColor = "Red" Then
HerbColor = vbYellow
Else
HerbColor = vbGreen
End If
With Sheets("Sheet1").Range("a1")
RowCount = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To RowCount
' insert the IF/THEN/ELSE structure here to
' format the font color of Fruits and Vegetables,
' and interior color of Herbs
Next
End With
Как выглядит sheet1