我有一个从用户窗体上的按钮激活的子程序。点击的基本程序是
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