PART 03 — モジュール分割設計
標準モジュール・クラスモジュール・ThisWorkbook の役割分担

Option Explicit

' ── modUtils.bas ──────────────────────────────
' 役割：汎用ユーティリティ関数を集約する

' ファイルが存在するか確認
Public Function FileExists(ByVal path As String) As Boolean
    FileExists = (Dir(path) <> "")
End Function

' 文字列をゼロパディング
Public Function ZeroPad(ByVal num As Long, ByVal digits As Integer) As String
    ZeroPad = Right(String(digits, "0") & CStr(num), digits)
End Function

Option Explicit

' ── ThisWorkbook ──────────────────────────────
' ブックを開いたとき
Private Sub Workbook_Open()
    modSetup.InitializeApp   ' 初期化処理を標準モジュールに委譲
End Sub

' ブックを閉じる前
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    modSetup.CleanupApp      ' クリーンアップを標準モジュールに委譲
End Sub

Option Explicit

' ── Sheet1（データ入力シート）────────────────
' セル変更時にバリデーション
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then   ' C列が変更された場合
        If Not IsNumeric(Target.Value) Then
            MsgBox "数値を入力してください", vbExclamation
            Application.Undo
        End If
    End If
End Sub

' ── clsProduct.cls ──────────────────────────
Option Explicit

Private m_Name  As String
Private m_Price As Long

Public Property Get Name() As String:  Name = m_Name:  End Property
Public Property Let Name(v As String): m_Name = v:     End Property
Public Property Get Price() As Long:   Price = m_Price: End Property
Public Property Let Price(v As Long):  m_Price = v:     End Property

' ── 呼び出し側 ──
Sub UseProduct()
    Dim p As New clsProduct
    p.Name  = "テスト商品"
    p.Price = 1000
    MsgBox p.Name & " : ¥" & p.Price
End Sub

Option Explicit

' ── frmInput ──────────────────────────────────
Private Sub btnOK_Click()
    ' フォームはデータ収集のみ、処理は標準モジュールに委譲
    Dim inputVal As String
    inputVal = Me.txtValue.Text

    If inputVal = "" Then
        MsgBox "入力してください", vbExclamation
        Exit Sub
    End If

    modProcess.ExecuteWithInput inputVal
    Me.Hide
End Sub

Private Sub btnCancel_Click()
    Me.Hide
End Sub