Как сложить минуты и секунды

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сложить минуты и секунды (Макросы/Sub)

zhukovss

Дата: Понедельник, 29.12.2014, 21:13 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Дорогие Друзья С НАСТУПАЮЩИМ)))
Как решить данную проблему как посчитать минуты + секунды = сколько часов ???
ПРИМЕР

К сообщению приложен файл: 8626242.xlsx (10.6 Kb)

Всем удачного настроения)))

Сообщение отредактировал zhukovss - Понедельник, 29.12.2014, 21:19

Ответить

Pelena

Дата: Понедельник, 29.12.2014, 21:44 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19187

Репутация: 4421 ±

Замечаний: ±

Excel 365 & Mac Excel

И Вас с наступающим.
Обязательно макрос? Формулы не предлагать?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

tsap

Дата: Понедельник, 29.12.2014, 22:24 | Сообщение № 3

Группа: Проверенные

Ранг: Участник

Сообщений: 60

Репутация: 6 ±

Замечаний: 0% ±

2013

С Наступающим!

Попробуйте (обязательно должен быть разделитель пробел - как у Вас в файле, во всем выбранном диапазоне)
Иначе не посчитается в общую сумму времени.
Результат функции - количество часов в виде числа с тремя знаками после запятой):

[vba]

Код

Function MeasureTime(target As Range) As Double
Dim rCell As Range
Dim tmp As Variant
Dim sum As Double

For Each rCell In target
     On Error Resume Next
     tmp = Split(rCell.Value, " ")
     If IsNumeric(tmp(0)) Then
         If tmp(1) Like "с*" Then
         sum = sum + tmp(0) / 3600
         ElseIf tmp(1) Like "мин*" Then
         sum = sum + tmp(0) / 60
         End If
     End If
Next

MeasureTime = Round(sum, 3)
End Function

[/vba]

Ответить

zhukovss

Дата: Вторник, 30.12.2014, 04:44 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Спасибо можно и формулу)))

Всем удачного настроения)))

Ответить

VEKTORVSFREEMAN

Дата: Вторник, 30.12.2014, 09:54 | Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 772

Репутация: 130 ±

Замечаний: 0% ±

MS Office Excel 2010

Цитата zhukovss, 30.12.2014 в 04:44, в сообщении № 4

можно и формулу

zhukovss, здравствуйте!
не знаю пригодится ли, но этой формулой можно посчитать количество полных часов
формула массивная и вводится сочетанием клавиш ШИФТ+КОНТРЛ+ЕНТЕР

Код

=ЦЕЛОЕ((СУММ((ПРАВСИМВ(E6:E17;3)="сек")*((ЛЕВСИМВ(E6:E17;ПОИСК(" ";E6:E17;1)-1))*1);(ПРАВСИМВ(E6:E17;3)="мин")*((ЛЕВСИМВ(E6:E17;ПОИСК(" ";E6:E17;1)-1))*60);(ПРАВСИМВ(E6:E17;3)="час")*(ЛЕВСИМВ(E6:E17;ПОИСК(" ";E6:E17;1)-1))*3600))/3600)

ЗЫ Для корректной работы справа от цифр должны стоять только три символа обозначения времени. Например: час / мин / сек (см. файл)