[已解决]求助：告急..告急.......统计分析（修改错误紧急处理）

long826121

首先非常感谢各位的关注和帮助，你们辛苦了！非常感谢
附件(附件中有代码，只不过我测试不成功)：（注意说明：要测试成功，注意事项请说明清楚！） 统计分析.rar (39.24 KB, 下载次数: 22)

2012-6-29 19:58 上传

点击文件名下载附件
错误显示：

最佳答案

月排行榜 / 总排行榜

djyjysxxs

2012-7-1 11:25

mycondition = "where " & 学科.Value
If 比较符.Value = "between" Then
   mycondition = mycondition & " between " & 条件1.Value & " and " & 条件2.Value
Else
   mycondition = mycondition & 比较符.Value & 条件1.Value
End If
……
    mysql = "select 学号,姓名,性别," & 学科.Value & " from [" & Worksheets(i).Name & "$] " & mycondition & " order by " & 学科.Value & " DESC"
……
mysql = "select 学号,姓名,性别," & 学科.Value & " from [" & 选择年级.Value & Space(1) & 选择班级.Value & "$] " & mycondition & " order by  " & 学科.Value & " DESC"

跳转到最佳答案楼层

隐身

童鞋，这不能叫分析，叫查询和写入查询结果到工作表。

基本思路是，判断成绩是否在范围，如果是，则将同行相关数据复制到表中。

太晚了，不写代码

long826121

隐身 发表于 2012-6-29 00:44
童鞋，这不能叫分析，叫查询和写入查询结果到工作表。

基本思路是，判断成绩是否在范围，如果是，则将同 ...

有时间就修改下代码，让它实现，非常感谢！
最好的说明具体注意事项！

无聊的疯子

工作表数据源最好修改一下,一班一表虽好看,但是做统计的时候却是一个麻烦事  
在记事本用笔写的方法,用到电脑里, 就成了中看不中用的数据源了!


原因分析:
1:年级选择,需要循环工作表,同时拆分工作表名称才能得到,班级也是一样的
2:选择年级后,继续循环工作表,同时拆分工作表名称才能得到班级名称  (最后他们两个是一个工作表,倒也方便指定位置查数据了)

3:选择班级后,到指定的工作表中查找 学科,不同年级的学科应该有不相同的吧??


如果将数所有年级的据源放到一个工作表中,可以直接使用 高级筛选,就能把结果找出来,很省事的方法呢

long826121

无聊的疯子 发表于 2012-6-29 08:07
工作表数据源最好修改一下,一班一表虽好看,但是做统计的时候却是一个麻烦事  
在记事本用笔写的方法,用到电 ...

谢谢你的指点，我明白你的意思，但我是想运行里面的vba来实现。只需修改代码的

long826121

各位看看错误在哪里？修改下！非常感谢

djyjysxxs

从你的图可见：第一个“数学”后少个空格，是from而不是form，where和数学之间少个空格，数学和DESC之间少个空格

long826121

djyjysxxs 发表于 2012-7-1 07:56
从你的图可见：第一个“数学”后少个空格，是from而不是form，where和数学之间少个空格，数学和DESC之间少个 ...

我修改了下，但还是有错误，帮我看看怎么回事，非常感谢！
错误：
附件： 统计分析.rar (43.85 KB, 下载次数: 13)

2012-7-1 09:18 上传

点击文件名下载附件

djyjysxxs

mycondition = "where " & 学科.Value
If 比较符.Value = "between" Then
   mycondition = mycondition & " between " & 条件1.Value & " and " & 条件2.Value
Else
   mycondition = mycondition & 比较符.Value & 条件1.Value
End If
……
    mysql = "select 学号,姓名,性别," & 学科.Value & " from [" & Worksheets(i).Name & "$] " & mycondition & " order by " & 学科.Value & " DESC"
……
mysql = "select 学号,姓名,性别," & 学科.Value & " from [" & 选择年级.Value & Space(1) & 选择班级.Value & "$] " & mycondition & " order by  " & 学科.Value & " DESC"

long826121

请教别人给我的另一种解决方法：
If 比较符.Value = "between" Then
   mycondition = mycondition & "between" & 条件1.Value & " and " & 条件2.Value
Else
   mycondition = mycondition & " " & 比较符.Value & " " & Val(条件1.Value)
.........................
    mysql = "select 学号,姓名,性别," & 学科.Value & "form [" & Worksheets(i).Name & "$] " & mycondition & " order by " & 学科.Value & "DESC"
.............................
        mysql = "select 学号,姓名,性别," + 学科.Value & " from [" & 选择年级.Value & Space(1) & 选择班级.Value & "$] " & mycondition & " order by " & 学科.Value & " DESC"