主题：统计个数

如何在同一行(第25列）中统计（3-23列）非空单元格中（）的个数？

循环一下就可以了

方法一：

 

Dim t As Table = Tables("表A")
For i As Integer = 2 To 22
    msgbox(t.Cols(i).name)
Next

 

方法二：

 

Dim t As Table = Tables("表A")
For Each c As Col In t.Cols
    If c.name Like "*第*" Then
        msgbox(c.name)
    End If
Next

 

此主题相关图片如下：01.bmp

此主题相关图片如下：01.bmp

Dim t As Table = Tables("表A")

Dim r As Row = t.Current

Dim sum As Double = 0
For Each c As Col In t.Cols
    If c.name Like "*第*" Then
       
        If r(c.name) = "总分" Then sum += 3
       
        If r(c.name) = "卫生" OrElse r(c.name) = "纪律" OrElse r(c.name) = "两操" Then sum += 2
    End If
Next

r("总分") = sum

这样一次只能统计一行，能否批量一次处理选中的多行

Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
    Dim sum As Double = 0
    For Each c As Col In t.Cols
        If c.name Like "*第*" Then
           
            If r(c.name) = "总分" Then sum += 3
           
            If r(c.name) = "卫生" OrElse r(c.name) = "纪律" OrElse r(c.name) = "两操" Then sum += 2
        End If
    Next
   
    r("总分") = sum
Next

谢谢