|在本文中，我们将创建一个自定义函数来计算单元格中的数字总和。

此示例的样本数据由销售数据组成。每个代理商都出售不同的产品。在一个单元格中，我们有售出商品的数量以及产品名称。我们想找到每个代理商出售的总物品。

ArrowRaw

我们创建了“ SumDigits”函数来计算单元格中的数字总和。此函数将单元格范围作为输入，并返回单元格中的数字总和。

ArrowOutput

逻辑解释

我们创建了自定义函数“ SumDigits”以计算单元格中的数字总和。在此函数中，我们在单元格中找到字符串的长度，然后从字符串的第一个字符到最后一个字符循环。然后，我们找到并添加在字符串中找到的数值，以得到数字的总和。

代码说明

Mid（Number，i，1）

Mid函数用于从主字符串中提取子字符串。

上面的代码将一次从主字符串中提取一个字符。

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]