Добрый день всем !
Необходимо выделить жирным текст внутри ячейки в столбце В по условию:
если в ячейке встречается сочетание Пробел-3цифры слитно - запятая
то 3 цифры выделяются жирным
Подглядел макрос но он выделяет жирным выделить жирным шрифтом весь текст до первой запятой
а надо по условию Пробел-3цифры слитно - запятая и выделить 3 цифры жирным
не знаю как строку iPos = InStr(iCell.Value, ",") поменять под мое условие
Необходимо выделить жирным текст внутри ячейки в столбце В по условию:
если в ячейке встречается сочетание Пробел-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 |
Изменено: - 25.07.2019 10:05:46
