Combobox, формат даты
Мур
Дата: Воскресенье, 17.02.2013, 18:30 |
Сообщение № 41
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация:
19
±
Замечаний:
0% ±
Ни , ни , не подходят.
Ни , ни , не подходят. Мур
Ответить
Сообщение Ни , ни , не подходят. Автор - Мур Дата добавления - 17.02.2013 в 18:30
Мур
Дата: Воскресенье, 17.02.2013, 19:39 |
Сообщение № 42
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация:
19
±
Замечаний:
0% ±
Не выходит! или я чего-то не понимаю.
Не выходит! или я чего-то не понимаю. Мур
Ответить
Сообщение Не выходит! или я чего-то не понимаю. Автор - Мур Дата добавления - 17.02.2013 в 19:39
_Boroda_
Дата: Воскресенье, 17.02.2013, 19:58 |
Сообщение № 43
Группа: Админы
Ранг: Местный житель
Сообщений: 16706
Репутация:
6500
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
А, ну да. Тогда так [vba]Код
Private Sub ComboBox1_Click() Me.ComboBox1.Value = Format(Me.ComboBox1, "h:nn") End Sub Private Sub UserForm_Activate() Me.ComboBox1.Value = Format(Me.ComboBox1, "h:nn") End Sub
[/vba]
А, ну да. Тогда так [vba]Код
Private Sub ComboBox1_Click() Me.ComboBox1.Value = Format(Me.ComboBox1, "h:nn") End Sub Private Sub UserForm_Activate() Me.ComboBox1.Value = Format(Me.ComboBox1, "h:nn") End Sub
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение А, ну да. Тогда так [vba]Код
Private Sub ComboBox1_Click() Me.ComboBox1.Value = Format(Me.ComboBox1, "h:nn") End Sub Private Sub UserForm_Activate() Me.ComboBox1.Value = Format(Me.ComboBox1, "h:nn") End Sub
[/vba] Автор - _Boroda_ Дата добавления - 17.02.2013 в 19:58
Мур
Дата: Воскресенье, 17.02.2013, 20:23 |
Сообщение № 44
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация:
19
±
Замечаний:
0% ±
Что-то не так.... При активации формы все в порядке, а если вводить значения из выпадающего списка.... опять 25...
Что-то не так.... При активации формы все в порядке, а если вводить значения из выпадающего списка.... опять 25... Мур
Ответить
Сообщение Что-то не так.... При активации формы все в порядке, а если вводить значения из выпадающего списка.... опять 25... Автор - Мур Дата добавления - 17.02.2013 в 20:23
RAN
Дата: Воскресенье, 17.02.2013, 21:49 |
Сообщение № 45
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Код формы [vba]Код
Private Sub ComboBox1_Change() If Me.ComboBox1.Value Like "*:*" Then Exit Sub Me.ComboBox1.Value = Format(Val(Me.ComboBox1), "h:nn") End Sub Private Sub UserForm_Activate() Me.ComboBox1 = Me.ComboBox1.List(0) End Sub
[/vba]
Код формы [vba]Код
Private Sub ComboBox1_Change() If Me.ComboBox1.Value Like "*:*" Then Exit Sub Me.ComboBox1.Value = Format(Val(Me.ComboBox1), "h:nn") End Sub Private Sub UserForm_Activate() Me.ComboBox1 = Me.ComboBox1.List(0) End Sub
[/vba] RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Код формы [vba]Код
Private Sub ComboBox1_Change() If Me.ComboBox1.Value Like "*:*" Then Exit Sub Me.ComboBox1.Value = Format(Val(Me.ComboBox1), "h:nn") End Sub Private Sub UserForm_Activate() Me.ComboBox1 = Me.ComboBox1.List(0) End Sub
[/vba] Автор - RAN Дата добавления - 17.02.2013 в 21:49
Мур
Дата: Понедельник, 18.02.2013, 07:43 |
Сообщение № 46
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация:
19
±
Замечаний:
0% ±
Да, работает хорошо! В чем была хитрость, другими словами, объясните, пожалуйста, как это работает?
Да, работает хорошо! В чем была хитрость, другими словами, объясните, пожалуйста, как это работает? Мур
Ответить
Сообщение Да, работает хорошо! В чем была хитрость, другими словами, объясните, пожалуйста, как это работает? Автор - Мур Дата добавления - 18.02.2013 в 07:43
Мур
Дата: Понедельник, 18.02.2013, 07:44 |
Сообщение № 47
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация:
19
±
Замечаний:
0% ±
_Boroda_, Вам тоже спасибо за участие в обсуждении.
_Boroda_, Вам тоже спасибо за участие в обсуждении. Мур
Ответить
Сообщение _Boroda_, Вам тоже спасибо за участие в обсуждении. Автор - Мур Дата добавления - 18.02.2013 в 07:44
RAN
Дата: Понедельник, 18.02.2013, 10:01 |
Сообщение № 48
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Что-то хитрое и не понятное. Вчера без Val не работало, сегодня с ним не работает. Универсально будет [vba]Код
Me.ComboBox1.Value = Format(Val(Replace(Me.ComboBox1, "," , ".")), "h:nn")
[/vba] Работает так Если в комбо попадает системный разделитель запятая, преобразуем его в точку. Получаем число из текста. Преобразуем в формат времени. Если при изменении значения комбо получается время - выходим из процедуры.
Что-то хитрое и не понятное. Вчера без Val не работало, сегодня с ним не работает. Универсально будет [vba]Код
Me.ComboBox1.Value = Format(Val(Replace(Me.ComboBox1, "," , ".")), "h:nn")
[/vba] Работает так Если в комбо попадает системный разделитель запятая, преобразуем его в точку. Получаем число из текста. Преобразуем в формат времени. Если при изменении значения комбо получается время - выходим из процедуры. RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Что-то хитрое и не понятное. Вчера без Val не работало, сегодня с ним не работает. Универсально будет [vba]Код
Me.ComboBox1.Value = Format(Val(Replace(Me.ComboBox1, "," , ".")), "h:nn")
[/vba] Работает так Если в комбо попадает системный разделитель запятая, преобразуем его в точку. Получаем число из текста. Преобразуем в формат времени. Если при изменении значения комбо получается время - выходим из процедуры. Автор - RAN Дата добавления - 18.02.2013 в 10:01
Мур
Дата: Понедельник, 18.02.2013, 18:12 |
Сообщение № 49
Группа: Проверенные
Ранг: Обитатель
Сообщений: 436
Репутация:
19
±
Замечаний:
0% ±
Спасибо за объяснения! последний вариант еще не пробовал, завалили работой, отпишусь позже.
Спасибо за объяснения! последний вариант еще не пробовал, завалили работой, отпишусь позже. Мур
Ответить
Сообщение Спасибо за объяснения! последний вариант еще не пробовал, завалили работой, отпишусь позже. Автор - Мур Дата добавления - 18.02.2013 в 18:12