Function ItemSum(ParamArray ItemEtc()) As Double
    'データのある項目の数量を集計(Sum関数の横方向版)
    '文字列としての数字も数値として集計
    '例：　ItemSum([国語],[理科],[社会])
    '配列を丸ごと渡すことも可
    '2003/11/15 pPoy
    
    Dim cnt As Double
    Dim cntA As Variant
    Dim i As Variant, j As Variant
    
    cnt = 0
    cntA = ItemEtc()

    For Each i In cntA
        If IsArray(i) Then
            '配列の場合
            For Each j In i
                If IsNumeric(j) Then cnt = cnt + j
            Next
        Else
            If IsNumeric(i) Then cnt = cnt + i
        End If
    Next

    ItemSum = cnt

End Function

    ItemSum([国語],[理科],[社会])

• この関数は、クエリ内で標準の関数と同様に使用することができます。
  
  
• コード内で変数を引数にした計算にも使用できます。
  引数には１次元配列を渡すことができます。但しネストされた配列は渡せません。
  
  
• Null値、スペースおよび長さ零の文字列 ("") は、零となります。
  
  
• 文字列としての数字は数値として計算します。
  
  
• この関数は、集計関数としては使用できません。 集計クエリでは、Sum関数を使用してください。