初中体育成绩转换

××××

各位：根据评分标准，能否实现性别、项目变了，能否实现测试成绩转换成分数。

liulang0808

Sub 按钮1_Click()
    arr = Sheets(1).UsedRange
    brr = Sheets(2).UsedRange
    For j = 2 To UBound(brr)
        For i = 7 To UBound(brr, 2) Step 3
            If Len(brr(j, i - 1)) > 0 Then
                For k = 2 To UBound(arr, 2) Step 2
                    If InStr(arr(1, k), brr(j, i - 2)) > 0 Then
                        If InStr(arr(2, k), brr(j, 3)) > 0 Then
                            c = k
                        Else
                            c = k + 1
                        End If
                        For m = 3 To UBound(arr)
                            If InStr(arr(1, k), "秒") = 0 Then
                                If Val(brr(j, i - 1)) >= Val(arr(m, c)) Then
                                    brr(j, i) = arr(m, 1)
                                    Exit For
                                End If
                            Else
                                If Val(brr(j, i - 1)) <= Val(arr(m, c)) Then
                                    brr(j, i) = arr(m, 1)
                                    Exit For
                                End If
                            End If
                        Next m
                        Exit For
                    End If
                Next k
            End If
        Next i
    Next j
    Sheets(2).UsedRange = brr
End Sub

liulang0808

供参考。。。。。。。。。。。。

Yalishanda30

同一个问题发2次贴，浪费资源

××××

liulang0808 发表于 2023-4-9 10:48
供参考。。。。。。。。。。。。

问题已经解决，谢谢！如果测试项目要加一列中长跑，评分标准一样加一列请问如何修改代码？谢谢！

liulang0808

×××× 发表于 2023-4-9 15:00
问题已经解决，谢谢！如果测试项目要加一列中长跑，评分标准一样加一列请问如何修改代码？谢谢！

按照前的格式继续增加就可以了‘
楼主可以测试看看

xyxcc177

----------------