Страницы: 1
RSS
Выделить жирным текст в ячейке по условию
 
Добрый день всем !
Необходимо выделить жирным текст внутри ячейки в столбце В по условию:
если в ячейке встречается сочетание Пробел-3цифры слитно - запятая
то 3 цифры выделяются жирным

Подглядел макрос но он выделяет жирным выделить жирным шрифтом весь текст до первой запятой
а надо по условию Пробел-3цифры слитно - запятая  и выделить 3 цифры жирным
не знаю как строку iPos = InStr(iCell.Value, ",")  поменять под мое условие
Код
Private Sub Test()    
Application.ScreenUpdating = False    
Dim iCell As Range, iPos&    
For Each iCell In [B1:B100].SpecialCells(xlConstants, xlTextValues)        
iPos = InStr(iCell.Value, ",")        
If iPos > 1 Then iCell.Characters(1, iPos - 1).Font.Bold = True    
Next    
Application.ScreenUpdating = True 
End Sub
Изменено: Oleg343 - 25.07.2019 10:05:46
 
Oleg343,
Код
If iPos > 1 Then iCell.Characters(iPos + 2, 3).Font.Bold = True

Вы бы тестовый пример приложили, чтоли... :)
In GoTo we trust
 
Благодарю - заработало !
 
Цитата
надо по условию Пробел-3цифры слитно - запятая  и выделить 3 цифры жирным
А, если таких условий несколько в ячейке?
Например ненгененггнгн, 205, 3-06,н, 205, 371-66-85н, 205,
Страницы: 1
Наверх