Друзья, составляю табель, почти уже полностью сформировал формулы. Остается один штрих. Бьюсь уже дня 2. Никак не могу составить макрос для подсчета суммы значений в ячейках по подчернутым цифрам. Дело в том что ночные часы отмечаются именно так, подчеркиванием. Один раз получилось сформировать макрос, но увы автоматического пересчета так и не добился. Дело в том что посчет идет лишь когда копирую ячейки с подчеркнутыми цифрами и вставляю туда куда нужно. Как возможно сделать чтобы автоматически происходил подсчет, когда ввожу вручную время и подчеркиваю? По клавише F9 макрос этот не запускается.
Может макрос неправильно составил. Подскажите.
| Код |
|---|
Function СЧЁТШРИФТчерта(ДИАПАЗОН As Range) As Double
Dim S As Double
Dim rCell As Range
S = 0
For Each rCell In ДИАПАЗОН
If rCell.Font.Underline = xlUnderlineStyleSingle Then
S = S + rCell.Value
End If
Next
СЧЁТШРИФТчерта = S
End Function |
