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

Вход

Регистрация

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

 

= Мир MS Excel/Отобразить даты :начало месяца и дату СЕГОДНЯ на форме - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отобразить даты :начало месяца и дату СЕГОДНЯ на форме (Макросы/Sub)
Отобразить даты :начало месяца и дату СЕГОДНЯ на форме
parovoznik Дата: Вторник, 04.02.2020, 23:13 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 380
Репутация: 20 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте!
Есть пользовательская форма с двумя датами :начало месяца и дата СЕГОДНЯ .
При инициализации формы отображаются 2 даты в полях текстбоксов : начало месяца и дата СЕГОДНЯ.
Загрузку дат произвел через лист. Но при инициализации неверно отображается формат дат. Как исправить?
Возможно есть вариант отобразить даты без листа,программно ? :(
Прилагаю файл пример
К сообщению приложен файл: 9591124.xlsm(22.5 Kb)
 
Ответить
СообщениеЗдравствуйте!
Есть пользовательская форма с двумя датами :начало месяца и дата СЕГОДНЯ .
При инициализации формы отображаются 2 даты в полях текстбоксов : начало месяца и дата СЕГОДНЯ.
Загрузку дат произвел через лист. Но при инициализации неверно отображается формат дат. Как исправить?
Возможно есть вариант отобразить даты без листа,программно ? :(
Прилагаю файл пример

Автор - parovoznik
Дата добавления - 04.02.2020 в 23:13
gling Дата: Среда, 05.02.2020, 00:37 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2161
Репутация: 539 ±
Замечаний: 0% ±

2010
Здравствуйте. А может так попробовать[vba]
Код
Private Sub UserForm_Initialize()
Me.txt_НачальнаяДата = "01." & Format(Date, "MM.YYYY")
Me.txt_КонечнаяДата.Value = Format(Date, "DD.MM.YYYY")
End Sub
[/vba]


ЯД-41001506838083
 
Ответить
СообщениеЗдравствуйте. А может так попробовать[vba]
Код
Private Sub UserForm_Initialize()
Me.txt_НачальнаяДата = "01." & Format(Date, "MM.YYYY")
Me.txt_КонечнаяДата.Value = Format(Date, "DD.MM.YYYY")
End Sub
[/vba]

Автор - gling
Дата добавления - 05.02.2020 в 00:37
parovoznik Дата: Среда, 05.02.2020, 11:51 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 380
Репутация: 20 ±
Замечаний: 0% ±

Excel 2007
gling, все работает. Вам большущее спасибо! hands
 
Ответить
Сообщениеgling, все работает. Вам большущее спасибо! hands

Автор - parovoznik
Дата добавления - 05.02.2020 в 11:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отобразить даты :начало месяца и дату СЕГОДНЯ на форме (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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