初学vba求解答帮助

zzzxxxmmm

原来用函数公式做的成绩统计模板，，因为要随时修改比较的参数，例如达标线等等。公式要单元格每行修改，还容易错，眼睛都看花。所以想改成vba，想着应该不难，结果搞不定。初学不易啊，求高人出手。。谢谢，规则都在附件里，sheet1是我写的vba搞不出来，sheet2是要的结果的空表，sheet3是公式版的结果表。班主任列的判断是同年级列排名转换得分，语文数学英语政治历史地理物理化学生物是行排名转化得分。第一名得1分，第二名0.9，第三名0.8，第四名之后都是0.7，若果初中是全市班级总数的90%后则得0.6，高中则是95%后。

Sub 成绩得分()
Dim i As Integer, j As Integer
For i = 2 To 17
   For j = 16 To 24
        If Cells(i, j).Offset(i, -12).Value < Range("y" & i).Value * 0.9 Then
          Cells(i, j) = Application.Rank(Cells(i, j).Offset(i, -12), Range(Cells(i, 4), Cells(i, 12)), 1)
           ElseIf Cells(i, j).Value = 1 Then
                    Cells(i, j).Value = 1
                ElseIf Cells(i, j).Value = 2 Then
                    Cells(i, j).Value = 0.9
                ElseIf Cells(i, j).Value = 3 Then
                    Cells(i, j).Value = 0.8
                ElseIf Cells(i, j).Value >= 4 Then
                    Cells(i, j).Value = 0.7
                Else
             Cells(i, j).Value = 0.6

         End If
    Next j
Next i

For i = 18 To 32
   For j = 16 To 24
       If Cells(i, j).Offset(i, -12).Value < Range("y" & i).Value * 0.95 Then
          Cells(i, j) = Application.Rank(Cells(i, j).Offset(i, -12), Range(Cells(i, 4), Cells(i, 12)), 1)
           ElseIf Cells(i, j).Value = 1 Then
                    Cells(i, j).Value = 1
                ElseIf Cells(i, j).Value = 2 Then
                    Cells(i, j).Value = 0.9
                ElseIf Cells(i, j).Value = 3 Then
                    Cells(i, j).Value = 0.8
                ElseIf Cells(i, j).Value >= 4 Then
                    Cells(i, j).Value = 0.7
                Else
             Cells(i, j).Value = 0.6
         End If
    Next j
Next i

End Sub

zzzxxxmmm

求高手帮助哦，，，先谢谢了

renkangjizhen

将每行相关数据设为一个活动数组，用large函数得到第一名、第二名······值，用for循环和if判断并将得分填到相应单元格

3190496160

成绩分析，这些年研究的还是比较多的，但是，看不懂楼主的计算规则

山菊花

供参考。

zzzxxxmmm

我搞了一天，还是不行。。



Sub 成绩得分()
Dim i As Integer, j As Integer
For i = 2 To 17
   For j = 4 To 12
        If Cells(i, j).Value < Range("y" & i).Value * 0.9 Then
          Cells(i, j).Offset(0, 12) = Application.Rank(Cells(i, j), Range(Cells(i, 4), Cells(i, 12)), 1)
           'ElseIf Cells(i, j).Offset(0, 12).Value = 1 Then
                   ' Cells(i, j).Offset(0, 12).Value = 1
                'ElseIf Cells(i, j).Offset(0, 12).Value = 2 Then
                    'Cells(i, j).Offset(0, 12).Value = 0.9
                'ElseIf Cells(i, j).Offset(0, 12).Value = 3 Then
                    'Cells(i, j).Offset(0, 12).Value = 0.8
               ' ElseIf Cells(i, j).Offset(0, 12).Value >= 4 Then
                    'Cells(i, j).Offset(0, 12).Value = 0.7
                Else
             Cells(i, j).Offset(0, 12).Value = 0.6
         
         End If
    Next j
Next i

For i = 18 To 32
   For j = 4 To 12
       If Cells(i, j).Value < Range("y" & i).Value * 0.95 Then
             Cells(i, j).Offset(0, 12) = Application.Rank(Cells(i, j), Range(Cells(i, 4), Cells(i, 12)), 1)
           ElseIf Cells(i, j).Offset(0, 12).Value = 1 Then
                    Cells(i, j).Value = 1
                ElseIf Cells(i, j).Offset(0, 12).Value = 2 Then
                    Cells(i, j).Value = 0.9
                ElseIf Cells(i, j).Offset(0, 12).Value = 3 Then
                    Cells(i, j).Value = 0.8
                ElseIf Cells(i, j).Offset(0, 12).Value >= 4 Then
                    Cells(i, j).Value = 0.7
                Else
             Cells(i, j).Offset(0, 12).Value = 0.6
         End If
    Next j
Next i

End Sub

zzzxxxmmm

山菊花 发表于 2020-3-10 09:24
供参考。

厉害。。。。。学习了

zzzxxxmmm

山菊花 发表于 2020-3-10 09:24
供参考。

语文        数学        英语        政治        历史        地理        物理        化学        生物
0.9         0.7         0.7         0.7         0.9         1.0                         1.0
规则不对，比如初一1班的地理和生物，就不会是相等的分。应该是初一1班成绩横向比较，第一名得1分，第二名得0.9，第三名0.8，第四名及以后得0.7，

zzzxxxmmm

山菊花 发表于 2020-3-10 09:24
供参考。

规则不对，比如初一1班的地理和生物，就不会是相等的分。应该是初一1班成绩横向比较，第一名得1分，第二名得0.9，第三名0.8，第四名及以后得0.7，

zzzxxxmmm

3190496160 发表于 2020-3-10 09:07
成绩分析，这些年研究的还是比较多的，但是，看不懂楼主的计算规则

规则，表里的数据，比如初一1班的各科成绩平均分，在全市的排名。再在班级内比较，。即是初一1班成绩横向比较，第一名得1分，第二名得0.9，第三名0.8，第四名及以后得0.7，这个就是老师的教学得分。各科班内比较。这个规则是不怎么常见哦。