Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Выделение нескольких слов в ячейке другим цветом
 
#1
23.10.2019 21:13:31
Здравствуйте!

1) Есть данные в ячейках A1, A2, A3,... (например, Дикси, Пятерочка, Твой Дом)
2) Есть данные в ячейках B1, B2, B3,... (например, ул.Полярная, ул. Рабочая 23, ул. Партизанская 44)

Подскажите, как можно (и можно ли) сделать следующее:
3) В ячейки C1, C2, C3,... нужно помещать сцепку ячеек A1+B1, A2+B2, A3+B3 (т.е. получается Дикси ул.Полярная, Пятерочка ул.Рабочая 23, Твой Дом ул. Партизанская 44). Но, что очень ВАЖНО, та часть, которую мы берём из ячеек A1,A2,A3 должна быть в красном шрифте. Т.е. "Дикси", "Пятерочка", "Твой Дом" в ячейках С1,С2,С3 выделяются красным, а дальше адрес в обычном черном шрифте идёт.

Спасибо, если подскажете! Решения в VBA тоже годятся.
 
 
 
#2
23.10.2019 21:29:09
Цитата
VZorreS написал:
VBA тоже годятся.
а по другому - только вручную
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
23.10.2019 21:40:07
Вручную тяжело, будет порядка 7000 строк таких. Поэтому я и прошу помощи с кодом в VBA.
 
 
 
#4
23.10.2019 21:41:21
Даже если кто-то и возьмётся - где ему писать этот код?
 
 
 
#5
23.10.2019 21:45:43
Если кто-то и возьмётся, то миллион ему в карму. :)
А файл приложил.
 
 
 
#6
23.10.2019 21:56:27
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
  For i = 1 To iLastRow
    Cells(i, "C") = Cells(i, "A") & " " & Cells(i, "B")
    Cells(i, "C").Characters(1, Len(Cells(i, "A"))).Font.ColorIndex = 3
  Next
End Sub
 
 
 
#7
23.10.2019 22:14:14
Kuzmich, спасибо огромное! Человечище! Изящный код.
Очень благодарен!
 
 
 
#8
23.10.2019 22:17:45
Вот что файл животворящий прикреплённый делает!
 
 
 
#9
23.10.2019 22:20:50
Цитата
Юрий М написал:
Вот что файл животворящий прикреплённый делает!
Спасибо за подсказку. ;)
 
 
 
Страницы: 1
Наверх