时间戳

首页 > 解决方案 > 如何对vba中的数字列表求和？

vba - 如何对vba中的数字列表求和？

问题描述

我的 Word 宏中有一个 vba 函数，该函数将逗号分隔的数字列表作为字符串返回。例如;

var = (1.5, 2, 3, 5)

我将如何将它们相加以找到总和？

标签： vbams-word

解决方案

替换","为"+"并在字符串上使用Evaluate公式。注意：必须创建对 Excel 实例的引用，这至少可以说有点笨拙！我找不到与 Evaluate 函数等效的单词，这似乎有点奇怪：

Option Explicit
Public Sub test()
    Dim inputStr As String, oXL As Object
    inputStr = "1.5, 2, 3, 5"
    With CreateObject("Excel.Application")
    MsgBox .Evaluate(Replace(inputStr, ",", "+"))
       .Quit
    End With
End Sub

推荐阅读