在一个word表格的任意单元格中存储有数字,当任意选中不同的单元格时,希望可以对其中的数字进行求和,并弹窗显示结果,可以使用如下的代码:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Sub QQ1722187970() Dim oRng As Range Dim oCell As Cell Dim oTable As Table Dim dSum As Double Dim sCellValue Dim arr() Dim i, j With Word.Application.Selection For Each oCell In .Cells sCellValue = oCell.Range.Text '把单元格结尾字符去掉 sCellValue = VBA.Replace(sCellValue, Chr(13) & Chr(7), "") '判断单元格内容是否是数值 If VBA.IsNumeric(sCellValue) Then ReDim Preserve arr(i) arr(i) = sCellValue dSum = dSum + arr(i) i = i + 1 End If Next End With MsgBox "选择的数据是:" & Join(arr, " ") & vbCrLf & "共" & i & "个数据" & vbCrLf & "求和结果为:" & dSum End Sub |
[……]
阅读全文>>>