用户表单文本框像 html 文本框一样工作

Question

我正在尝试弄清楚如何让 excel 用户表单中的文本框像 HTML 文本框一样进行更新。例如，如果您将默认值设置为“名字”，然后单击该文本框，它将消失并让您输入。一旦您单击退出，如果您没有输入任何内容，它将返回到默认“名字”。

我发现很多人都在问同样类型的事情，但没有一个对我有用。到目前为止，这是我的代码。

Sub QCToolsForm()
QCTools.Show vbModeless
End Sub

Private Sub RUBSTotalExpense_Enter()
Debug.Print "Enter"
If Me.RUBSTotalExpense.Value = "Total Expense" Then
    Me.RUBSTotalExpense.Value = ""
End If
End Sub

Private Sub RUBSTotalExpense_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Debug.Print "Exit"
If Me.RUBSTotalExpense.Value = "" Then
    Me.RUBSTotalExpense.Value = "Total Expense"
End If
End Sub

Private Sub UserForm_Initialize()
updateDefault

End Sub

Public Function updateDefault()

If Me.RUBSTotalExpense.Value = "" Then
    Me.RUBSTotalExpense.Value = "Total Expense"
End If

End Function

在我关闭用户窗体之前，退出子程序不会运行。我也尝试过失去和获得焦点，但完全没有运气。我也尝试过更新前后，但它们只在第一次工作。如果值为“总费用”，我希望每次单击该框时它都会消失。当我离开文本框时，如何获得退出子或类似运行的东西？

Answer 1

我尝试将您的代码用于输入和退出，它对我来说适用于测试用户表单。它会正确更新字段，并在您选择文本框时打印“Enter”，当您在用户表单上选择其他内容时打印“Exit”。请注意，要触发退出，您需要将焦点放在用户窗体上的其他内容上。简单地单击其他地方不会从文本框中获得焦点，您必须单击另一个文本框或其他控件。

我建议使用 Debug.Print 来准确观察您尝试的每个方法何时被调用，这样您就可以确定您的代码何时运行。

Private Sub TextBox1_Enter()
    Debug.Print "Enter"
    If TextBox1.Value = "Total Expense" Then
        TextBox1.Value = ""
    End If
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Debug.Print "Exit"
    If TextBox1.Value = "" Then
        TextBox1.Value = "Total Expense"
    End If
End Sub