VBA：用户窗体函数

Question

我有一个通过用户表单上的按钮激活的子程序。单击的基本过程是

1) 根据用户输入运行我的子程序

2) 选择结果表

3) 显示我的结果

4) 卸载我的用户表单

我遇到了问题，因为我想尝试对用户进行限制输入值，如果用户输入超出范围的内容，则会弹出消息框，通知他们范围。我已经能够通过使用 if/then 循环来完成这个简单的任务。用户退出消息框后，我希望保留用户窗体与原始用户输入一起显示，并允许用户更改其输入。但目前，在用户单击消息框中的“确定”后，我的单击子程序将继续其过程并卸载我的用户表单并选择我的结果工作表。是否有一个简单的一行代码可以放在 msgbox 状态之后以保留用户表单，而不是让用户重新输入其值？

编辑-我的代码的一般要点如下：

Private Sub CommandButton1_Click()
    PropertySearch.Search
    ActiveSheet.Name = "SearchResult"
    Cells(1, 1).Select
    Unload ILsearch
End Sub

Sub Search()
    If (TextBox1 And TextBox2 <= 8) And (TextBox1 And TextBox2 > 0) Then
    '
    'Performs my desired function
    '
    Else: MsgBox ("Database only includes ionic liquids with a maximum of 8 carbons in cation")
    End If

Answer 1

我会将 Search 转换为一个函数，如果输入是否在边界内，该函数将返回 true 或 false：

Function Search() AS Boolean

   If (TextBox1 And TextBox2 <= 8) And (TextBox1 And TextBox2 > 0) Then
      Search = True
   Else
      Search = False
   EndIf

End Function

然后，如果输入不符合您的边界，您只需退出子程序：

Private Sub CommandButton1_Click()

    If(Not PropertySearch.Search) Then
       MsgBox("your error message here")
       Exit Sub
    EndIf

    ' rest of the routine

End Sub

Answer 2

大约有一千零一种方法可以解决这个问题 - 问题是您希望表单具有什么行为？

您希望它在一段时间后自动关闭吗？
查看计时器的示例 1

或者查看 Application.Ontime

Application.OnTime Now + TimeValue("00:00:10"), "unloadForm"

其中“unloadForm”是普通模块中的子项

Sub unloadForm()
    Unload ILsearch
End Sub

您想添加关闭表单按钮吗？

Private Sub CommandButton1_Click ()
    Unload Me
End Sub

您是否希望用户通过右上角的红色 X 手动关闭表单？只需使用 Unload 删除该行

是否要显示一个模式弹出窗口，冻结 Excel 直到关闭，然后卸载表单？在卸载表单之前尝试添加 MsgBox "Hello"。

还有很多很多很多！

例如，我有几种使用键盘事件的表单。 Escape 可以清除所有字段并隐藏/卸载表单，而 Enter 执行相同的操作，但还将值写入表中，Delete 只清除活动控件而不隐藏表单，向上和向下箭头循环浏览隐藏当前控件的表单并显示上一个/下一个，同时左右功能如 tab/shift + tab。