Как запретить нажатие кнопки в форме

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

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

Как запретить нажатие кнопки в форме (Макросы/Sub)

Ckaym

Дата: Воскресенье, 05.04.2015, 05:22 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 49

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

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

Excel 2013

Как запретить нажатие кнопки в форме если в TextBox нет даннах
файл примера прилогается
[vba]

Код

Private Sub CommandButton2_Click()
Range("B" & Format(Date, "D")).Value = TextBox1 + Range("B" & Format(Date, "D")).Value
Unload Forma
End Sub

[/vba]
можно чтобы он при этом ругался на неправильные действия.

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

Ckaym

Сообщение отредактировал Ckaym - Воскресенье, 05.04.2015, 05:23

Ответить

KuklP

Дата: Воскресенье, 05.04.2015, 06:52 | Сообщение № 2

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

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

Сообщений: 2369

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

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

2003-2010

[vba]

Код

Private Sub CommandButton2_Click()
     If TextBox1.Text <> "" Then
         Range("B" & Format(Date, "D")).Value = TextBox1 + Range("B" & Format(Date, "D")).Value
         Unload Forma
     Else
         MsgBox "заполните ... ..."
     End If
End Sub

[/vba]