将文本框条目传递到单元格时，如果缺少必需的信息，请警告

Question

我在Excel 16中有一个用户窗体，当按下CommandButton1时，它将文本从TextBox5输入到单元格Sheet1.Range("F2")中。

我在文本框中的默认文本是“ End miles”。

我想弹出一个消息框，告诉用户单击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

Answer 1

您的逻辑相反：

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