统计各班参加补考的人数
2010-04-01 12:07
253 查看
补考结束了,现在出现了一个问题,收的补考费与人数对不起来,按说根本不用我管,但本着学习的态度,还是帮他们一把吧,现在需要解决的问题是如何统计各班补考人数?本来想着用countif函数进行统计,但如果用countif函数的话只能涉及一个条件而现在需要统计的两个条件下的人数(即班级、补考标记),没见过多条件应用的例子。先附上countif函数的16种常用用法:
=COUNTIF(DATA,12)
2、返回包含负值的单元格数量
=COUNTIF(DATA,"<0")
3、返回不等于0的单元格数量
=COUNTIF(DATA,"<>0")
4、返回大于5的单元格数量
=COUNTIF(DATA,">5")
5、返回等于单元格A1中内容的单元格数量
=COUNTIF(DATA,A1)
6、返回大于单元格A1中内容的单元格数量
=COUNTIF(DATA,“>”&A1)
7、返回包含文本内容的单元格数量
=COUNTIF(DATA,“*”)
8、返回包含三个字符内容的单元格数量
=COUNITF(DATA,“???”)
9、返回包含单词"GOOD"(不分大小写)内容的单元格数量
=COUNTIF(DATA,“GOOD”)
10、返回在文本中任何位置包含单词"GOOD"字符内容的单元格数量
=COUNTIF(DATA,“*GOOD*”)
11、返回包含以单词"AB"(不分大小写)开头内容的单元格数量
=COUNTIF(DATA,“AB*”)
12、返回包含当前日期的单元格数量
=COUNTIF(DATA,TODAY())
13、返回大于平均值的单元格数量
=COUNTIF(DATA,">"&AVERAGE(DATA))
14、返回平均值上面超过三个标准误差的值的单元格数量
=COUNTIF(DATA,“>"&AVERAGE(DATA)+STDEV(DATA)*3)
15、返回包含值为或-3的单元格数量
=COUNTIF(DATA,3)+COUNIF(DATA,-3)
16、返回包含值;逻辑值为TRUE的单元格数量
=COUNTIF(DATA,TRUE)
源程序如下:
Sub 统计理科各班各科补考人数()
Dim i As Integer, j As Integer, MyRange As Range, k As Integer
Dim TotalR As Integer, bjh() As Double
Worksheets("补考名单加作弊标志理 (2)").Activate
TotalR = Range("A65536").End(xlUp).Row
For i = TotalR To 1 Step -1
If Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(TotalR, 1)), Cells(i, 1)) > 1 Then
Range(Cells(i, 1), Cells(i, 1)).EntireRow.Delete
End If
Next i
TotalR = Range("A65536").End(xlUp).Row
ReDim bjh(TotalR)
For i = 1 To TotalR - 1
bjh(i) = Cells(i + 1, 1).Value
Next i
Worksheets("补考名单加作弊标志理").Activate
For i = 1 To TotalR - 1
k = 0
For j = 1 To 6
For Each MyRange In Range(Cells(2, j + 2), Cells(147, j + 2))
If MyRange.Offset(0, -j - 1).Value = bjh(i) And MyRange.Value = "F" Then
k = k + 1
End If
Next MyRange
Next j
Debug.Print bjh(i) & "班需补考科次为:" & k
Next i
End Sub
今天你菊子曰了么?
COUNTIF函数的16种公式设置
1、返加包含值12的单元格数量=COUNTIF(DATA,12)
2、返回包含负值的单元格数量
=COUNTIF(DATA,"<0")
3、返回不等于0的单元格数量
=COUNTIF(DATA,"<>0")
4、返回大于5的单元格数量
=COUNTIF(DATA,">5")
5、返回等于单元格A1中内容的单元格数量
=COUNTIF(DATA,A1)
6、返回大于单元格A1中内容的单元格数量
=COUNTIF(DATA,“>”&A1)
7、返回包含文本内容的单元格数量
=COUNTIF(DATA,“*”)
8、返回包含三个字符内容的单元格数量
=COUNITF(DATA,“???”)
9、返回包含单词"GOOD"(不分大小写)内容的单元格数量
=COUNTIF(DATA,“GOOD”)
10、返回在文本中任何位置包含单词"GOOD"字符内容的单元格数量
=COUNTIF(DATA,“*GOOD*”)
11、返回包含以单词"AB"(不分大小写)开头内容的单元格数量
=COUNTIF(DATA,“AB*”)
12、返回包含当前日期的单元格数量
=COUNTIF(DATA,TODAY())
13、返回大于平均值的单元格数量
=COUNTIF(DATA,">"&AVERAGE(DATA))
14、返回平均值上面超过三个标准误差的值的单元格数量
=COUNTIF(DATA,“>"&AVERAGE(DATA)+STDEV(DATA)*3)
15、返回包含值为或-3的单元格数量
=COUNTIF(DATA,3)+COUNIF(DATA,-3)
16、返回包含值;逻辑值为TRUE的单元格数量
=COUNTIF(DATA,TRUE)
源程序如下:
Sub 统计理科各班各科补考人数()
Dim i As Integer, j As Integer, MyRange As Range, k As Integer
Dim TotalR As Integer, bjh() As Double
Worksheets("补考名单加作弊标志理 (2)").Activate
TotalR = Range("A65536").End(xlUp).Row
For i = TotalR To 1 Step -1
If Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(TotalR, 1)), Cells(i, 1)) > 1 Then
Range(Cells(i, 1), Cells(i, 1)).EntireRow.Delete
End If
Next i
TotalR = Range("A65536").End(xlUp).Row
ReDim bjh(TotalR)
For i = 1 To TotalR - 1
bjh(i) = Cells(i + 1, 1).Value
Next i
Worksheets("补考名单加作弊标志理").Activate
For i = 1 To TotalR - 1
k = 0
For j = 1 To 6
For Each MyRange In Range(Cells(2, j + 2), Cells(147, j + 2))
If MyRange.Offset(0, -j - 1).Value = bjh(i) And MyRange.Value = "F" Then
k = k + 1
End If
Next MyRange
Next j
Debug.Print bjh(i) & "班需补考科次为:" & k
Next i
End Sub
今天你菊子曰了么?
相关文章推荐
- 全国历年参加高考人数和录取人数统计(1977-2009)
- 网站在线人数以及历史访问人数的统计代码
- 实现在线人数统计
- 统计在线人数和所在位置
- js统计网站历史浏览人数
- servlet监听实现统计在线人数功能 附源码下载
- 统计web应用程序的访问人数
- 解决cobub razor 统计没有人数
- VS2005下实现asp.net在线人数的统计
- oracle 统计每月累积购买人数
- 实现网站访问人数统计
- java 统计网站访问量&在线人数
- SQL分页法和统计在线人数
- 关于补考学生统计
- .Net如何统计在线人数
- PHP+Memcache统计当前在线人数
- hdu-1235 统计同成绩学生人数
- 如何统计在线人数
- SQL语句:统计男女的人数
- 用java统计网站在线人数