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

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

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


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

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

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



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



Формат даты можно установить в строке 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 в 18:28.
EducatedFool вне форума Ответить с цитированием
Ответ

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

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840