VBA求Word表格中任意两个单元格的数值加和

搬砖狗

如图选中了四个单元格  使用MsgBox的方式展示加和为  11
注意选择的四个单元格可能不在同一个 Table中；

daibao88

Sub 求和()
    Dim rg As Range, str As String, Item As Double, Matches, Match
    Set rg = VBA.IIf(Selection.Type = wdSelectionIP, ActiveDocument.Range, Selection.Range)
    str = rg.Text
    With CreateObject("VBSCRIPT.REGEXP")
        .Global = True
        .Pattern = "(\-|\+)?\d+(\.\d+)?"
        Set Matches = .Execute(str)
        For Each Match In Matches
            Item = Item + Match.Value
        Next
        MsgBox "合计：" & Item
    End With
    With New DataObject
        .SetText Item
        .PutInClipboard
    End With

End Sub

daibao88

求和结果会送入剪切板，直接黏贴就可以得到。
原来写的，本是从选择的一段文本中的数字求和，同样使用于表格数字求和。

搬砖狗

daibao88 发表于 2019-10-12 21:25
Sub 求和()
    Dim rg As Range, str As String, Item As Double, Matches, Match
    Set rg = VBA.IIf ...

大神，我运行的时候  提示用户未定义类型

daibao88

搬砖狗 发表于 2019-10-13 16:29
大神，我运行的时候  提示用户未定义类型

需要引用 Microsoft Forms 2.0 Object Library

搬砖狗

daibao88 发表于 2019-10-13 20:49
需要引用 Microsoft Forms 2.0 Object Library

程序无法实现要求，我摁住CTRL 先选择 表格里面的2这个数值，然后选择3这个数值，运行程序，结果只是3，不是5

搬砖狗

daibao88 发表于 2019-10-12 21:29
求和结果会送入剪切板，直接黏贴就可以得到。
原来写的，本是从选择的一段文本中的数字求和，同样使用于表 ...

我试了一下，文本可以，但是表格不行

搬砖狗

daibao88 发表于 2019-10-13 20:49
需要引用 Microsoft Forms 2.0 Object Library

应该说文本 和  Word表格 都无法实现不连续区域的 数值加总

1256366515

daibao88 发表于 2019-10-13 20:49
需要引用 Microsoft Forms 2.0 Object Library

方便讲一下具体的操作吗 不懂

daibao88

搬砖狗 发表于 2019-10-14 10:31
应该说文本 和  Word表格 都无法实现不连续区域的 数值加总

是的，代码是在一个文档中一个表格或一段文本中用的