主题：发帖求助，如何找出每个年级的最低分

项目如附件

问题：想找出每所学校各个年级的最低分，请高手指教！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目107.table

 代码如下。

Dim prevClass As String = "一年级"
Dim min As Double = Double.MaxValue
For Each r As Row In Tables("Sheet3").Rows
    For Each c As Col In Tables("Sheet3").Cols
        If c.Name Like "?年级_*" Then
            If c.Name.SubString(0, 3) <> prevClass Then
                msgbox(r("学校") & " " & prevClass & " " & min)
                prevClass = c.Name.SubString(0, 3)
                min = Double.MaxValue
            Else
                If r(c.Name) < min Then min = r(c.Name)
            End If
        End If
    Next
Next

灰常感谢，假如第一个“一年级”不固定呢，还需要遍历吗

 你根据固定的规律弄一下吧，只能判断列名了。

滨海小学二年级的最低分应该是83.5，代码给出的是85

 嗯嗯，是的，代码写错了。

Dim prevClass As String = "一年级"
Dim min As Double = Double.MaxValue
For Each r As Row In Tables("Sheet3").Rows
    For Each c As Col In Tables("Sheet3").Cols
        If c.Name Like "?年级_*" Then
            If c.Name.SubString(0, 3) <> prevClass Then
                msgbox(r("学校") & " " & prevClass & " " & min)
                prevClass = c.Name.SubString(0, 3)
                min = Double.MaxValue        
            End If
            If r(c.Name) < min Then min = r(c.Name)          
        End If
    Next
Next

如果要用drawcell标示出来，要怎么改呢，请帮忙看下

 如下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目107.table