Excelでの子の合計

Question

Excelでは、sumsq（）を使用して、ある領域または複数の領域のセットの二乗和を計算できます。どのようにして、キューブの合計や同じように動作するモジュールを書くことができますか？ 私はsumproduct（）でいくらか成功しましたが、inはsumSQ（）ほど柔軟ではありません。エクセルVBAで任意の答え

Answer 1

データがA1にある場合：A10あなたはUDF

Function SumCu(r As Range) As Variant 
    Dim dat As Variant 
    Dim sum As Variant 
    Dim i As Long, j As Long 

    dat = r.Value2 
    sum = 0 
    For i = 1 To UBound(dat, 1) 
    For j = 1 To UBound(dat, 2) 
     sum = sum + dat(i, j)^3 
    Next j, i 
    SumCu = sum 
End Function 

以上の一般

Function SumPwr(r As Range, Pwr As Single) As Variant 
    Dim dat As Variant 
    Dim sum As Variant 
    Dim i As Long, j As Long 

    dat = r.Value2 
    sum = 0 
    For i = 1 To UBound(dat, 1) 
    For j = 1 To UBound(dat, 2) 
     sum = sum + Val(dat(i, j))^Pwr 
    Next j, i 
    SumPwr = sum 
End Function 

を書きたい場合は、あなたが =SumProduct(A1:A10,A1:A10,A1:A10)

を使用することができます