请问按班级排名次怎么排呢

[此贴子已经被作者于2016-12-9 09:17编辑过]

以前大神的排名程序有
fun_wk("总分","班级排名")

function fun_wk(科目,排名)
  SET ORDER TO (科目)
    T=0
    MC=1  &&名次
    YH=1  &&序号
 SCAN
  IF evaluate(科目) !=T
    T=EVALUATE(科目)
    MC=YH
  ENDIF
  REPLACE (排名) WITH MC
  YH=YH+1

END SCAN



ENDFUNC

排名次的规则是什么
分数相同是不是名次相同

[此贴子已经被作者于2016-12-9 09:17编辑过]

按总分排序，以班级分组，从1开始，同分同名次

Sub 按钮1_Click()
'先按班级排序(ASC)，再按总分排序（DESC)
m = [a65536].End(xlUp).Row
a = Range("a1:f" & m)

        t = 1     '名次的值
        For i = 2 To m
       If Cells(i - 1, 5) <> Cells(i, 5) Then    '假如不同分，排名增加1
        Cells(i, 6) = t
        Else
         Cells(i, 6) = Cells(i - 1, 6)  '同分为上一次的
       End If
          t = t + 1      ‘值增加1
         
        
          If Cells(i, 1) <> Cells(i + 1, 1) Then      ’如果班级列 发生改变，即分班了
            t = 1
          End If
        Next
      
   

End Sub
这是我写的VBA代码，在EXCEL中用的

EXCEL的VBA中不需要自己写排序的代码，只要将RANK（）函数公式写到单元格中就解决了

回复楼上：
RANK可以按班分组吗？，一个一个选区域，那得多费事，100多个班呢

公式也可用VBA自动写入的

upda tblclass_1 set 班级排名=0
clos tabl
USE tblclass_1
INDEX on 班名称+STR(1000-总分) TO bjzf 
GO TOP
  DO whil NOT EOF()
    nbj=班名称
    i=1
    j=1
    DO whil NOT EOF() AND 班名称=nbj  
     nzf=总分
     REPLACE 班级排名 WITH i
     j=0                          
   DO whil NOT EOF() AND 班名称=nbj AND 总分=nzf      
     REPLACE 班级排名 WITH i
     j=j+1  
    SKIP 
    ENDDO
    i=i+j                         
   ENDDO
  ENDDO  

真快啊，VF大坛能人多