ミスった>>135はなし モジュール：SheetParameterFactory 'シートパラメタエンティティ作成クラス Public Function makeSheetParameter(ByVal targetSheet As Worksheet) As ISheetParameterEntity Dim instance As ISheetParameterEntity Select Case targetSheet.Name Case Sheet2.Name Dim sht2Para As Sheet2ParameterEntity Set sht2Para = New Sheet2ParameterEntity Set instance = sht2Para Case Sheet3.Name Dim sht3Para As Sheet3ParameterEntity Set sht3Para = New Sheet3ParameterEntity Set instance = sht3Para Case Else Set instance = Nothing End Select Set makeSheetParameter = instance End Function
