[已解决]求助！求班级中100分的学生名单！

WAYNE389543

如题，如附件

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2015-5-13 11:41

1. 
   
2. Public Function HeBinIf(rng As Range, rg As Range, Ite As Integer, str1 As String)  'rng 成绩所在区域，rg为姓名所在区域，ite为分数段的最小分数，str1为分割符号
   
3.     Dim arr, brr
   
4.     Dim iar, ibr
   
5.     Dim str
   
6.     arr = rng
   
7.     brr = rg
   
8.     For iar = 1 To UBound(arr)
   
9.         If arr(iar, 1) >= Ite And arr(iar, 1) < Ite + 10 Then
   
10.             str = str & brr(iar, 1) & str1
    
11.         End If
    
12.     Next
    
13.     HeBinIf = Left(str, Len(str) - 1)
    
14. End Function
    

复制代码

复制代码，ALT+F11 调出VBE编辑器，插入模块，代码复制进去，然后像输入函数那样就能调用这个自定义函数了

跳转到最佳答案楼层

Excel学徒123

要写到一个单元格吗？，还有一个问题，90分的是怎么算的，是指的区间吗？大于等于90小于100的那种都算90分吗？

WAYNE389543

Excel学徒123 发表于 2015-5-13 11:32
要写到一个单元格吗？

在一个里最好

Excel学徒123

WAYNE389543 发表于 2015-5-13 11:36
在一个里最好

还有一个问题，90分的是怎么算的，是指的区间吗？大于等于90小于100的那种都算90分吗？

qh8600

WAYNE389543 发表于 2015-5-13 11:36
在一个里最好

这个90分是含90分以上的吗

Excel学徒123

1. 
   
2. Public Function HeBinIf(rng As Range, rg As Range, Ite As Integer, str1 As String)  'rng 成绩所在区域，rg为姓名所在区域，ite为分数段的最小分数，str1为分割符号
   
3.     Dim arr, brr
   
4.     Dim iar, ibr
   
5.     Dim str
   
6.     arr = rng
   
7.     brr = rg
   
8.     For iar = 1 To UBound(arr)
   
9.         If arr(iar, 1) >= Ite And arr(iar, 1) < Ite + 10 Then
   
10.             str = str & brr(iar, 1) & str1
    
11.         End If
    
12.     Next
    
13.     HeBinIf = Left(str, Len(str) - 1)
    
14. End Function
    

复制代码

复制代码，ALT+F11 调出VBE编辑器，插入模块，代码复制进去，然后像输入函数那样就能调用这个自定义函数了

WAYNE389543

Excel学徒123 发表于 2015-5-13 11:41
复制代码，ALT+F11 调出VBE编辑器，插入模块，代码复制进去，然后像输入函数那样就能调用这个自定义函数了

函数不可以吗？这个我不懂，先研究研究，拜谢！

Excel学徒123

WAYNE389543 发表于 2015-5-13 11:47
函数不可以吗？这个我不懂，先研究研究，拜谢！

函数放不了一起去~~~

WAYNE389543

qh8600 发表于 2015-5-13 11:38
这个90分是含90分以上的吗

目前我的需求是求90分，稍后可能需要分数段内的人名

Excel学徒123

WAYNE389543 发表于 2015-5-13 11:48
目前我的需求是求90分，稍后可能需要分数段内的人名

只要90分的吗？  那更简单了啊。。。