简单的消息框未显示

Question

我正在尝试显示一个消息框，如果字符串为空，这是我试过的代码。我没有得到任何错误但仍然没有显示消息框。任何帮助表示赞赏。

Dim tmp1 As String, tmp2 As String, tmp3 As String
Dim TextBox1 As String
Dim TextBox2 As String
Dim TextBox3 As String

tmp1 = Sheets("Sheet1").TextBox1.Value
If tmp1 = " " Then
MessageBox.Show ("file1 not selected")
End If

tmp2 = Sheets("Sheet1").TextBox2.Value
If tmp2 = " " Then 
MessageBox.Show ("file2 not selected")
End If

tmp3 = Sheets("Sheet1").TextBox3.Value
If tmp3 = " " Then 
MessageBox.Show ("file3 not selected")

Answer 1

两件事

<强> A 即可。 If tmp2 = " " Then

如果您正在检查空白，请使用此

If Len(Trim(tmp2)) = 0 Then

<强>乙即可。 MessageBox.Show是VB.Net。对于VBA使用

MsgBox "file1 not selected"

与其他人相似......

Answer 2

根据您的问题，我建议您尝试以下步骤：

1. 将工作表1中的三个单元格命名为TextBox1,2和3 - 在Excel中使用名称管理器（无需VBA）

2. 在VBE中输入以下代码：

代码：

If Range("TextBox1").value = "" Then
     Msgbox "pls fill field 1"
End if

我希望它有意义并解决你的问题。