Добрый день всем !
Необходимо выделить жирным текст внутри ячейки в столбце В по условию:
если в ячейке встречается сочетание Пробел-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 |
