Question

在数字命理学中，您可以添加例如您出生年份的数字;让我们假设1945年。当这些数字加在一起时，他们总共19（1 + 9 + 4 + 5）。然后必须再次添加它们以得到一个数字，在这种情况下为10然后1.你能为此提供一个公式吗？

Answer 1

将此添加到您的VBA文件（按Alt-F11）将为您提供一个名为＆＃34; totalString＆＃34;的函数。

然后可以使用=totalString(A1)计算总和，其中A1是包含您的数字的单元格，例如1945，或直接使用（您猜对了......）{{1 }}

=totalString(1945)

编辑：您可以使用第3个代码块（位于帖子的底部）来指定仅添加的某些值，而不是下一节。

Function totalString(ByVal numberString As Integer) As Integer
    Dim length As Integer
    length = LEN(numberString)
    Dim sum As Integer
    sum = 0

    For i=1 To length
        sum = sum + mid(numberString, i, 1)
    Next i

第3块（替代结束......）

    Dim l2 As Integer
    l2 = LEN(sum)
    If l2 <> 1 Then
        totalString = totalString(sum)
    Else
        totalString = sum
        Exit Function
    End If

End Function

该函数计算您给出的数字的长度，然后获取每个数字的值。它检查总和的长度是否为1，如果不是，则递归调用该函数。

在excel中的同一单元格中添加2个或更多数字

1 个答案: