易表在线答疑技术与交流用户社区 → [求助]数据统计问题。谢谢


  共有6932人关注过本帖树形打印复制链接

主题:[求助]数据统计问题。谢谢

帅哥哟,离线,有人找我吗?
春夏秋冬
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:68 积分:435 威望:0 精华:0 注册:2007/6/3 19:32:00
[求助]数据统计问题。谢谢  发帖心情 Post By:2011/6/24 10:34:00 [只看该作者]

给您添麻烦了,谢谢。egd文件下载

-=-=-=- 以下内容由 春夏秋冬2011年06月24日 00:25pm 时添加 -=-=-=-
统计项目是对“数值”从小到大排列。

 回到顶部
帅哥哟,离线,有人找我吗?
还不错
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:火箭侠 帖子:1937 积分:283 威望:0 精华:0 注册:2006/8/12 9:40:00
  发帖心情 Post By:2011/6/24 11:08:00 [只看该作者]

没看明白。

 回到顶部
帅哥哟,离线,有人找我吗?
don
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:35 积分:80 威望:0 精华:0 注册:2011/6/4 17:54:00
  发帖心情 Post By:2011/6/25 8:43:00 [只看该作者]

[这个贴子最后由don在 2011/06/25 05:32pm 第 1 次编辑]

EvalFor("表1",20,"If(CreateGrid(""A""+Text(Row),""A1"",1) And AddRows(grids,2) And Eval(""EvalFor(grids,1,""""Cell(""+Text(row)+"",Row,""""""""表1"""""""")"""")"")And SortCol(Grids,1,1),[統計_9],[統計_9])") AndSetVariable("%n%",1) and loop("1=1","SetColFormula(Grid,10 + [%n%],""cell(Col-10,1,Row+1)"")And RecalcCol(Grid,10 + [%n%]) And SetColFormula(Grid,10 + [%n%],"""") And SetVariable(""%n%"",[%n%]+1)",10)And Eval(Mid(Rept(" And RemoveGrid(Grids)",Rows),5))

 回到顶部
帅哥哟,离线,有人找我吗?
don
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:35 积分:80 威望:0 精华:0 注册:2011/6/4 17:54:00
  发帖心情 Post By:2011/6/25 8:44:00 [只看该作者]

0碼位置的刷新公式

If([數值_0]=0,0,If([數值_1]=0,1,If([數值_2]=0,2,If([數值_3]=0,3,If([數值_4]=0,4,If([數值_5]=0,5,If([數值_6]=0,6,If([數值_7]=0,7,If([數值_8]=0,8,If([數值_9]=0,9,""))))))))))


 回到顶部
帅哥哟,离线,有人找我吗?
Don
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:35 积分:80 威望:0 精华:0 注册:2011/6/4 17:54:00
  发帖心情 Post By:2011/6/26 8:36:00 [只看该作者]

给个高效些的:
DelFor(Grid,1, "=" ,"") And CreateGrid(".","A",1,"B",1,"C",1) And AddRows(grids,10 * Rows-8) And EvalFor(grids,1,"-Int(-Row/10)") And EvalFor(grids,2,"If(Mod(Row,10) = 0,10,Mod(Row,10) )") And EvalFor(grids,3,"Cell([A],[B],""表1"")") And SortCol(Grids,3,1)And SortCol(Grids,1,1) And Eval("EvalFor(grid,"+ Substitute(Substitute("1@1|2@2|3@3|4@4|5@5|6@6|7@7|8@8|9@9|10@10","|",")"") and EvalFor(grid,"),"@","+10,""FindText(grids,3,1, """"="""" ,Row,") + ")"")") And RemoveGrid(".")

 回到顶部