フォームのロード完了を VBA で確認する方法

1年 ago
夏樹, 風
1 minute

VBAでは、以下のコードを使用してフォームのロードを識別できます。

Function IsFormLoaded(formName As String) As Boolean
Dim frm As Object
For Each frm In VBA.UserForms
If frm.Name = formName Then
IsFormLoaded = True
Exit Function
End If
Next frm
IsFormLoaded = False
End Function

使用方法：

Sub Test()
If IsFormLoaded("Form1") Then
MsgBox "Form1 is loaded."
Else
MsgBox "Form1 is not loaded."
End If
End Sub

上記の例の「Form1」という名前のフォームがロードされている場合、「Form1はロードされました。」というメッセージを表示し、ロードされていない場合は、「Form1はロードされていません。」というメッセージを表示します。

bannerAds