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 (или сколько там...)
Но ничего не получается...
Подскажите, пожалуйста, как это сделать?
Добрый день,!
В 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
Сообщение отредактировал ant6729 - Среда, 26.07.2017, 19:20 |
|
| Ответить
|
RAN |
Дата: Среда, 26.07.2017, 19:36 |
Сообщение № 2 |
|
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
| |
[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
Быть или не быть, вот в чем загвоздка!
|
|
| Ответить
|
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]
[vba]Код Cells(1,1).Value = Cells(1,1).Value + 20 * 60 / 86400 [/vba]AndreTM
Skype: andre.tm.007 Donate: Qiwi: 9517375010
|
|
| Ответить
|
ant6729 |
Дата: Среда, 26.07.2017, 20:01 |
Сообщение № 4 |
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация:
2
±
Замечаний:
40% ±
Excel 2010 | |
Спасибо RAN, Спасибо AndreTM!!
За ответы и познавательные варианты
Спасибо RAN, Спасибо AndreTM!!
За ответы и познавательные вариантыant6729
|
|
| Ответить
|
KuklP |
Дата: Среда, 26.07.2017, 20:16 |
Сообщение № 5 |
|
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010 | |
[vba]Код [a1] = [a1] + #12:20:00 AM# [/vba]
[vba]Код [a1] = [a1] + #12:20:00 AM# [/vba] KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
|
|
| Ответить
|
Gustav |
Дата: Среда, 26.07.2017, 20:21 |
Сообщение № 6 |
|
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2697
Репутация:
1123
±
Замечаний:
0% ±
начинал с Excel 4.0, видел 2.1 | |
[vba]Код [a1] = [a1] + TimeSerial(0, 20, 0) [/vba]
[vba]Код [a1] = [a1] + TimeSerial(0, 20, 0) [/vba]Gustav
МОИ: Ник, Tip box: 41001663842605
|
|
| Ответить
|
_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]
[vba]Код Cells(1, 1).Value = Cells(1, 1).Value + CDate("00:20:00") [/vba]_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
|
|
| Ответить
|