Суммирование ячеек с жирным шрифтом

[ksa791]

Привет, всем!
Помогите пожалуйста в простом вопросе.

Как посчитать сумму только тех ячеек в колонке чисел, в которых текст выделен жирным шрифтом?
(Именно жирным шрифтом, остальные свойства ячейки могут быть самыми разными.
И понятно, что содержимое ячейк числа, а не текст)

Нашел в Excel функции определяющие тип или формат данных в ячейке, а функции определяющие свойста шрифта не нашел (((
Если нужно писать макрос или в VBA, то я в них полный ноль.

Excel 2000

[IgorGO]

в ручном режиме:
1)отмечаем все ячейки, в строке статус видим общую сумму, записываем ее (или запоминаем)
2)жмем Ctrl+H (найти и заменить) в качестве найти выбираем форматы (шрифт, полужирный) в ячейке заменить ставим 0. жмем заменить все.
3)так так оставались отмеченными все ячейки в строке статуса видим новую сумму.
4)от суммы, полученной в п.1, отмаем сумму, полученную в п.3 - это и есть сумма жирных.
5)закрываем файл не записывая!

[mihakr]

Сообщение от IgorGO

в ручном режиме:

А в автоматическом никак?

[IgorGO]

а в атоматическом макрос писать.
красиво было бы так:

WorksheetFunction.Sum(Cells.SpecialCells(xlCellTypeSameFormatConditions, ХХХХ))

если найдете константу, которая позволит к специальным ячейкам отнести ячейки с жирным шрифтом (и напишете ее вместо ХХХХ) - это и будет ответ. я - не нашел.
другой вариант (не красиво - зато работает):

Function SumBold(R As Range) As Double
  s = 0
  On Error Resume Next
  For Each c In R.Cells
    If c.Font.Bold Then s = s + c
  Next
  SumBold = s
End Function

[ksa791]

IgorGO, спасибо большое, функция sumbold работает так как надо.
Непойму, почему

не красиво

очень даже красиво