主题：单元格计算问题

 呃，肯定可以，不过需要用代码计算。

 

 (6.2) 等于哪几行的相加？

Dim t As Table = Tables("表B")
For i As Integer = 0 To t.Rows.Count - 7
    Dim r As Row = t.Rows(i)
    Dim sum As Double = 0
    For j As Integer = i To i+6
        sum += val(t.Rows(j)("第三列")) * val(t.Rows(j)("第四列"))
    Next
    r("第五列") = sum
Next

Dim t As Table = Tables("表B")
For i As Integer = 0 To t.Rows.Count - 7
    Dim r As Row = t.Rows(i)
    Dim sum As Double = 0
    For j As Integer = i*7 To i*7+6
        If j < t.Rows.Count - 1 Then
            sum += val(t.Rows(j)("第三列")) * val(t.Rows(j)("第四列"))
        End If
    Next
    r("第五列") = sum
Next

单独做一个按钮计算。

 

不明白你说的单独输出结果是什么意思，把计算好的全部值显示出来？

 上传表数据

Dim t As Table = Tables("柱上真空开关部件范围划分")
For i As Integer = 0 To t.Rows.Count - 7
    Dim r As Row = t.Rows(i)
    Dim sum As Double = 0
    Dim min As Double = r("部件最后得分Mp")
    Dim flag = True
    For j As Integer = i*7 To i*7+6
        If j < t.Rows.Count - 1 Then
            Dim cr As Row = t.Rows(j)
            sum += val(r("整体评价得分")) * val(r("Kp"))
            If r("部件最后得分Mp") < min Then
                min = r("部件最后得分Mp")
            End If
            If flag Then
                If r("部件评价结果") <> "正常状态" Then
                    flag = False
                End If
            End If
        End If
    Next
    If flag Then
        r("整体评价1") = sum
    Else
        r("整体评价1") = min
    End If
Next

 单独做一个按钮

 请上传一个正常的例子，打开你的项目有问题，请用试用版做一个例子发上来，然后说明要做什么效果。

23楼的例子，按照什么分组，最后什么效果