Как сложить минуты и секунды
zhukovss
Дата: Понедельник, 29.12.2014, 21:13 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Дорогие Друзья С НАСТУПАЮЩИМ))) Как решить данную проблему как посчитать минуты + секунды = сколько часов ??? ПРИМЕР
Дорогие Друзья С НАСТУПАЮЩИМ))) Как решить данную проблему как посчитать минуты + секунды = сколько часов ??? ПРИМЕР zhukovss
Всем удачного настроения)))
Сообщение отредактировал zhukovss - Понедельник, 29.12.2014, 21:19
Ответить
Сообщение Дорогие Друзья С НАСТУПАЮЩИМ))) Как решить данную проблему как посчитать минуты + секунды = сколько часов ??? ПРИМЕР Автор - zhukovss Дата добавления - 29.12.2014 в 21:13
Pelena
Дата: Понедельник, 29.12.2014, 21:44 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19212
Репутация:
4427
±
Замечаний:
±
Excel 365 & Mac Excel
И Вас с наступающим. Обязательно макрос? Формулы не предлагать?
И Вас с наступающим. Обязательно макрос? Формулы не предлагать? Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение И Вас с наступающим. Обязательно макрос? Формулы не предлагать? Автор - Pelena Дата добавления - 29.12.2014 в 21:44
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]
С Наступающим! Попробуйте (обязательно должен быть разделитель пробел - как у Вас в файле, во всем выбранном диапазоне) Иначе не посчитается в общую сумму времени. Результат функции - количество часов в виде числа с тремя знаками после запятой): [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] tsap
Ответить
Сообщение С Наступающим! Попробуйте (обязательно должен быть разделитель пробел - как у Вас в файле, во всем выбранном диапазоне) Иначе не посчитается в общую сумму времени. Результат функции - количество часов в виде числа с тремя знаками после запятой): [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] Автор - tsap Дата добавления - 29.12.2014 в 22:24
zhukovss
Дата: Вторник, 30.12.2014, 04:44 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Спасибо можно и формулу)))
Всем удачного настроения)))
Ответить
Сообщение Спасибо можно и формулу))) Автор - zhukovss Дата добавления - 30.12.2014 в 04:44
VEKTORVSFREEMAN
Дата: Вторник, 30.12.2014, 09:54 |
Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 772
Репутация:
130
±
Замечаний:
0% ±
MS Office Excel 2010
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)
ЗЫ Для корректной работы справа от цифр должны стоять только три символа обозначения времени. Например: час / мин / сек (см. файл)
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)
ЗЫ Для корректной работы справа от цифр должны стоять только три символа обозначения времени. Например: час / мин / сек (см. файл) VEKTORVSFREEMAN
"Опыт - это то, что получаешь, не получив того, что хотел"
Ответить
Сообщение 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)
ЗЫ Для корректной работы справа от цифр должны стоять только три символа обозначения времени. Например: час / мин / сек (см. файл) Автор - VEKTORVSFREEMAN Дата добавления - 30.12.2014 в 09:54
zhukovss
Дата: Вторник, 30.12.2014, 11:18 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
СПАСИБО ОГРОМНОЕ ТО ,ЧТО НУЖНО)))
СПАСИБО ОГРОМНОЕ ТО ,ЧТО НУЖНО))) zhukovss
Всем удачного настроения)))
Ответить
Сообщение СПАСИБО ОГРОМНОЕ ТО ,ЧТО НУЖНО))) Автор - zhukovss Дата добавления - 30.12.2014 в 11:18
Pelena
Дата: Вторник, 30.12.2014, 11:23 |
Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19212
Репутация:
4427
±
Замечаний:
±
Excel 365 & Mac Excel
Ещё вариант, тоже массивная формула даёт кол-во часов с долями. Код
=СУММ(ЛЕВСИМВ(E6:E17;ПОИСК(" ";E6:E17)-1)/ЕСЛИ(ЕЧИСЛО(ПОИСК("сек";E6:E17));3600;ЕСЛИ(ЕЧИСЛО(ПОИСК("мин";E6:E17));60;1)))
Если надо целое число часов, то используем функцию ОТБР() Код
=ОТБР(СУММ(ЛЕВСИМВ(E6:E17;ПОИСК(" ";E6:E17)-1)/ЕСЛИ(ЕЧИСЛО(ПОИСК("сек";E6:E17));3600;ЕСЛИ(ЕЧИСЛО(ПОИСК("мин";E6:E17));60;1))))
Ещё вариант, тоже массивная формула даёт кол-во часов с долями. Код
=СУММ(ЛЕВСИМВ(E6:E17;ПОИСК(" ";E6:E17)-1)/ЕСЛИ(ЕЧИСЛО(ПОИСК("сек";E6:E17));3600;ЕСЛИ(ЕЧИСЛО(ПОИСК("мин";E6:E17));60;1)))
Если надо целое число часов, то используем функцию ОТБР() Код
=ОТБР(СУММ(ЛЕВСИМВ(E6:E17;ПОИСК(" ";E6:E17)-1)/ЕСЛИ(ЕЧИСЛО(ПОИСК("сек";E6:E17));3600;ЕСЛИ(ЕЧИСЛО(ПОИСК("мин";E6:E17));60;1))))
Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Ещё вариант, тоже массивная формула даёт кол-во часов с долями. Код
=СУММ(ЛЕВСИМВ(E6:E17;ПОИСК(" ";E6:E17)-1)/ЕСЛИ(ЕЧИСЛО(ПОИСК("сек";E6:E17));3600;ЕСЛИ(ЕЧИСЛО(ПОИСК("мин";E6:E17));60;1)))
Если надо целое число часов, то используем функцию ОТБР() Код
=ОТБР(СУММ(ЛЕВСИМВ(E6:E17;ПОИСК(" ";E6:E17)-1)/ЕСЛИ(ЕЧИСЛО(ПОИСК("сек";E6:E17));3600;ЕСЛИ(ЕЧИСЛО(ПОИСК("мин";E6:E17));60;1))))
Автор - Pelena Дата добавления - 30.12.2014 в 11:23
krosav4ig
Дата: Вторник, 30.12.2014, 12:47 |
Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
С Наступающим! еще вариант Код
=ОТБР(СУММ(ЛЕВБ(E6:E17;ПОИСК(" ";E6:E17)-1)/МУМНОЖ(Ч(ЕСЛИ(1-ЕОШ(ПОИСК(" "&{"ч";"м";"с"};E6:E17));60^{0;1;2}));{1:1:1})))
формула тоже массивная
С Наступающим! еще вариант Код
=ОТБР(СУММ(ЛЕВБ(E6:E17;ПОИСК(" ";E6:E17)-1)/МУМНОЖ(Ч(ЕСЛИ(1-ЕОШ(ПОИСК(" "&{"ч";"м";"с"};E6:E17));60^{0;1;2}));{1:1:1})))
формула тоже массивная krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 30.12.2014, 12:53
Ответить
Сообщение С Наступающим! еще вариант Код
=ОТБР(СУММ(ЛЕВБ(E6:E17;ПОИСК(" ";E6:E17)-1)/МУМНОЖ(Ч(ЕСЛИ(1-ЕОШ(ПОИСК(" "&{"ч";"м";"с"};E6:E17));60^{0;1;2}));{1:1:1})))
формула тоже массивная Автор - krosav4ig Дата добавления - 30.12.2014 в 12:47