VBAの呼び出されたUserformを正確にデバッグする2016

Question

特定のモジュールから呼び出されたVBAでよりスマートで正確なユーザーフォームの初期化をデバッグする方法があるかどうかは疑問でした。

Userform_initialisatizeに誤ったコードを書き込むとエラーが表示されますが、発生する箇所は表示されません。強調表示されているコードは単にcall Userform_intitializeです。どのコードを推測するかSub Userform_intitializeにエラーが含まれています。

小さなコードを追加するたびにテストランでユーザーフォームを段階的に構築することで、安定したユーザーフォームの初期化コードを効率的に作成できます。私は最後の成功したランから何が変わったのかを知っているから、特に試行が長い時間を費やす場合に、エラーがどこで発生するのかをすぐに知るとかなりの時間を節約できます。

vba Excel 2016のSub Userform_intitializeと呼ばれる部分で正確なエラーが発生した行を抽出する方法はありますか？

Answer 1

@A.S.H既に言及したように、Initializeイベントのハンドラは、privateのままである必要があります。これは、Initializeイベント自体がプライベートなので、インスタンス自体によって処理されるように意図されており、他の誰にも処理されないためです。

だから正確なエラーが2016 VBA Excelで呼ばれるサブUserform_intitialize以内に発生したラインでを抽出する方法がありますが？あなたの質問について

、はい、それは、エラーが発生した行番号を抽出するためにことも可能です。しかし、行はソースコードの一部である必要があります。次に、関数VBA.Information.Erlを使用して行番号を取得することができます。例：

ユーザーフォームモジュール

Option Explicit 

Private Const MODULE_NAME As String = "MyUserForm." 

Private Sub UserForm_Initialize() 
    On Error GoTo Error_In_UserForm_Initialize 

1 Const procName As String = "UserForm_Initialize" 

    ' Some code here 
2 Dim d As Date 
3 d = Now 
4 MsgBox "Hi from my userform! 'Now' is '" & d & "'", vbInformation, "Info" 

    ' Here error occures, max. value of Integer is 32.767 
5 Dim i As Integer 
6 i = 40000 

7 Exit Sub 

Error_In_UserForm_Initialize: 
8 Dim errorDescription As String 
9 With Err 
10  errorDescription = "Error '" & .Number & "'" & _ 
          " with description '" & .Description & "'" & _ 
          " occured in procedure '" & MODULE_NAME & procName & "'" & _ 
          IIf(Erl <> 0, " on line '" & CStr(Erl) & "'.", ".") 
11 End With 
12 MsgBox errorDescription, vbCritical, "Error" 
End Sub 

Erlhereまたはhereに関するいくつかの追加の測定値。