怎样用VBA划线更接近(公式结合VBA解决)

aroffice

有一组成绩,需要使用VBA划出总人数90%的分数线.
划出来的分数线计算出人数与比划出来的分数线高一些的分数计算人数,那个更接近总人数的90%就取哪个分数.如果一样就取低一些的分数.详见附件
我用公式模拟了一个结果.
比如:总人数有563人,计算出它的90%就是506人.
划定分数线为16.8,有513人,高一些的分数线17.1有505人,这时就取17.1这个分数
如果划定分数线为16.8,有517人,高一些的分数线17.1有476人,这时就取16.8这个分数.

划定线后,取比划定线大的最小数,与划定人数比相差数,那个更接近就取那个数.

[ 本帖最后由 aroffice 于 2010-11-18 17:00 编辑 ]

zez

用函数简单一点:
C3=IF(ABS(COUNTIF(A3:A1001,">="&LARGE(A3:A1001,INT(COUNT(A3:A1001)*0.9)))-INT(COUNT(A3:A1001)*0.9))>ABS(COUNTIF(A3:A1001,">="&LARGE(A3:A1001,INT(COUNT(A3:A1001)*0.9)-1))-INT(COUNT(A3:A1001)*0.9)),LARGE(A3:A1001,INT(COUNT(A3:A1001)*0.9)-1),LARGE(A3:A1001,INT(COUNT(A3:A1001)*0.9)))
如一定要用VBA :
Sub Macro1()
    Dim X, Y, Z
    Range("C3") = _
        "=LARGE(RC[-2]:R[998]C[-2],INT(COUNT(RC[-2]:R[998]C[-2])*0.9))"
    Range("C4") = "=COUNTIF(R[-1]C[-2]:R[997]C[-2],"">=""&R[-1]C)"
    X = Range("C4")
    Range("C3") = _
        "=LARGE(RC[-2]:R[998]C[-2],INT(COUNT(RC[-2]:R[998]C[-2])*0.9)-1)"
    Y = Range("C4")
    Range("C3") = "=INT(COUNT(RC[-2]:R[998]C[-2])*0.9)"
    Z = Range("C3")
    If Z - Y > X - Z Then
        Range("C3") = _
           "=LARGE(RC[-2]:R[998]C[-2],INT(COUNT(RC[-2]:R[998]C[-2])*0.9))"
    Else
        Range("C3") = _
           "=LARGE(RC[-2]:R[998]C[-2],INT(COUNT(RC[-2]:R[998]C[-2])*0.9))"
    End If
    Range("C3:C4").Value = Range("C3:C4").Value
End Sub

aroffice

有没有VBA 函数可以计算一个数组中大于 某一个数的个数有多少?
是不是一定要用for 循环也逐一比较呢?

[ 本帖最后由 aroffice 于 2010-6-18 22:04 编辑 ]

aroffice

这只是我模拟的数据,实际是有很多科的,而且需要划定90% ,30%,10%三个分数线的,都需要采用这种方法!

aroffice

项起来,帮我再看一看!