Предупреждать, если отсутствует необходимая информация при передаче записи Textbox в ячейку - PullRequest
Новая
       33

Предупреждать, если отсутствует необходимая информация при передаче записи Textbox в ячейку

0 голосов
/ 17 января 2020

У меня есть пользовательская форма в Excel 16, которая вводит текст из TextBox5 в ячейку Sheet1.Range("F2") при нажатии CommandButton1.

У меня есть текст по умолчанию в поле с надписью «Конечные мили» в TextBox.

Я хочу открыть окно с сообщением о том, что пользователь должен ввести свой конечный пробег в поле, когда он нажимает кнопку CommandButton, не вводя его.

Это соответствующие коды, которые я сейчас использую: 

Private Sub UserForm_Initialize()
     If Not Range("F2").Text = "" Then TextBox5.Text = Range("F2").Text _
           Else TextBox5.Text = "End Miles"
End Sub

Private Sub CommandButton1_Click()
    Sheet1.Range("F2") = TextBox5.Text
    Unload Me
End Sub

Я пытаюсь: 

If Not TextBox5.Text = "End Miles" Then 
     MsgBox "Enter ending mileage" 
Else 
     Sheet1.Range("F2") = TextBox5.Text
End If

1 Ответ

0 голосов
/ 21 января 2020

Ваш логин c перевернут: 

If TextBox5.Text = "End Miles" Then 
     MsgBox "Enter ending mileage" 
Else 
     Sheet1.Range("F2") = TextBox5.Text
End If
...