Друзья, составляю табель, почти уже полностью сформировал формулы. Остается один штрих. Бьюсь уже дня 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 |