求助：如何做一个按扭，对窗口表中字符列的某一部分的数字进行统计，谢谢！！！

Dim sum As Double
For Each r As Row In Tables("表A").Rows
    sum + = Val(r("第一列"))
Next
MessageBox.Show(sum)

谢谢！确实很好，但是，你这个代码是指第一列的字符中数字进行统计，如果是选中表中任一列的字符数字能进行统计那就更好了，就这样的代码如何写？谢谢！！！

Dim sum As Double
For Each r As Row In Tables("表A").Rows

     For each c As Col in Tables("表A").Cols
           sum + = Val(r(c.name))

     next
Next
MessageBox.Show(sum)

试用了一下，发现一个问题，第一个代码是对整个字符列进行统计，第二个代码是对整个表的字符数字进行统计，而我想要的是对某个列选中的部分进行统计，请问代码如何写？

针对任意当前表，任意选定区域，你想咋滴就咋滴：

Dim sum As Double
Dim t As Table = CurrentTable
For i As Integer = t.TopRow To t.BottomRow
    For j As Integer = t.LeftCol To t.RightCol
        sum + = Val(t.Rows(i)(j))
    Next
Next
MessageBox.Show(sum)

sum + =

请问这个是什么逻辑

太棒了，谢谢！！！