Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как добавить 20 минут ко времени - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как добавить 20 минут ко времени (Макросы/Sub)
Как добавить 20 минут ко времени
ant6729 Дата: Среда, 26.07.2017, 19:19 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Добрый день,!

В cells(1,1) стоит 13:20

Как в коде VBA добавить 20 минут, чтобы в cells(1,1) получилось 13:40?
Не могу понять форматы...как это сделать, подскажите, пожалуйста.

Пишу, вроде, :
[vba]
Код
Cells(1,1).Value  =  Cells(1,1).Value + "00:20:00"
[/vba]

или + 0.50388888888 (или сколько там...)

Но ничего не получается...

Подскажите, пожалуйста, как это сделать?


Сообщение отредактировал ant6729 - Среда, 26.07.2017, 19:20
 
Ответить
СообщениеДобрый день,!

В cells(1,1) стоит 13:20

Как в коде VBA добавить 20 минут, чтобы в cells(1,1) получилось 13:40?
Не могу понять форматы...как это сделать, подскажите, пожалуйста.

Пишу, вроде, :
[vba]
Код
Cells(1,1).Value  =  Cells(1,1).Value + "00:20:00"
[/vba]

или + 0.50388888888 (или сколько там...)

Но ничего не получается...

Подскажите, пожалуйста, как это сделать?

Автор - ant6729
Дата добавления - 26.07.2017 в 19:19
RAN Дата: Среда, 26.07.2017, 19:36 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub r()
    [b1] = [a1] + TimeValue("00:10:00")
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub r()
    [b1] = [a1] + TimeValue("00:10:00")
End Sub
[/vba]

Автор - RAN
Дата добавления - 26.07.2017 в 19:36
AndreTM Дата: Среда, 26.07.2017, 19:37 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
[vba]
Код
Cells(1,1).Value  =  Cells(1,1).Value + 20 * 60 / 86400
[/vba]


Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщение[vba]
Код
Cells(1,1).Value  =  Cells(1,1).Value + 20 * 60 / 86400
[/vba]

Автор - AndreTM
Дата добавления - 26.07.2017 в 19:37
ant6729 Дата: Среда, 26.07.2017, 20:01 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Спасибо RAN, Спасибо AndreTM!!

За ответы и познавательные варианты
 
Ответить
СообщениеСпасибо RAN, Спасибо AndreTM!!

За ответы и познавательные варианты

Автор - ant6729
Дата добавления - 26.07.2017 в 20:01
KuklP Дата: Среда, 26.07.2017, 20:16 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[vba]
Код
[a1] = [a1] + #12:20:00 AM#
[/vba] ;)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[vba]
Код
[a1] = [a1] + #12:20:00 AM#
[/vba] ;)

Автор - KuklP
Дата добавления - 26.07.2017 в 20:16
Gustav Дата: Среда, 26.07.2017, 20:21 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2697
Репутация: 1123 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
[vba]
Код
[a1] = [a1] + TimeSerial(0, 20, 0)
[/vba]


МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщение[vba]
Код
[a1] = [a1] + TimeSerial(0, 20, 0)
[/vba]

Автор - Gustav
Дата добавления - 26.07.2017 в 20:21
_Boroda_ Дата: Среда, 26.07.2017, 20:49 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
[vba]
Код
Cells(1, 1).Value = Cells(1, 1).Value + CDate("00:20:00")
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Код
Cells(1, 1).Value = Cells(1, 1).Value + CDate("00:20:00")
[/vba]

Автор - _Boroda_
Дата добавления - 26.07.2017 в 20:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как добавить 20 минут ко времени (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!