Формат текста в формуле - Microsoft Office Excel

Vertana · 24.07.2009, 18:44

Доброго времени суток, уважаемые!

Прошу вашей помощи, может кто-то сталкивался.

Использую формулу "Сцепить" для сбора текста из разных ячеек. Изменить формат (выделить жирным или подчернуть), если ячейка не формула, вопросов нет, а вот есть ли возможность задать формат текста в ячейке с формулой?

для нагладности: файлик приложен

Vertana · 24.07.2009, 19:31

Ну вот, всем отвечают, а мне нет

Если такой возможности нет, то скажите, не томите

aval · 24.07.2009, 19:45

Наверное, такой возможности нет.

motorway · 24.07.2009, 19:58

Думаю, с помощью макроса это сделать можно. Вот нечто похожее (изменяет шрифт)

Код:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("E7").Select
 
    With ActiveCell.Characters(Start:=1, Length:=16).Font
        .Name = "Courier"
        .FontStyle = "обычный"
        .Size = 15
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
End Sub

The_Prist · 27.07.2009, 10:20

Именно под Ваш пример выглядеть будет так

Код:

With Range("E7")
   .Characters(Start:=17, Length:=Len(Range("B7"))).Font.Bold = True
   .Characters(Start:=(16 + Len(Range("B7")) + 18), Length:=Len(Range("B5")) + 2).Font.Underline = True
   .Characters(Start:=(Len(Range("E7")) - 11 - Len(Range("B6"))), Length:=Len(Range("B6"))).Font.Underline = True
End With

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

SAS888 · 27.07.2009, 10:32

А не проще, сформировать бланк письма так, чтобы ФИО находились в отдельной ячейке с заранее установленным форматом? Например, первая строка текста письма выглядит так:
В ячейке "A1" (для примера) находится значение "Уважаемый, ", а в ячейке "A2" - ссылка на ячейку с ФИО & "!". Далее текст с новой строки. Проблем с количеством символов, содержащихся в ФИО в таком случае не будет.

Vertana · 27.07.2009, 18:52

Спасибо всем огромное за ответы. Интересные варианты.
Что то с кодом motorway не пошло, видимо я не очень сильна в макросах... а вот код The_Prist все вышло так как надо. Однако, это как вы понимаете был пример, на практике текст большой, и считать какой символ какой должен иметь формат, застрелиться можно...

Послушалась совета SAS888, раскидала ячейки

Еще раз всем спасибо!

24.07.2009, 19:58	#4
motorway Участник клуба Регистрация: 28.06.2009 Сообщений: 1,950	Думаю, с помощью макроса это сделать можно. Вот нечто похожее (изменяет шрифт) Код: `Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Range("E7").Select With ActiveCell.Characters(Start:=1, Length:=16).Font .Name = "Courier" .FontStyle = "обычный" .Size = 15 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With End Sub` Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек Быстрый проверенный хостинг. Последний раз редактировалось motorway; 24.07.2009 в 20:03.

27.07.2009, 10:20	#5
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Именно под Ваш пример выглядеть будет так Код: `With Range("E7") .Characters(Start:=17, Length:=Len(Range("B7"))).Font.Bold = True .Characters(Start:=(16 + Len(Range("B7")) + 18), Length:=Len(Range("B5")) + 2).Font.Underline = True .Characters(Start:=(Len(Range("E7")) - 11 - Len(Range("B6"))), Length:=Len(Range("B6"))).Font.Underline = True End With` Но чтобы сработало, необходимо изначально формулы в значения конвертировать, т.к. формула не может вернуть форматирование. Данное форматирование можно применить только к ячейкам содержащим именно значения, а не формулы. WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

27.07.2009, 10:32	#6
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	А не проще, сформировать бланк письма так, чтобы ФИО находились в отдельной ячейке с заранее установленным форматом? Например, первая строка текста письма выглядит так: В ячейке "A1" (для примера) находится значение "Уважаемый, ", а в ячейке "A2" - ссылка на ячейку с ФИО & "!". Далее текст с новой строки. Проблем с количеством символов, содержащихся в ФИО в таком случае не будет. Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
КАК ПЕРЕДЕЛАТЬ ФОРМАТ mp4 В ФОРМАТ 3gp,MPEG4	kamalruslan	Софт	4	20.08.2015 16:16
MS WORD. Формат текста и таблиц	kaa1977	Общие вопросы Delphi	2	13.07.2010 12:56
Ошибка в формуле	Sasuke-sama	Microsoft Office Excel	4	26.05.2009 23:39
Вопрос по формуле	Philipok	Microsoft Office Excel	4	09.10.2008 10:10
Условие в формуле	Shavminator	Microsoft Office Excel	3	13.02.2008 19:18

24.07.2009, 19:31	#2
Vertana Регистрация: 24.07.2009 Сообщений: 3	Ну вот, всем отвечают, а мне нет Если такой возможности нет, то скажите, не томите

24.07.2009, 19:45	#3
aval Пользователь Регистрация: 08.06.2009 Сообщений: 68	Наверное, такой возможности нет.

27.07.2009, 18:52	#7
Vertana Регистрация: 24.07.2009 Сообщений: 3	Спасибо всем огромное за ответы. Интересные варианты. Что то с кодом motorway не пошло, видимо я не очень сильна в макросах... а вот код The_Prist все вышло так как надо. Однако, это как вы понимаете был пример, на практике текст большой, и считать какой символ какой должен иметь формат, застрелиться можно... Послушалась совета SAS888, раскидала ячейки Еще раз всем спасибо!