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

Вход

Регистрация

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

 

= Мир MS Excel/При инициализации формы не отображаются переменные. - Мир MS Excel

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

Excel 2007
Добрый вечер.
есть форма выбора дат за период.
При инициализации формы даты отображаются в текстбоксах : дата1- 1-е число текущего месяца,а во втором -дата СЕГОДНЯ. Если нажать кнопку"Проверка" ,то переменные равны 0. Если дату выбрать из календаря ,то переменные отображаются.
например я открыл форму и мне надо сформировать отчет с 1 -го числа по СЕГОДНЯ, то приходится теже самые даты выбирать через календарь, а как можно подкоррекировать,что бы сразу можно было правильно отобразить переменные.
К сообщению приложен файл: 9888077.xlsm(44.1 Kb)
 
Ответить
СообщениеДобрый вечер.
есть форма выбора дат за период.
При инициализации формы даты отображаются в текстбоксах : дата1- 1-е число текущего месяца,а во втором -дата СЕГОДНЯ. Если нажать кнопку"Проверка" ,то переменные равны 0. Если дату выбрать из календаря ,то переменные отображаются.
например я открыл форму и мне надо сформировать отчет с 1 -го числа по СЕГОДНЯ, то приходится теже самые даты выбирать через календарь, а как можно подкоррекировать,что бы сразу можно было правильно отобразить переменные.

Автор - parovoznik
Дата добавления - 07.05.2020 в 21:07
krosav4ig Дата: Четверг, 07.05.2020, 21:40 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2323
Репутация: 976 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Добрый вечер
[vba]
Код
Private Sub Bnt_НачальнаяДата_Click()            'выбираем начальную дату периода
    On Error Resume Next
    calendar.Show
    If calendar.Value > 0 Then Me.txt_НачальнаяДата.Value = Format(calendar.Value, "dd.mm.yyyy")
End Sub

Private Sub Btn_КонечнаяДата_Click()             'выбираем конечную дату периода по клику
    On Error Resume Next
    calendar.Show
    If calendar.Value > 0 Then Me.txt_КонечнаяДата.Value = Format(calendar.Value, "dd.mm.yyyy")
End Sub

Private Sub txt_КонечнаяДата_Change()
    DateFinish = CDate(Me.txt_КонечнаяДата)
End Sub

Private Sub txt_НачальнаяДата_Change()
    DateStart = CDate(Me.txt_НачальнаяДата)
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеДобрый вечер
[vba]
Код
Private Sub Bnt_НачальнаяДата_Click()            'выбираем начальную дату периода
    On Error Resume Next
    calendar.Show
    If calendar.Value > 0 Then Me.txt_НачальнаяДата.Value = Format(calendar.Value, "dd.mm.yyyy")
End Sub

Private Sub Btn_КонечнаяДата_Click()             'выбираем конечную дату периода по клику
    On Error Resume Next
    calendar.Show
    If calendar.Value > 0 Then Me.txt_КонечнаяДата.Value = Format(calendar.Value, "dd.mm.yyyy")
End Sub

Private Sub txt_КонечнаяДата_Change()
    DateFinish = CDate(Me.txt_КонечнаяДата)
End Sub

Private Sub txt_НачальнаяДата_Change()
    DateStart = CDate(Me.txt_НачальнаяДата)
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 07.05.2020 в 21:40
parovoznik Дата: Четверг, 07.05.2020, 21:55 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 384
Репутация: 20 ±
Замечаний: 0% ±

Excel 2007
krosav4ig, спасибо. Все работает,как часики. yes
 
Ответить
Сообщениеkrosav4ig, спасибо. Все работает,как часики. yes

Автор - parovoznik
Дата добавления - 07.05.2020 в 21:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При инициализации формы не отображаются переменные. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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