将文本框条目传递给单元格时，如果缺少所需信息，则发出警告

Question

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

我在文本框中显示 "End miles" 的框中有默认文本。

我想弹出一个消息框，告诉用户在单击命令按钮而不输入时在框中输入他们的结束里程。

这是我现在使用的相关代码：

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

将文本框条目传递给单元格时，如果缺少所需信息，则发出警告

Warn if missing required informtion when passing Textbox entry to cell

excel

vba

textbox

msgbox