vba：CommonUtil

• 呼び出しは、こんな感じ

    ' =====================
    ' 開始処理
    ' =====================
    Dim comUtil As CommonUtil
    Set comUtil = New CommonUtil
    comUtil.ExeInit

• クラス：CommonUtilで実装

Option Explicit

Public Sub ExeInit()
    
    With ActiveWorkbook.Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

End Sub

Public Sub ExeFinal()

    With ActiveWorkbook.Application
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
        .EnableEvents = True
    End With

End Sub
        

Public Function ConvertDateToString(ByVal dt As Date, ByVal formatNo As Long) As String
   
    Select Case formatNo
    
        Case 1
            ConvertDateToString = format(dt, "yyyymmdd")
            
    End Select

End Function