| 以文本方式查看主题 - 易表在线答疑 (http://egrid2000.com/dvbbs/index.asp) -- 用户社区 (http://egrid2000.com/dvbbs/list.asp?boardid=2) ---- [求助]数据统计问题。谢谢 (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=2274) |
| -- 作者：春夏秋冬 -- 发布时间：2011/6/24 10:34:00 -- [求助]数据统计问题。谢谢 给您添麻烦了，谢谢。egd文件下载 -=-=-=- 以下内容由 春夏秋冬 在 2011年06月24日 00:25pm 时添加 -=-=-=- 统计项目是对“数值”从小到大排列。 |
| -- 作者：还不错 -- 发布时间：2011/6/24 11:08:00 -- 没看明白。 |
| -- 作者：don -- 发布时间：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 -- 发布时间：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 -- 发布时间：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(".") |