似乎没有用户表单,我尝试通过两种方法进行检查。
我的用户窗体放在这里:
代码位于Modul3中:
'Called in Modul3
Sub testUf()
MsgBox VBA.UserForms.Count 'gives result of 0
MsgBox isFormLoaded("UserFormNewPath")'gives result of FALSE
End Sub
Function isFormLoaded(ByVal strName As String) As Boolean
Dim i As Integer
isFormLoaded = True
strName = LCase(strName)
For i = 0 To VBA.UserForms.Count - 1
If LCase(UserForms(i).Name) = strName Then Exit Function
Next
isFormLoaded = False
End Function
背景:我想检查指定的用户窗体是否存在,可以在此处或普通MsgBox的打印详细信息之间进行选择。为什么不计算用户表单,或者我该怎么做才能获得TRUE检查结果?
++++解决方案++++
正如@warcupine提到的,添加以下步骤很有帮助:
添加此代码行:UserFormNewPath.Show
UserFormNewPath.Show
UserFormNewPath.Show
使UserForm出现。然后,要删除模式,这将停止所有执行,直到您处理该模式为止,请转到UserForm属性,然后将模式设置为False。您可以通过在设计模式下右键单击表单来访问属性,并且应该会出现一个侧边栏。