이럴 때 필요해요

클래스 모듈을 이용하여 여러가지 프로그램에 활용할수있습니다.

이렇게 사용해요

위와 같이 폼안에 숫자를 적고 Enter 키를 누를때마다

그다음 폼안에 있는숫자를 더해지는 자동합계 시스템을 간단하게 만들수있습니다.

Option Explicit

Option Base 1

Dim TxtN() As New TxtNumberClass

Private Sub TextBox6_Change()

  TextBox6 = Format(TextBox6, "#,###")

End Sub

Private Sub UserForm_Initialize()

 Dim i As Integer

  ReDim Preserve TxtN(1 To 5)

   For i = 1 To 5

    Set TxtN(i).TxtGroup = Me.Controls("TextBox" & i)

   Next i

End Sub

Private Sub CommandButton1_Click()

  Unload Me

End Sub

이 코드를 입력해주시고 실행 시키면

폼안에 숫자를 적으면 순차적으로 합산이되는 자동계산폼을 만들수있습니다!