Назначение Excel VBA & Я не могу получить цвет фруктов / овощей и трав после настройки полей ввода - PullRequest
0 голосов
/ 20 марта 2020

В: Создайте подпроцедуру с именем «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

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...