Оформления текста

[tae1980]

Задача: В ячейке записана формула, по результату работы которой формируется текстовое сообщение. Нужно оформить это текстовое сообщение. Например часть сообщения выделить жирным шрифтом, вставить внутрь спецсимволы из шрифта "Symbol" (изменить шрифт у одного или нескольких символов).
Так же интересно делать подобное средствами VBA.
Пример приведен в файле.

[EducatedFool]

Для изменения форматирования отдельных символов текста ячейки можно использовать примерно такой код:
(приведённый код выделяет жирным шрифтом все цифры в ячейке)

Sub BoldingDigits(ByRef cell As Range)
    On Error Resume Next
    For i = 1 To cell.Characters.Count
        letter = cell.Characters(Start:=i, Length:=1).Text
        cell.Characters(Start:=i, Length:=1).Font.Bold = IsNumeric(letter)
    Next
End Sub

Sub ПримерИспользования()
    BoldingDigits [b1]
    BoldingDigits ActiveCell
End Sub

[tae1980]

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

Для изменения форматирования отдельных символов текста ячейки можно использовать примерно такой код:
(приведённый код выделяет жирным шрифтом все цифры в ячейке)

Sub BoldingDigits(ByRef cell As Range)
    On Error Resume Next
    For i = 1 To cell.Characters.Count
        letter = cell.Characters(Start:=i, Length:=1).Text
        cell.Characters(Start:=i, Length:=1).Font.Bold = IsNumeric(letter)
    Next
End Sub

Sub ПримерИспользования()
    BoldingDigits [b1]
    BoldingDigits ActiveCell
End Sub

Уже Очень хорошо!
Для этого нужно позицию символа в строке, что иногда проблематично...
Можно выделить жирным весть текст ограниченные знаком &.
Например :range("A1").value="Текст 1" & "Текст который должен быть жирным" & "Текст 2"

[EducatedFool]

По поводу range("A1").value="Текст 1" & "Текст который должен быть жирным" & "Текст 2"

Если макрос формирует это значение, то можно (на стадии формирования) - макрос запоминает позицию, с которой должен начинаться полужирный текст, и длину этого текста
После формирования строки запускается что-то вроде этого:

range("A1").Characters(Start:=12, Length:=16).Font.Bold = true

Можно также анализировать формулу в ячейке (при помощи макроса)
Допустим, нам известно, что формула в ячейке имеет вид

=a1 & b1 & c1

Мы макросом анализируем формулу, находим адрес ячейки, текст которой должен стать полужирным (в нашем случае мы находим адрес "b1"), считываем этот текст из ячейки b1, находим этот текст в обрабатываемой ячейке (узнавая стартовую позицию этого текста, а длина нам уже известна), и запускаем вышеприведённый код.

Возможно, есть способы попроще.

[tae1980]

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

По поводу range("A1").value="Текст 1" & "Текст который должен быть жирным" & "Текст 2"

Если макрос формирует это значение, то можно (на стадии формирования) - макрос запоминает позицию, с которой должен начинаться полужирный текст, и длину этого текста
После формирования строки запускается что-то вроде этого:

range("A1").Characters(Start:=12, Length:=16).Font.Bold = true

Возможно, есть способы попроще.

А можно так???

string1="Текст 1"
string2="Текст который должен быть жирным"
string3="Текст 3"
strting2.Characters(Start:=1, Length:=по всей длине).Font.Bold = true
range("A1").value=string1&string2&string3

[EducatedFool]

А можно так???

Нет, нельзя.

Зато вот так можно:

Sub test()
    string1 = "Текст 1"
    string2 = " Текст который должен быть жирным "
    string3 = "Текст 3"

    Range("A1").Value = string1 & string2 & string3
    Range("A1").Characters(Len(string1) + 1, Len(string2)).Font.Bold = True
End Sub

[tae1980]

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

Нет, нельзя.

Зато вот так можно:

Sub test()
    string1 = "Текст 1"
    string2 = " Текст который должен быть жирным "
    string3 = "Текст 3"

    Range("A1").Value = string1 & string2 & string3
    Range("A1").Characters(Len(string1) + 1, Len(string2)).Font.Bold = True
End Sub

ИМХО похоже это лучшее что можно придумать и вполне приемлемо.
Как я понимаю таким же способом можно изменить и тип шрифта текста...