VBAの共通部品サンプル

' データハンドリングユーティリティクラス
Class DataHandlingUtility
    ' テキストファイルからデータを読み込む
    Public Function ReadTextFile(filePath As String) As String
        ' 以前のコードを含む
    End Function

    ' データをテキストファイルに書き込む
    Public Sub WriteTextFile(filePath As String, content As String)
        ' 以前のコードを含む
    End Sub

    ' データの整形：テキストを大文字に変換
    Public Function ConvertToUpperCase(text As String) As String
        ' 以前のコードを含む
    End Function

    ' 日付のフォーマット変更
    Public Function FormatDate(inputDate As Date, formatString As String) As String
        ' 以前のコードを含む
    End Function

    ' 数値のフォーマット変更
    Public Function FormatNumber(inputNumber As Double, formatString As String) As String
        ' 以前のコードを含む
    End Function

    ' 文字列を分割して配列に変換
    Public Function SplitTextToArray(text As String, delimiter As String) As Variant
        SplitTextToArray = Split(text, delimiter)
    End Function

    ' 配列を文字列に結合
    Public Function JoinArrayToText(arr As Variant, delimiter As String) As String
        JoinArrayToText = Join(arr, delimiter)
    End Function

    ' データの検索
    Public Function FindData(data As Variant, searchTerm As Variant) As Long
        Dim i As Long
        For i = LBound(data) To UBound(data)
            If data(i) = searchTerm Then
                FindData = i
                Exit Function
            End If
        Next i
        FindData = -1 ' 見つからなかった場合
    End Function
End Class