Число в тексте с измененным цветом

[segail]

Здравствуйте

Если в тексте с числом числовое значение отрицательное, можно ли
чтобы число отображалось красным цветом, или как задать цвет числу в тексте.

Например:

="Текст "&СУММ(A1:A6)

[The_Prist]

Формула не может форматировать данные в ячейке(а также удалять данные из ячеек, менять цвет заливки и т.д.).

[segail]

Понятно..................

[motorway]

Макросом это можно сделать: пусть в ячейке A1 текст и число из 2 цифр на конце через пробел. Если на конце " 11", то выделяется красным. А в A2 если на конце отрицательное, синим:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Mid(Range("A1").Value, Len(Range("A1").Value) - 2) = 11) Then
    
    With Range("A1").Characters(Start:=Len(Range("A1").Value) - 1, Length:=2).Font
            
            .Color = -16776961
    End With

End If

If (Mid(Range("A2").Value, Len(Range("A2").Value) - 2) < 0) Then

    With Range("A2").Characters(Start:=Len(Range("A2").Value) - 1, Length:=2).Font
        
              .Color = -4165632
        
    End With

End If

End Sub

[The_Prist]

Сообщение от motorway

Макросом это можно сделать: пусть в ячейке A1 текст и число из 2 цифр

Можно при условии, что данные в ячейке А1 не являются формулой.

[segail]

Здравствуйте. Подскажите почему при добавление десятичного значения Round(.Range("D25"), 1)цвет не изменяется?

TextBox5 = Round(.Range("D25"), 0)
If TextBox5 < 0 Then TextBox5.ForeColor = vbRed

При таком варианте Round(.Range("D25"), 0) значение в TextBox5 равно -4 цвет красный, если изменяю код Round(.Range("D25"), 1) значение в TextBox5 равно -4.3 цвет не изменяется.

[segail]

Здравствуйте

Подскажите

В ячейки отрицательные числа отображаются красным цветом, но стоит мне изменить формат десятичных значений кодом

Cells(j, 14).NumberFormat = "0",

то отрицательные числа преобразуются в черный цвет. Что необходимо сделать?

[The_Prist]

Присваивайте такой формат

Cells(j, 14).NumberFormat = "0;[Red]-0"

[segail]

Благодарю.