クラスとWithEventsを使用してテキストボックスの変更を検出する

Question

私は12のテキストボックス（1年の各月に1つ）でVBEにユーザーフォームを持っています。最初の12個のボックスのそれぞれの値の合計を表示し、他のテキストボックスの値が変更されたときに更新と再計算を行う追加のテキストボックスがあります。

この問題を解決するためのいくつかの助けに感謝します。私はクラスの以下のイベントセクションに入れて何がわからないよしかし

VBA: Detect changes in any textbox of the userform

：

私が実装しようとしているコードがでポストから取得されます。

注意：これは私が学んでいるので、クラスを使用する私の最初の試みです。

Answer 1

Class1の場合は、あなたのクラスモジュールの名前でユーザーフォームのUserform1名前、あなたはすべてのテキストボックスの値の合計が、その後TextBox13になりたい場合は、あなたのClass1モジュールで

は

Private WithEvents txtbox As MSForms.TextBox 
Dim ctlr As Control 
Public sum As Integer 

Public Property Set TextBox(ByVal t As MSForms.TextBox) 
    Set txtbox = t 
End Property 

Private Sub txtbox_Change() 
    sum = 0 
    For Each ctlr In UserForm1.Controls 
     sum = sum + Val(ctlr) 
    Next ctlr 
    UserForm1.TextBox13 = sum - Val(UserForm1.TextBox13) 
End Sub 

を挿入します

とUserForm1モジュールには、何と

Private myEventHandlers As Collection 

Private Sub UserForm_Initialize() 
    Dim txtbox As Class1 

    Set myEventHandlers = New Collection 

    Dim c As Control 
    For Each c In Me.Controls 
     If TypeName(c) = "TextBox" Then 
      Set txtbox = New Class1 

      Set txtbox.TextBox = c 

      myEventHandlers.Add txtbox 
     End If 
    Next c 
End Sub