Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/разная толщина слов в одной ячейке - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » разная толщина слов в одной ячейке (Формулы/Formulas)
разная толщина слов в одной ячейке
Asretyq Дата: Среда, 31.10.2018, 01:34 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 153
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброй ночи
такой вопрос
в ячейке А1 имеется текст [vba]
Код
"привет" & Chr(10) & "как дела"
[/vba], нужен код и на выходе получиться должно [vba]
Код
"привет" & Chr(10) & "[b]как дела[/b]"
[/vba] (слово "как дела" полужирный, например)

То есть текст форматируется в одной ячейке исходя не из количества букв, что я много примеров нашел, а из условия определения в следующей строке, разделенной [vba]
Код
Chr(10)
[/vba]
Текст может быть каждый раз разной длины


Сообщение отредактировал Asretyq - Среда, 31.10.2018, 01:37
 
Ответить
СообщениеДоброй ночи
такой вопрос
в ячейке А1 имеется текст [vba]
Код
"привет" & Chr(10) & "как дела"
[/vba], нужен код и на выходе получиться должно [vba]
Код
"привет" & Chr(10) & "[b]как дела[/b]"
[/vba] (слово "как дела" полужирный, например)

То есть текст форматируется в одной ячейке исходя не из количества букв, что я много примеров нашел, а из условия определения в следующей строке, разделенной [vba]
Код
Chr(10)
[/vba]
Текст может быть каждый раз разной длины

Автор - Asretyq
Дата добавления - 31.10.2018 в 01:34
_Boroda_ Дата: Среда, 31.10.2018, 02:41 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13502
Репутация: 5526 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Range("A2").Characters(Start:=InStr(Range("A2"), Chr(10))).Font.FontStyle = "полужирный"
[/vba]
Вместо СИМВОЛ(10) можно писать так
[vba]
Код
Range("A2").Characters(Start:=InStr(Range("A2"), vbLf)).Font.FontStyle = "полужирный"
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Range("A2").Characters(Start:=InStr(Range("A2"), Chr(10))).Font.FontStyle = "полужирный"
[/vba]
Вместо СИМВОЛ(10) можно писать так
[vba]
Код
Range("A2").Characters(Start:=InStr(Range("A2"), vbLf)).Font.FontStyle = "полужирный"
[/vba]

Автор - _Boroda_
Дата добавления - 31.10.2018 в 02:41
Asretyq Дата: Пятница, 02.11.2018, 14:56 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 153
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, нашел пароль от почты, можно удалить Головастика
Спасибо большое вам за помощь, да работает отлично, учусь потихоньку благодаря вашему сайту ))
для себя многому уже научился, к сожалению времени и знаний нет другим людям помогать пока
 
Ответить
Сообщение_Boroda_, нашел пароль от почты, можно удалить Головастика
Спасибо большое вам за помощь, да работает отлично, учусь потихоньку благодаря вашему сайту ))
для себя многому уже научился, к сожалению времени и знаний нет другим людям помогать пока

Автор - Asretyq
Дата добавления - 02.11.2018 в 14:56
Asretyq Дата: Пятница, 02.11.2018, 15:04 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 153
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, протестил, работает для конкретной ячейки, но для массива не хочет
[vba]
Код
Range("A:A").Characters(Start:=InStr(Range("A3"), Chr(10))).Font.FontStyle = "полужирный"
[/vba]
наверное надо циклом? или можно без него обойтись?
 
Ответить
Сообщение_Boroda_, протестил, работает для конкретной ячейки, но для массива не хочет
[vba]
Код
Range("A:A").Characters(Start:=InStr(Range("A3"), Chr(10))).Font.FontStyle = "полужирный"
[/vba]
наверное надо циклом? или можно без него обойтись?

Автор - Asretyq
Дата добавления - 02.11.2018 в 15:04
_Boroda_ Дата: Пятница, 02.11.2018, 15:07 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13502
Репутация: 5526 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
в ячейке А1 имеется текст
Какой массив? где? в ячейке А1?
А, так он наверняка в Вашем файле-примере, да? Сейчас посмотрю


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
в ячейке А1 имеется текст
Какой массив? где? в ячейке А1?
А, так он наверняка в Вашем файле-примере, да? Сейчас посмотрю

Автор - _Boroda_
Дата добавления - 02.11.2018 в 15:07
Asretyq Дата: Пятница, 02.11.2018, 15:13 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 153
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, Извиняюсь, не ожидал разносторонних вариантов))
К сообщению приложен файл: 123.xlsm(18.0 Kb)
 
Ответить
Сообщение_Boroda_, Извиняюсь, не ожидал разносторонних вариантов))

Автор - Asretyq
Дата добавления - 02.11.2018 в 15:13
_Boroda_ Дата: Пятница, 02.11.2018, 15:18 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13502
Репутация: 5526 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
    For i = 4 To Cells(Rows.Count, 1).End(3).Row
        Range("A" & i).Characters(Start:=InStr(Range("A" & i), Chr(10))).Font.FontStyle = "полужирный"
    Next i
[/vba]
К сообщению приложен файл: 123-5-1.xlsm(17.2 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
    For i = 4 To Cells(Rows.Count, 1).End(3).Row
        Range("A" & i).Characters(Start:=InStr(Range("A" & i), Chr(10))).Font.FontStyle = "полужирный"
    Next i
[/vba]

Автор - _Boroda_
Дата добавления - 02.11.2018 в 15:18
Asretyq Дата: Пятница, 02.11.2018, 15:36 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 153
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, да спасибо, работает отлично
 
Ответить
Сообщение_Boroda_, да спасибо, работает отлично

Автор - Asretyq
Дата добавления - 02.11.2018 в 15:36
Мир MS Excel » Вопросы и решения » Вопросы по Excel » разная толщина слов в одной ячейке (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!