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

Вход

Регистрация

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

 

= Мир MS Excel/Формат времени - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формат времени
Формат времени
RAN Дата: Четверг, 07.03.2013, 19:51 | Сообщение № 1
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Можно-ли ФОРМАТОМ задать условие
До 1 часа
[vba]
Код
a = Format(txt, "Nn:Ss")
[/vba]
после 1 часа
[vba]
Код
a = Format(txt, "h:Nn:Ss")
[/vba]

Кросс http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=46453

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 07.03.2013, 20:13
 
Ответить
СообщениеМожно-ли ФОРМАТОМ задать условие
До 1 часа
[vba]
Код
a = Format(txt, "Nn:Ss")
[/vba]
после 1 часа
[vba]
Код
a = Format(txt, "h:Nn:Ss")
[/vba]

Кросс http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=46453
Автор - RAN
Дата добавления - 07.03.2013 в 19:51
Michael_S Дата: Четверг, 07.03.2013, 20:21 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
все форматы,
Код
[>=0,041666666666666]ч:мм:сс;мм:сс
 
Ответить
Сообщениевсе форматы,
Код
[>=0,041666666666666]ч:мм:сс;мм:сс
Автор - Michael_S
Дата добавления - 07.03.2013 в 20:21
RAN Дата: Четверг, 07.03.2013, 20:28 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Миш, жуть! smile
Мне-бы для кода... biggrin

На лейбл формы вывожу.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 07.03.2013, 20:29
 
Ответить
СообщениеМиш, жуть! smile
Мне-бы для кода... biggrin

На лейбл формы вывожу.
Автор - RAN
Дата добавления - 07.03.2013 в 20:28
Michael_S Дата: Четверг, 07.03.2013, 20:40 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
для кода... ну так и напиши
[vba]
Код
if a< 1/24 then
   a = Format(txt, "Nn:Ss")
else
   a = Format(txt, "h:Nn:Ss")
end if
[/vba]
 
Ответить
Сообщениедля кода... ну так и напиши
[vba]
Код
if a< 1/24 then
   a = Format(txt, "Nn:Ss")
else
   a = Format(txt, "h:Nn:Ss")
end if
[/vba]
Автор - Michael_S
Дата добавления - 07.03.2013 в 20:40
RAN Дата: Четверг, 07.03.2013, 20:46 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Не, сорри, не интересно!
Это первое, к чему пришел! biggrin

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНе, сорри, не интересно!
Это первое, к чему пришел! biggrin
Автор - RAN
Дата добавления - 07.03.2013 в 20:46
Michael_S Дата: Четверг, 07.03.2013, 20:53 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
тогда так (записано макрорекордкром)
[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
     Selection.NumberFormat = "[>=0.041666666666666]h:mm:ss;mm:ss"
End Sub
[/vba]
 
Ответить
Сообщениетогда так (записано макрорекордкром)
[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
     Selection.NumberFormat = "[>=0.041666666666666]h:mm:ss;mm:ss"
End Sub
[/vba]
Автор - Michael_S
Дата добавления - 07.03.2013 в 20:53
RAN Дата: Четверг, 07.03.2013, 20:59 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Не будет ли с моей стороны очень большой наглостью попросить продолжить
[vba]
Код
Me.Label1.Caption =
[/vba]

PS на всякий який: txt = Timer - t . smile

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 07.03.2013, 21:10
 
Ответить
СообщениеНе будет ли с моей стороны очень большой наглостью попросить продолжить
[vba]
Код
Me.Label1.Caption =
[/vba]

PS на всякий який: txt = Timer - t . smile
Автор - RAN
Дата добавления - 07.03.2013 в 20:59
Michael_S Дата: Четверг, 07.03.2013, 21:14 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Цитата (RAN)
Не будет ли с моей стороны

имхо, будет biggrin
простые решения тебя не устраивают, NumberFormat - свойство Range, переноси данные на лист, а потом на форму. biggrin
 
Ответить
Сообщение
Цитата (RAN)
Не будет ли с моей стороны

имхо, будет biggrin
простые решения тебя не устраивают, NumberFormat - свойство Range, переноси данные на лист, а потом на форму. biggrin
Автор - Michael_S
Дата добавления - 07.03.2013 в 21:14
RAN Дата: Четверг, 07.03.2013, 21:20 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Миш, собственно мой вопрос
Цитата (RAN)
Можно-ли ФОРМАТОМ задать условие

biggrin
Ну нет, так нет. smile
А вдруг? cool

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеМиш, собственно мой вопрос
Цитата (RAN)
Можно-ли ФОРМАТОМ задать условие

biggrin
Ну нет, так нет. smile
А вдруг? cool
Автор - RAN
Дата добавления - 07.03.2013 в 21:20
Alex_ST Дата: Пятница, 08.03.2013, 17:12 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3221
Репутация: 622 ±
Замечаний: 0% ±

2003
Может, так? [vba]
Код
Me.Label1.Caption = IIf(Timer - t >= 1 / 24, "h:m", "") & "m:ss"
[/vba]


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеМожет, так? [vba]
Код
Me.Label1.Caption = IIf(Timer - t >= 1 / 24, "h:m", "") & "m:ss"
[/vba]
Автор - Alex_ST
Дата добавления - 08.03.2013 в 17:12
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формат времени
  • Страница 1 из 1
  • 1
Поиск:

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