Уважаемые форумчане, приветствую! Задача следующая: есть диапазон ячеек, часть текста в каждой из которых нужно выделить жирным шрифтом(в данном случае, всё, что находится после двоеточия) Накидал макрос, но он работает не совсем корректно. Прилагаю файл примера и прошу вашей помощи!
P.S. Диапазон ячеек для редактирования может быть расширен, хотелось бы учесть и этот момент.
Уважаемые форумчане, приветствую! Задача следующая: есть диапазон ячеек, часть текста в каждой из которых нужно выделить жирным шрифтом(в данном случае, всё, что находится после двоеточия) Накидал макрос, но он работает не совсем корректно. Прилагаю файл примера и прошу вашей помощи!
P.S. Диапазон ячеек для редактирования может быть расширен, хотелось бы учесть и этот момент.Xpert
Диапазон ячеек для редактирования может быть расширен
вариант для выделенного диапазона [vba]
Код
Sub Test() Dim cell As Range, i& For Each cell In Selection i = InStr(cell, ":") If i > 0 Then cell.Characters(Start:=i + 1, Length:=Len(cell)).Font.Bold = True Next End Sub
Диапазон ячеек для редактирования может быть расширен
вариант для выделенного диапазона [vba]
Код
Sub Test() Dim cell As Range, i& For Each cell In Selection i = InStr(cell, ":") If i > 0 Then cell.Characters(Start:=i + 1, Length:=Len(cell)).Font.Bold = True Next End Sub