Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 21.08.2009, 16:21   #1
mephist
Форумчанин
 
Регистрация: 01.05.2009
Сообщений: 200
По умолчанию Диалоговое окно с 2 ячейками

Доброго времени суток!
Мне нужно, чтобы при открытии книги выскакивало окно с 2 ячейками для ввода. В эти ячейки подразумевается ввод двух дат.
Подскажите, как организовать такое окно? как организовать форматность даты(например, чтобы в окошечках было ..-..-....)???
mephist вне форума Ответить с цитированием
Старый 21.08.2009, 19:22   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,841
По умолчанию

Так, что ли, надо?



Если так, то вот пример:



Формат даты можно установить в строке Me.Date2 = Get_Date(Me.Date2, Now)

К примеру, можно попробовать такой вариант:
Код:
Private Sub B_Дата1_Change_Click()
    Me.Date1 = Format(Get_Date(Me.Date1, Now), "DD-MM-YYYY")
End Sub

Private Sub B_Дата2_Change_Click()
    Me.Date2 = Format(Get_Date(Me.Date2, Now), "DD-MM-YYYY")
End Sub
Если при запуске формы даты должны быть уже введены в поля, используйте что-то вроде этого:
Код:
Private Sub UserForm_Initialize()
    Me.Date1 = Format(Now - 2, "DD-MM-YYYY")
    Me.Date2 = Format(Now, "DD-MM-YYYY")
End Sub
Ещё один пример (с нужным Вам форматированием дат)


Последний раз редактировалось EducatedFool; 21.08.2009 в 19:28.
EducatedFool вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Диалоговое окно Busine2009 Microsoft Office Word 0 01.08.2009 09:15
Диалоговое окно Михаил Юрьевич Общие вопросы Delphi 11 01.06.2009 20:31
Диалоговое окно при создании файла tae1980 Microsoft Office Excel 5 16.03.2009 22:41
Диалоговое окно Beggins Общие вопросы C/C++ 3 09.05.2008 05:03