ник: ROM!MDB
Есть функция:
Function DIN_Kl(Kl0, Kl1) As String
Dim d As Variant
Dim P As Variant
d = Kl1 - Kl0
P = Round(Kl1 / Kl0 * 100, 0)
If d > 0 Then
DIN_Kl = "По сравнению со значением на начало периода наблюдается положительная динамика показателя: увеличение показателя на " & P & "%."
ElseIf d = 0 Then
DIN_Kl = "Значение показателя не меняется"
ElseIf d < 0 Then
DIN_Kl = "По сравнению со значением на начало периода наблюдается отрицательная динамика показателя: уменьшение показателя на" & P & "%."
End If
End Function
|
Вопрос. Как выкрасить цвет текста получаемой переменной "P"- в первом случае (там где положительная динамика) например в зеленный, а в третьем (там где отрицательная динамика) в красный!!? При этом чтоб остальной текст оставался черным кроме значка процента - он должен соответствовать цвету переменной P/
Посоветуйте какими методами и их свойствами это можно сотворить!!!