VBA Как в Excel складывать время / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / 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

| Ответить | Цитировать | Написать

VBA Как в Excel складывать время

#32699497

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

см вложение

...

Рейтинг:

0 / 0

17.09.2004, 11:52

| Ответить | Цитировать | Написать

VBA Как в Excel складывать время

#32699562

О.Сергей

Гость

big-dukeсм вложение

Это все хорошо! Но как тоже самое сделать в модуле имея например объект Selection или суммируя ячейки в переменную? получается десятичнач дробь!
(Selection.sum - ругается)

...

Рейтинг:

0 / 0

17.09.2004, 12:14

| Ответить | Цитировать | Написать

VBA Как в Excel складывать время

#32699620

Stepler

Участник

Откуда: Северная столица!? (Питер)

Сообщения: 1 385

Рейтинг: 0 / 0

О.Сергей big-dukeсм вложение

Это все хорошо! Но как тоже самое сделать в модуле имея например объект Selection или суммируя ячейки в переменную? получается десятичнач дробь!
(Selection.sum - ругается)
Код покажи...
Ты, наверное, забыл в коде определить формат данных

...

Рейтинг:

0 / 0

17.09.2004, 12:34

| Ответить | Цитировать | Написать

VBA Как в Excel складывать время

#32699641

Stepler

Участник

Откуда: Северная столица!? (Питер)

Сообщения: 1 385

Рейтинг: 0 / 0

или просто так (пример 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

| Ответить | Цитировать | Написать

VBA Как в Excel складывать время

#32699653

О.Сергей

Гость

Range("H" & LTrim(Str(x))) = Format(Sper, "hhh:mm")

Sper - переменная в которой накопилась сумма по ячейкам

...

Рейтинг:

0 / 0

17.09.2004, 12:43

| Ответить | Цитировать | Написать

VBA Как в Excel складывать время

#32699664

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

если нужн просто сумма без формулы то
Application.WorksheetFunction.Sum(selection)
Application.WorksheetFunction.Sum(range("A1:A7"))

...

Рейтинг:

0 / 0

17.09.2004, 12:47

| Ответить | Цитировать | Написать

VBA Как в Excel складывать время

#32699708

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

вот

Код: 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

| Ответить | Цитировать | Написать

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

| Ответить | Цитировать | Написать

VBA Как в Excel складывать время

#32699793

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

для этого я и нарисовал mytime
activecell - это ячейка с суммой (а7)

...

Рейтинг:

0 / 0

17.09.2004, 13:32

| Ответить | Цитировать | Написать

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

| Ответить | Цитировать | Написать

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

| Ответить | Цитировать | Написать

12 сообщений из 12, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA Как в Excel складывать время

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=32699447&tid=2186583]:	0ms
get settings:	11ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	49ms
get topic data:	10ms
get forum data:	3ms
get page messages:	54ms
get tp. blocked users:	1ms
others:	325ms

total:	477ms