在VBA中，我们可以使用IsLoaded属性来判断窗体是否已经加载，IsLoaded属性返回一个布尔值，如果窗体已经加载，则返回True,否则返回False。
以下是一个简单的示例：
Private Sub Form_Load()
MsgBox "窗体已加载"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "窗体已卸载"
End Sub
在这个示例中，当窗体加载时，会弹出一个消息框显示"窗体已加载",当窗体卸载时，会弹出一个消息框显示"窗体已卸载"。
如果你想在窗体加载之前执行一些代码，你可以将这些代码放在Form_Load事件中。
Private Sub Form_Load()
MsgBox "窗体已加载"
' 在这里添加你想在窗体加载之前执行的代码
End Sub
如果你想在窗体卸载之后执行一些代码，你可以将这些代码放在Form_Unload事件中。
Private Sub Form_Unload(Cancel As Integer)
MsgBox "窗体已卸载"
' 在这里添加你想在窗体卸载之后执行的代码
End Sub
需要注意的是，IsLoaded属性只能用于判断当前活动的窗体是否已经加载，如果你需要判断其他窗体是否已经加载，你需要先激活那个窗体，然后再使用IsLoaded属性。
Sub CheckFormLoaded()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将工作表名替换为你需要检查的工作表名
ws.Activate ' 激活工作表
If ws.IsLoaded Then
MsgBox "工作表已加载"
Else
MsgBox "工作表未加载"
End If
End Sub
这个示例中的CheckFormLoaded子程序会激活指定的工作表，然后使用IsLoaded属性来判断工作表是否已经加载，如果工作表已经加载，会弹出一个消息框显示"工作表已加载",否则会弹出一个消息框显示"工作表未加载"。
原创文章，作者：K-seo，如若转载，请注明出处：https://www.kdun.cn/ask/102656.html
微信扫一扫 