VBA форматировать текст переменной при конкатенации

Пользователь

Сообщений: 302 Регистрация: 01.01.1970

27.08.2013 15:09:25

Добрый день!
Подскажите как выйти из ситуации
есть

Код
groups ="рпа" groups = "мама" tip = "мыла" nazn = "раму" naim = "мылом" ActiveCell.Offset(0, 1) = groups & tip & nazn & naim

получаем в ячейке "мама мыла раму мылом"
как сделать чтобы было "мама мыла раму мылом" ? (выделить жирным шрифтом "раму"

Спасибо

Watcher_1

Пользователь

Сообщений: 155 Регистрация: 03.08.2013

Мои координаты в профиле

27.08.2013 15:19:35

Код
ActiveCell.Offset(0, 1).Characters(Len(groups & tip) + 1, Len(nazn)).Font.Bold = True

jfd Пользователь Сообщений: 302 Регистрация: 01.01.1970	#3 27.08.2013 15:46:13 почему-то не работает

Watcher_1 Пользователь Сообщений: 155 Регистрация: 03.08.2013 Мои координаты в профиле	#4 27.08.2013 16:00:06 у меня отлично все работает

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#5 27.08.2013 16:12:08 И у меня работает. Можно скрин, ггде не работает? Я сам - дурнее всякого примера! ...

jfd

Пользователь

Сообщений: 302 Регистрация: 01.01.1970

27.08.2013 17:05:19

сам дурак
Watcher_1 спасибо за решение
вот так работает

Код

Sub www()
Cells(1, 1).Activate
groups = "мама"
tip = "мыла"
nazn = "раму"
naim = "рылом"
ActiveCell.Offset(0, 1) = (groups & " / " & tip & " / " & nazn & " " & naim)
ActiveCell.Offset(0, 1).Characters(Len(groups & " / " & tip & " / " & nazn & " ") + 1, Len(naim)).Font.Bold = True

End Sub

Изменено: jfd - 27.08.2013 17:26:38

Читают тему