Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вывод в ячейку листа количества ячеек с жирным шрифтом из диапазона другого листа (VBA)
 
#1
12.02.2026 11:10:36
Добрый день!
Нашел функцию для подсчета ячеек с жирным шрифтом, но формула не пересчитывается, помогите с макросом, чтобы его на событие привязать!
Заранее благодарю!  
 
 
 
#2
12.02.2026 11:46:24
События на изменение жирности шрифта нет, но можно повесить на какое-нибудь другое событие, например на смену выделенных ячеек.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1").Formula = "=СЧЁТЖИРНЫХ(B2:C3)"
End Sub
 
 
 
#3
12.02.2026 13:30:58
МатросНаЗебре, выводит #ИМЯ?
Ексель 2007
 
 
 
#4
12.02.2026 13:49:42
Цитата
написал:
Нашел функцию
...но Вам я её не покажу, потому что у Вас документов нет!
Судя по всему, предполагалась получить ответ под абстрактную функцию с последующей самостоятельной адаптацией. Почему бы и нет? :D  
 
 
 
#5
12.02.2026 13:52:56
МатросНаЗебре,
Код
Function Func(rRng As Range)  
Dim cell As Range  
For Each cel In rRng  
If cell.Font.Bold = True Then Func = Func + 1  
Next  
End Function
)))))
Просто не подошла, закрыл тему без сохранения функции)
 
 
 
#6
12.02.2026 14:03:31
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1").Formula = "=Func(B2:C3)"
End Sub
 
 
 
#7
12.02.2026 14:52:08
МатросНаЗебре, благодарю!
 
 
 
Страницы: 1
Читают тему
Наверх