Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Application.InputBox проверка на дату
 
#1
02.10.2016 14:31:11
Добрый день
есть ли Тип которые ток дату пропускает?
а то там 64 типов...
или альтернативные варианты?
Код
цикл
Data = Application.InputBox( "", , , type = ...
if not typename( Data ) = date then goto Цикл
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#2
02.10.2016 15:16:00
Их не 64 )))
Источник знаний
 
 
 
#3
02.10.2016 15:21:05
8 вариантов?
я прогнал фором , он у меня до 32 выдавал то стринги, то дубли, то эроры
как то по идиотски нету типа дата.
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#4
02.10.2016 15:32:24
IsDate
 
 
 
#5
02.10.2016 15:44:08
По мне так легче валидатор сделать.
С уважением,
Федор/Все_просто
 
 
 
#6
02.10.2016 15:44:21
Цитата
Фродо написал: нету типа дата.
А что надо то, если не трогать inputBox?
 
 
 
#7
02.10.2016 15:52:20
нужно от пользователя запросить Дату, и исключить вероятность кривого ввода
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#8
02.10.2016 15:55:49
Использовать календарь, либо текстбокс на форме с разными проверками.
 
 
 
#9
02.10.2016 16:00:22
походу приодеться заморочиться с формой календариком, так не хотелось...
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#10
02.10.2016 16:13:51
Что там заморачиваться. Импортируем форму в проект
в коде, где надо добавляем строки
Код
With FrmCalendar
     .Show
     If .Value > 0 Then ActiveCell = .Value
End With
ActiveCell меняем на своё (конкретную ячейку, текстбокс может переменную) и всё.
 
 
 
#11
02.10.2016 16:21:23
Код
Function InputDate() As Date
  Dim dt$
  Do
    If dt = "" Then dt = Format(Date, "dd.mm.yyyy")
    dt = InputBox("ONLY DATE", "Input date", dt)
  Loop Until IsDate(dt)
  InputDate = CDate(dt)
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#12
02.10.2016 16:21:24
kalbasiatka, использовал свои заготовки.
чисто из спортивного интереса что это за формат у вас  FrmCalendar.frx ?
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#13
02.10.2016 16:27:50
мой вариант, так для справки, то же самое, но все же
-форма присваивает дату глобальной переменной которую уже в коде использую
Код
Public dt_1 As Date
Sub test()
Dim Дата As Date
Form_SelectDate.Show
Дата = dt_1
End Sub
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#14
02.10.2016 16:38:46
У меня через импорт она как .frm видится.
Excel 2013.
Изменено: kalbasiatka - 02.10.2016 16:40:05
 
 
 
#15
02.10.2016 16:42:08
kalbasiatka,
так вы прислали .frx который эксель не понимает
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#16
02.10.2016 18:10:58
Муть какая-то )))
Первый раз в импорте была видна форма, теперь её не видно. Да и при экспорте нет никаких .frx.
Изменено: kalbasiatka - 02.10.2016 18:11:36
 
 
 
Страницы: 1
Наверх