教育应用贴（分班、统计、课表等）1142楼添加运动会成绩统计表20121215

libaoshui · 发表于 2010-10-20 09:12

谢谢总结，收入囊中。

lhx120824 · 发表于 2010-10-22 09:15

看了胡讲师的讲解，终于算是理解了求不重复的原理

不重复原理的体会20101022.rar (9.35 KB, 下载次数: 223)
用的公式是
=IFERROR(INDEX（数组,SMALL(IF(MATCH(数组,数组,0)=ROW(1:6),ROW(1:6),4^8),ROW(1:6))),"")
不重复2.gif

[ 本帖最后由 lhx120824 于 2010-10-22 09:25 编辑 ]

韩江河畔 · 发表于 2010-10-22 22:51

真是利害。

lhx120824 · 发表于 2010-10-24 13:26

求解自然数的不重复方法：
http://club.excelhome.net/viewth ... p;extra=&page=1
基本的方法：
=SMALL(IF(FREQUENCY(A1:A8,A1:A8),A1:A8),ROW(1:5))

=INDEX($A$1:$A$8,SMALL(IF(ROW($A$1:$A$8)=MATCH($A$1:$A$8,$A$1:$A$8,),ROW($A$1:$A$8),""),ROW(A1)))

lilinwu88 · 发表于 2010-10-24 14:53

好历害，学习了，

lcbnyn · 发表于 2010-10-24 16:11

我有一问题：按要求输出的打印代码如何完善
以下是我照书写的一段代码，想根据输入的班级代码得到相应的输出。问题是输入班级代码（比如“1”）回车后，不仅输出编号首位为“1”的，其他首位（比如“2”、“3”）也全输出了。如何修正？
Private Sub CommandButton3_Click()
Range("c:n").Select
Selection.EntireColumn.Hidden = True
Dim bj, i, j
bj = InputBox("请选择打印班级：")
  If bj = 1 Then
i = Range("a:a").Find("101").Row
j = Application.WorksheetFunction _
   .Match("199", Worksheets(2).Range("a:a"), "101")
Range("a1", "am" & j).Select
ElseIf bj = 2 Then
i = Range("a:a").Find("201").Row
j = Application.WorksheetFunction _
      .Match("299", Worksheets(2).Range("A:A"), "201")
Union(Range("a" & i, "am" & j), Range("a1:am2")).Select
ElseIf bj = 3 Then
i = Range("a:a").Find("301").Row
j = Application.WorksheetFunction _
      .Match("399", Worksheets(2).Range("A:A"), "301")
Union(Range("a" & i, "am" & j), Range("a1:am2")).Select
End If
PrintOut (bj)
Range("c:n").Select
Selection.EntireColumn.Hidden = False
End Sub
应如何修改（首位即为班级代码）？另如果再增加一个输出条件：输出时最好能按AM例的总分降序排列。不知可否做到？
谢谢！

[ 本帖最后由 lcbnyn 于 2010-10-24 16:13 编辑 ]

lilinwu88 · 发表于 2010-10-24 21:10

我们学校导出的原始表不同，怎么才能做出一样的效果呢？麻烦了，谢谢了，

课表资料.rar (18.77 KB, 下载次数: 103)

lhx120824 · 发表于 2010-10-24 23:19

原帖由 lilinwu88 于 2010-10-24 21:10 发表
我们学校导出的原始表不同，怎么才能做出一样的效果呢？麻烦了，谢谢了，812831

你把两种导出表都给我导出来，还有你想做成什么样的查询表，这要需要给你研究后按照需要来设计。是个功夫活，我给你试试看吧，这需要时间。

lhx120824 · 发表于 2010-10-24 23:21

原帖由 lcbnyn 于 2010-10-24 16:11 发表
我有一问题：按要求输出的打印代码如何完善
以下是我照书写的一段代码，想根据输入的班级代码得到相应的输出。问题是输入班级代码（比如“1”）回车后，不仅输出编号首位为“1”的，其他首位（比如“2”、“3”）也 ...

对不起了，我对vba还没有接触，请到vba板块求助吧。

lhx120824 · 发表于 2010-10-25 01:59

取重复值的方法之一（最多只能重复一次的）公式：
=IFERROR(INDEX(A2:A15,SMALL(IF((MATCH(A2:A15,A2:A15,0))=ROW(1:14),"",MATCH(A2:A15,A2:A15,0)),ROW(1:14))),"")

取重复内容.rar (4.71 KB, 下载次数: 181)

		自动登录	找回密码
密码			免费注册

[分享] 教育应用贴（分班、统计、课表等）1142楼添加运动会成绩统计表20121215

洪沟学校的太好了，职业学校的课表也能这样做吗？