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


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


Это все хорошо! Но как тоже самое сделать в модуле имея например объект Selection или суммируя ячейки в переменную? получается десятичнач дробь!
(Selection.sum - ругается)
Код покажи...
Ты, наверное, забыл в коде определить формат данных
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2004, 12:40
    #32699641
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Как в Excel складывать время
или просто так (пример 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:43
    #32699653
О.Сергей
О.Сергей
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Как в Excel складывать время
Range("H" & LTrim(Str(x))) = Format(Sper, "hhh:mm")

Sper - переменная в которой накопилась сумма по ячейкам
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2004, 12:47
    #32699664
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Как в Excel складывать время
если нужн просто сумма без формулы то
Application.WorksheetFunction.Sum(selection)
Application.WorksheetFunction.Sum(range("A1:A7"))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2004, 13:02
    #32699708
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Как в Excel складывать время
вот
Код: 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:13
    #32699742
О.Сергей
О.Сергей
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Как в Excel складывать время
big-dukeесли нужн просто сумма без формулы то
Application.WorksheetFunction.Sum(selection)
Application.WorksheetFunction.Sum(range("A1:A7"))


В этом случае в ячейку попадает десятичное число 6,44513888888889 вместо требуемых 154:41 ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2004, 13:32
    #32699793
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Как в Excel складывать время
для этого я и нарисовал mytime
activecell - это ячейка с суммой (а7)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2004, 13:34
    #32699803
О.Сергей
О.Сергей
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Как в Excel складывать время
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, 14:04
    #32699901
О.Сергей
О.Сергей
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Как в Excel складывать время
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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA Как в Excel складывать время / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 159ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2186583]:
 0ms
get settings:
 11ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 52ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 14ms
total:  159ms
x
x
Закрыть


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