この記事では、セル内の桁の合計を計算するカスタム関数を作成します。

この例のサンプルデータは、販売データで構成されています。各エージェントは異なる製品を販売しています。セルには、販売されたアイテムの数とそれに続く製品名があります。各エージェントが販売したアイテムの合計を求めます。

ArrowRaw

セル内の桁の合計を計算する「SumDigits」関数を作成しました。この関数は、セルの範囲を入力として受け取り、セル内の桁の合計を返します。

ArrowOutput

ロジックの説明

セル内の桁の合計を計算するカスタム関数「SumDigits」を作成しました。この関数では、セル内の文字列の長さを見つけて、文字列の最初の文字から最後の文字までループします。次に、文字列で見つかった数値を見つけて加算し、桁の合計を取得します。

コードの説明

Mid（Number、i、1）

mid関数は、メイン文字列からサブ文字列を抽出するために使用されます。

上記のコードは、メイン文字列から一度に1文字を抽出します。

IsNumeric（Value）

IsNumeric関数は、指定された値が数値であるかどうかを確認するために使用されます。

Val（値）

Val関数は、文字列を数値に変換するために使用されます。

コードについては以下に従ってください

Option Explicit

Function SumDigits(Number As Variant)

Dim i As Integer

For i = 1 To Len(Number)

If IsNumeric(Mid(Number, i, 1)) Then

SumDigits = SumDigits + Val(Mid(Number, i, 1))

End If

Next i

End Function

このブログが気に入ったら、FacebookやFacebookで友達と共有してください。

皆様からのご意見をお待ちしております。私たちの仕事を改善し、あなたのために改善する方法をお知らせください。 [email protected]までご連絡ください