>>57

Function Nmame(セル範囲 As Range) As Integer
  Nmame = WorksheetFunction.Sum(セル範囲)
End Function