Отметить жирными посчитать ячейки с жирным шрифтом?

Question

[rashxxl]

Приветствую. Есть список имён-фамилий, отмечаю жирным некоторые, допустим явку на мероприятие. Как посчитать количество строк с жирным шрифтом в столбце? Как сделать, чтоб когда отмечаю жирным ячейку (Ctrl+B), в соседнем столбце ставилась единичка?

Или как правильнее отмечать, чтоб посчитать?

Answer 1

[Sergey В.]

Это можно сделать с помощью макроса VBA.
Нужно использовать функцию .Find с поиском по форматированию текста.
Работать будет только на Windows (на MacOS этот макрос работать не будет).

Answer 2

[otdameskapizm]

Тут действительно можно сделать с помощью макроса и функции Range.Find, как сказали выше.
Также можно прописать небольшую процедуру, где будет проверяться просто свойство Font.Bold для каждой ячейки из диапазона с гостями. В случае, если текст будет жирным, то в столбце с явкой будет проставляться единица. Пример такого небольшого макроса ниже.

Option Explicit

Sub GuestsCount():

    'Определяем диапазоны
    Dim GuestsRange As Range, Cell As Range
    Dim WillBeAtParty As Range
    
    'Забираем диапазон с пользователями, которых нужно просмотреть
    Set GuestsRange = ActiveWorkbook.Worksheets(1).Range(Cells(2, 2), Cells(12, 2))
    Set WillBeAtParty = ActiveWorkbook.Worksheets(1).Range(Cells(2, 3), Cells(12, 3))
    
    'Проходимся по каждой ячейке из диапазона
    For Each Cell In GuestsRange:
        If Cell.Font.Bold = True Then WillBeAtParty.Cells(Cell.Row - 1, 1).Value = 1
    Next Cell
    
End Sub

Таблицы для которых составлялся этот макрос:

Тут важно понимать, что процедура писалась под конкретные рабочие книги, диапазоны и прочее. У Вас будут свои собственные диапазоны и рабочие книги, но смысл работы макроса останется тем же