разная толщина слов в одной ячейке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » разная толщина слов в одной ячейке (Формулы/Formulas)

Asretyq

Дата: Среда, 31.10.2018, 01:34 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 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

Ответить

_Boroda_

Дата: Среда, 31.10.2018, 02:41 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 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

Ответить

Asretyq

Дата: Пятница, 02.11.2018, 14:56 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

Ответить

Asretyq

Дата: Пятница, 02.11.2018, 15:04 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

_Boroda_, протестил, работает для конкретной ячейки, но для массива не хочет
[vba]

Код

Range("A:A").Characters(Start:=InStr(Range("A3"), Chr(10))).Font.FontStyle = "полужирный"

[/vba]
наверное надо циклом? или можно без него обойтись?

Ответить

_Boroda_

Дата: Пятница, 02.11.2018, 15:07 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Цитата Asretyq, 31.10.2018 в 01:34, в сообщении № 1 ()

в ячейке А1 имеется текст

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

Ответить

Asretyq

Дата: Пятница, 02.11.2018, 15:13 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

_Boroda_, Извиняюсь, не ожидал разносторонних вариантов))

К сообщению приложен файл: 123.xlsm (18.0 Kb)

Ответить

_Boroda_

Дата: Пятница, 02.11.2018, 15:18 | Сообщение № 7

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 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)

Ответить

Asretyq

Дата: Пятница, 02.11.2018, 15:36 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

_Boroda_, да спасибо, работает отлично

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » разная толщина слов в одной ячейке (Формулы/Formulas)

Страница 1 из 1
1