ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA Как в Excel складывать время
12 сообщений из 12, страница 1 из 1
VBA Как в Excel складывать время
    #32699447
О.Сергей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
О.Сергей
Гость
Задача: имеем ячейки со временем типа 10:20 7:05 20:15 ... , как их просуммировать чтобы получить в некой ячейке время в виде 157:40
Форматирование типа "hhh:mm" дает чушь.
...
Рейтинг: 0 / 0
17.09.2004, 11:38:41
| Ответить | Цитировать | Написать  
VBA Как в Excel складывать время
    #32699497
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
см вложение
...
Рейтинг: 0 / 0
17.09.2004, 11:52:30
| Ответить | Цитировать | Написать  
VBA Как в Excel складывать время
    #32699562
О.Сергей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
О.Сергей
Гость
big-dukeсм вложение


Это все хорошо! Но как тоже самое сделать в модуле имея например объект Selection или суммируя ячейки в переменную? получается десятичнач дробь!
(Selection.sum - ругается)
...
Рейтинг: 0 / 0
17.09.2004, 12:14:41
| Ответить | Цитировать | Написать  
VBA Как в Excel складывать время
    #32699620
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
О.Сергей big-dukeсм вложение


Это все хорошо! Но как тоже самое сделать в модуле имея например объект Selection или суммируя ячейки в переменную? получается десятичнач дробь!
(Selection.sum - ругается)
Код покажи...
Ты, наверное, забыл в коде определить формат данных
...
Рейтинг: 0 / 0
17.09.2004, 12:34:58
| Ответить | Цитировать | Написать  
VBA Как в Excel складывать время
    #32699641
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
или просто так (пример big-duke )

Range("C8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-7]C[-2]+R[-5]C[-2]+R[-3]C[-2]"
Range("D8").Select Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
17.09.2004, 12:40:30
| Ответить | Цитировать | Написать  
VBA Как в Excel складывать время
    #32699653
О.Сергей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
О.Сергей
Гость
Range("H" & LTrim(Str(x))) = Format(Sper, "hhh:mm")

Sper - переменная в которой накопилась сумма по ячейкам
...
Рейтинг: 0 / 0
17.09.2004, 12:43:52
| Ответить | Цитировать | Написать  
VBA Как в Excel складывать время
    #32699664
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
если нужн просто сумма без формулы то
Application.WorksheetFunction.Sum(selection)
Application.WorksheetFunction.Sum(range("A1:A7"))
...
Рейтинг: 0 / 0
17.09.2004, 12:47:32
| Ответить | Цитировать | Написать  
VBA Как в Excel складывать время
    #32699708
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
вот
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Sub MyTime()
    Dim DH As Long
    Dim Res As String
    DH = Int(ActiveCell) *  24 
    Res = CStr(DH + CLng(Split(Format(ActiveCell, "h:mm"), ":")( 0 )))
    Res = Res & ":" & Split(Format(ActiveCell, "h:mm"), ":")( 1 )
End Sub
...
Рейтинг: 0 / 0
17.09.2004, 13:02:04
| Ответить | Цитировать | Написать  
VBA Как в Excel складывать время
    #32699742
О.Сергей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
О.Сергей
Гость
big-dukeесли нужн просто сумма без формулы то
Application.WorksheetFunction.Sum(selection)
Application.WorksheetFunction.Sum(range("A1:A7"))


В этом случае в ячейку попадает десятичное число 6,44513888888889 вместо требуемых 154:41 ???
...
Рейтинг: 0 / 0
17.09.2004, 13:13:49
| Ответить | Цитировать | Написать  
VBA Как в Excel складывать время
    #32699793
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
для этого я и нарисовал mytime
activecell - это ячейка с суммой (а7)
...
Рейтинг: 0 / 0
17.09.2004, 13:32:46
| Ответить | Цитировать | Написать  
VBA Как в Excel складывать время
    #32699803
О.Сергей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
О.Сергей
Гость
big-dukeвот
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Sub MyTime()
    Dim DH As Long
    Dim Res As String
    DH = Int(ActiveCell) *  24 
    Res = CStr(DH + CLng(Split(Format(ActiveCell, "h:mm"), ":")( 0 )))
    Res = Res & ":" & Split(Format(ActiveCell, "h:mm"), ":")( 1 )
End Sub


Чем здесь может быть ActiveCell и для чего Split()?
...
Рейтинг: 0 / 0
17.09.2004, 13:34:30
| Ответить | Цитировать | Написать  
VBA Как в Excel складывать время
    #32699901
О.Сергей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
О.Сергей
Гость
big-dukeвот
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Sub MyTime()
    Dim DH As Long
    Dim Res As String
    DH = Int(ActiveCell) *  24 
    Res = CStr(DH + CLng(Split(Format(ActiveCell, "h:mm"), ":")( 0 )))
    Res = Res & ":" & Split(Format(ActiveCell, "h:mm"), ":")( 1 )
End Sub


Ура!!! Сработало, спасибо big-duke
...
Рейтинг: 0 / 0
17.09.2004, 14:04:08
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA Как в Excel складывать время
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&tid=2186583]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 456ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 69ms
get tp. blocked users:
 2ms
others: 240ms
total:  819ms
созд. / загр.: 819ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]