Разный размер шрифта в ячейке с формулами

[no_such]

Здравствуйте!
Очень плохо знакома с VBA, но по работе приходиться изучать понемногу. Благо интернет под рукой. Прошу помощи

Есть ячейка с формулами : =СЦЕПИТЬ(ЕСЛИ((ВПР(BC2;Список!A:F;4 ;0))="ИП";"Выдан индивидуальному предпринимателю";СЦЕПИТЬ("Выдан представителю компании";" ";ВПР(BC2;Список!A:F;4;0)));" ";"(";СЦЕПИТЬ(ЕСЛИ(ЛЕВСИМВ(ВПР(BC2; Список!A:F;5;0);3)="ст.";(ВПР(BC2;С писок!A:F;5;0));СЦЕПИТЬ("г.";ВПР(BC 2;Список!A:F;5;0))));")")

Результат вычислений выглядит вот так: Выдан представителю компании ООО "Зима-Лето" (ст. Динская)

Требуется макрос, а еще лучше встроенное автоматическое форматирование после каких-то изменений в ячейке, чтобы результат вычислений определенной формулы (выделена жирным) в итоге был другого размера.
Т.е.: Выдан представителю компании ООО "Зима-Лето" (ст. Динская)

P.S.: Файл, к сожалению, приложить не могу из соображений конфиденциальности. Большое спасибо за помощь!!

[EducatedFool]

Насколько я знаю, ячейки с формулами не поддерживают такое форматирование.
Можно написать макрос, которые вычислит значения, запишет эти значения в ячейки, и потом уже отформатирует (выделит) нужные слова.

[no_such]

Спасибо, я вас поняла...
Но для меня нереально сложно записать эту формулу в виде макроса...
Сейчас попробую сделать лайт версию файла и выложить сюда, быть может вы поможете написать нужный макрос?

[EducatedFool]

Попробуем - вдруг получится)
Пример не забудьте - как есть, и как надо.

[no_such]

У меня 2007 Excel. Файл сохранила для 2003.
Смысл формулы (=СЦЕПИТЬ(ЕСЛИ((ВПР(BC2;Список!A:F;4 ;0))="ИП";"Выдан индивидуальному предпринимателю";СЦЕПИТЬ("Выдан представителю компании";" ";ВПР(BC2;Список!A:F;4;0)));" ";"(";СЦЕПИТЬ(ЕСЛИ(ЛЕВСИМВ(ВПР( BC2; Список!A:F;5;0);3)="ст.";(ВПР(BC2;С писок!A:F;5;0));СЦЕПИТЬ("г.";ВПР(BC 2;Список!A:F;5;0))));")"))в принципе простой:
1) Если в столбце D находится значение "ИП", тогда пишется просто "Выдан индивидуальному предпринимателю", если не находится "ИП", тогда пишется "Выдан представителю компании"+название компании.
2) Если в столбце Е первые три буквы "ст.", тогда просто вставляется значение этой ячейки, если этих букв нет, тогда сцепляется "г." и значение этой ячейки.

Надеюсь не запутала!... Помогите, пожалуйста

[IgorGO]

в ячейку надо положить значение
его можно отформатировать так:

  With ActiveCell
    With .Characters(Start:=InStr(25, .Value, " "), _
    Length:=InStr(.Value, "(") - 1 - InStr(25, .Value, " ")).Font
      .FontStyle = "полужирный"
      .Size = 16
    End With
  End With

[Казанский]

Неповторимая , попробуйте.
При изменении яч. BC2 макрос собирает данные из A8:A12 в А15, включая некоторое форматирование шрифта.
Соответственно, для настройки вида и содержимого конечной ячейки Вам не надо менять макрос, а только формулы и форматы промежуточных ячеек. Их можно скрыть.

[EducatedFool]

Вот какой макрос получился:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [bc2].Address Then
        On Error Resume Next: Application.ScreenUpdating = False
        With Лист2.Range("a8")
            .Value = Лист2.Range("a7")
            .Font.Bold = False
            .Font.Size = 14

            pos1 = InStr(1, .Value, Лист2.Range("b7"))
            dl = Len(Лист2.Range("b7"))
            If pos1 > 0 Then
                With .Characters(pos1, dl).Font
                    .Bold = True
                    .Size = 16
                End With
            End If
        End With
    End If
End Sub

Пример в файле - проверяйте:
http://excelvba.ru/XL_Files/Sample__...__13-55-29.zip

Формулы (2 шт.) в ячейках A7 и B7 (шрифт белый)
Макрос берет вычисленные формулами значения, и подкрашивает второе значение в тексте первого.

[no_such]

IgorGO, Ваш вариант работает, в принципе... Спасибо!!
Только не могли бы вы пояснить как работает ваш макрос? Что означает 25? Если это количество знаков до текста, который надо форматировать, то в случае "Выдан индивидуальному предпринимателю (ст. Динская)" макрос работать будет некорректно?? Не очень понятно...

Казанский, не совсем то, что мне требуется... Изменение формата нужно для ООО "Зима-Лето", а не для ФИО.

EducatedFool, Спасибо, Ваш вариант мне нравится больше всего!! Буду тестить... Возникнут вопросы - потревожу вас еще раз!

[IgorGO]

  With Cells(8, 1)
    .Value = Cells(7, 1)
    With .Characters(Start:=InStr(25, .Value, " "), _
    Length:=InStr(.Value, "(") - 1 - InStr(25, .Value, " ")).Font
      If InStr(Cells(8, 1).Value, "(") - 1 - InStr(25, Cells(8, 1).Value, " ") > 0 Then
        .FontStyle = "полужирный"
        .Size = 22
      End If
    End With
  End With

я, как и Игорь, Вашу страшную формулу переместил в А7 и залил белым цветом (чтобы не отсвечивала).