较难的成绩统计代码求助

hedgehog93 · 发表于 2013-3-7 08:54

mjzxlmg 发表于 2013-2-26 09:35
造成错误的原因是考虑不周全，设定输出结果的数组行数不够，为了保险设定为大一点，即原数据的行数*科目数， ...

大哥，我找到一条自动删除0分为空的语句。你看这样行不行？

复制代码

Range(Columns(4), Columns(total_column)).Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False '自动删除4-最后列的0分

mjzxlmg · 发表于 2013-3-7 10:02

hedgehog93 发表于 2013-3-7 08:54
Range(Columns(4), Columns(total_column)).Replace What:="0", Replacement:="", LookAt:=xlWhole, Sear ...

上面代码不用删除0分，照样统计呀，何必要删除呢。

沉潜 · 发表于 2013-3-9 11:21

本帖最后由沉潜于 2013-3-9 11:28 编辑

mjzxlmg 发表于 2012-10-11 13:55
在原有基础上增加了按学科导出、各删除导出工作表的功能。

测试附件：

老师你好，我若把年级列的“八或九”替换成数字“2013或2014”则运行错误，请问怎样修改呀，冒昧问下，能把你OO透露下，好直接请教^_^

mjzxlmg · 发表于 2013-3-9 12:04

本帖最后由 mjzxlmg 于 2013-3-9 12:06 编辑

沉潜发表于 2013-3-9 11:21
老师你好，我若把年级列的“八或九”替换成数字“2013或2014”则运行错误，请问怎样修改呀，冒昧问下，能 ...

可能是因为原来的八、九程序判断为字符，而用2013、2014判断为数值。
可在排名ＣＯＤＥ中，把arr_in(rowi,1)改为cstr(arr_in(rowi,1))试试。
也可把附件发上来看看。

沉潜 · 发表于 2013-3-9 15:39

本帖最后由沉潜于 2013-3-10 21:24 编辑

mjzxlmg 发表于 2013-3-9 12:04
可能是因为原来的八、九程序判断为字符，而用2013、2014判断为数值。
可在排名ＣＯＤＥ中，把arr_in(row ...

我在根据你的添加按班和按科导出，但问题很多，麻烦你帮查找下原因，还有就是多点一下“查询”就报错

Arr_in(i, 2) 列为2018 2017 2016 2015 2014 2013的数字
Arr_in(1, j) 行为语文数学英语等学科的文本项
Grade_dic(Arr_in(i, 2))(Arr_in(1, j)) = ""
ComboBox1.List=Grade_dic.keys
brr = Grade_dic(ComboBox1.Text).keys  这里报错,若改成brr = Grade_dic(Val（ComboBox1.Text)）.keys 则能通过
ComboBox2 .List = brr
2018 2017 2016 2015 2014 2013等作为关键字为何要转换呢，这样就算能通过，但在按班导出时这里也报错。

刚才又试了下，把年级列的数字换成文本后就基本没问题（除查询任课教师处报错外（原因没找到））

沉潜 · 发表于 2013-3-9 23:12

mjzxlmg 发表于 2013-3-9 12:04
可能是因为原来的八、九程序判断为字符，而用2013、2014判断为数值。
可在排名ＣＯＤＥ中，把arr_in(row ...

老师，有看吗？

mjzxlmg · 发表于 2013-3-10 09:10

沉潜发表于 2013-3-9 23:12
老师，有看吗？

正在弄呢。

沉潜 · 发表于 2013-3-10 09:28

mjzxlmg 发表于 2013-3-10 09:10
正在弄呢。

谢谢，纯新手，因工作需要，在你指点的基础上添了些，冒出的问题一直没查出原因。

沉潜 · 发表于 2013-3-10 11:17

mjzxlmg 发表于 2013-3-10 09:10
正在弄呢。

老师，真是谢谢你的关注。这个也是根据别人的修改而来，我才摸索vba,不是很理解，还烦请你帮忙：
里面有几句代码不是很理解：
1、 Grade_dic(Arr_in(i, 2))(Arr_in(1, j)) = ""这里是把年级和考试成绩的科目都放入字典  但 ComboBox1.List = Grade_dic.keys 中为何只有年级了（ComboBox1也只需要年级）
2、 brr = Grade_dic(CInt(ComboBox1.Text)).keys
   With ComboBox2
      .Style = fmStyleDropDownCombo
      .List = brr
      .ListIndex = 0
      .Style = fmStyleDropDownList
   End With
这里ComboBox1.Text值的类型为何要转换呀

mjzxlmg · 发表于 2013-3-10 14:28

沉潜发表于 2013-3-10 11:17
老师，真是谢谢你的关注。这个也是根据别人的修改而来，我才摸索vba,不是很理解，还烦请你帮忙：
里面有 ...

业绩统计.rar (172.08 KB, 下载次数: 71)

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

[求助] 较难的成绩统计代码求助