Распознование ввода в textbox только даты или даты и времени

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Распознование ввода в textbox только даты или даты и времени (Макросы/Sub)

lFJl

Дата: Четверг, 07.07.2016, 11:31 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 236

Репутация: 6 ±

Замечаний: 0% ±

Excel 2013

Доброго дня!
Ввожу в textbox данные или даты или даты+ время.
определяю это кодом: [vba]

Код

textbox = Format(Replace(textbox.Value, ",", "."), "dd.mm.yyyy hh:mm")

[/vba]
Подскажите, как определить, если допустим я ввожу только дату, то используем: [vba]

Код

textbox = Format(Replace(textbox.Value, ",", "."), "dd.mm.yyyy")

[/vba]
А если дату и время, тогда: [vba]

Код

textbox = Format(Replace(textbox.Value, ",", "."), "dd.mm.yyyy hh:mm")

[/vba]

И так же вывод этой информации в ячейку
Сейчас я это делаю таким образом: [vba]

Код

If textbox.Text <> "" Then Cells(ActiveCell.Row, 23).Value = CDate(textbox.Text)

[/vba]
Так вывод информации только даты, а если данные введены со временем, тогда что использовать?

Сообщение отредактировал lFJl - Четверг, 07.07.2016, 11:47

Ответить

Manyasha

Дата: Четверг, 07.07.2016, 13:32 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

lFJl, можно так попробовать:
[vba]

Код

    'Если не дата
    If Not IsDate(TextBox1.Value) Then
        Cells(1, 1) = "text"
    'Дата+время
    ElseIf CDbl(CDate(TextBox1.Value)) - Int(CDbl(CDate(TextBox1.Value))) > 0 Then
        TextBox1 = Format(Replace(TextBox1.Value, ",", "."), "dd.mm.yyyy hh:mm")
        With Cells(1, 1)
            .Value = CDate(TextBox1.Value)
            .NumberFormat = "dd.mm.yyyy hh:mm"
        End With
    'Дата
    Else
        TextBox1 = Format(Replace(TextBox1.Value, ",", "."), "dd.mm.yyyy")
        With Cells(1, 1)
            .Value = CDate(TextBox1.Value)
            .NumberFormat = "dd.mm.yyyy"
        End With
    End If

[/vba]

К сообщению приложен файл: primer.xlsm (17.2 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

lFJl

Дата: Четверг, 07.07.2016, 16:23 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 236

Репутация: 6 ±

Замечаний: 0% ±

Excel 2013

Manyasha, Спасибо большее, то что нужно!

Ответить

Страница 1 из 1
1