Изменить текущий год,

[segail]

При открытии формы2 кнопкой с другой формы1 необходимо чтобы в объекте TextBox1 (форма2) устанавливался текущий год в формате уууу. А так же при необходимости объектом SpinButton1 (форма2) изменять числовое значение года год.

[pivas]

Примерно так:

Private Sub SpinButton1_SpinDown() 'увеличение на 1 год
TextBox1 = TextBox1 - 1
End Sub

Private Sub SpinButton1_SpinUp() 'уменьшение на 1 год
TextBox1 = TextBox1 + 1
End Sub

Private Sub UserForm_Activate()
TextBox1 = Year(Format(Date, yyyy, , vbUseSystem)) 'текущий год
End Sub

[segail]

Все точно. Благодарю!

[segail]

Еще один вопрос. В свойствах TextBox можно сделать так что ба при занесение значений в ручную, заносились только числовые данные?

[The_Prist]

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
        MsgBox "Можно вводить только цифры", vbInformation, "Запрет ввода"
    End If
End Sub

Просто скопировать код в форму, заменив TextBox1 на имя своего TextBox.

[segail]

А я мучился, всякие там условия создавал.
Спасибо.

[segail]

Необходимо условие для TextBox ввод только числовых значений от 0 до 40 и от 0 -40

А также условие для другого TextBox ввод только положительных пятизначных числовых значений


Или подскажите где можно изменять данный год для создания выше перечисленных условий?

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
        MsgBox "Можно вводить только цифры", vbInformation, "Запрет ввода"
    End If
End Sub

[segail]

Здравствуйте.

Подскажите какой необходимо код текущей даты в формате 00.00.0000 для объекта TextBox при выполнение UserForm_Initialize

[Teslenko_EA]

Здравствуйте segail.
подсказываю:
TextBox = Format(Date, "dd.mm.yyyy")
Евгений.

[segail]

Нормально спасибо.