主题：请各位大师帮我解决这个难题

你好。我看了你设计的表，纵列显示正确。横行分数据不对。

说明一下！具体要求！

呵。闹不明白，给高手让道。

要求在第一期每个开奖号的后边写上第二期的开奖号，第三期又在第二期的开奖号后边写上开奖号。有重复时加1。

不明所以呀！
最好写出步骤来，每一个步骤跟踪表所发生的变化！（最好传上图－－步骤）

不然好多会做的易友看不明你所表达的意思而帮不了你呀！！！！！

egd文件下载
文件与图片是对应的，请你看看是不是表达清楚啦。

呵。。终于看明白了！！不过一点疑问是：跟踪表里面的三个5是怎一会事呀？？

明白要求就好办事！看一下合格不？

egd文件下载

-=-=-=- 以下内容由 gdlgh 在 2006年11月30日 11:54pm 时添加 -=-=-=-
SetBackColor(1,1,rows,1,16777215) And if([开奖号!Rows]=1,eval("SetBackColor(,"+Substitute(TRIM(cell([开奖号!Rows],[开奖号!Cols],"开奖号"))," ",",1,255) and SetBackColor(,")+",1,255)"),eval("SetBackColor(,"+Substitute(TRIM(cell([开奖号!Rows]-1,[开奖号!Cols],"开奖号"))," ",",1,255)"+"and"+" SetBackColor(,")+",1,255)"+"and"+" Setvariable(""%a%"",2) And" +" eval("+"mid(rept("" and Setvariable(""""%b%"""",Split("""""+eval("cell([开奖号!Rows]-1,[开奖号!Cols],""开奖号"")")+" """","""" """",[%a%]))" +"And move("+eval("Substitute(Substitute("""+eval("Format("""+Substitute(cell([开奖号!Rows]-1,[开奖号!Cols],"开奖号")," ","[%b%]")+""",""@@@@@ @@/@@@@@ @@/@@@@@ @@/@@@@@ @@/@@@@@ @@"")")+""","" "", "",""),""/"",""+1)and SetCellText(GridName,rowsel,colsel,cell(rowsel,colsel)+1) and move("")")+"+1)and SetCellText(GridName,rowsel,colsel,cell(rowsel,colsel)+1)"+"and Setvariable(""""%a%"""",[%a%]+1)"",5),5)"+")"))

大师还是有问题，第一期不需要跟踪，从第二期开始跟踪才对。表中我用红色标出的地方是第二期应该出现的地方。egd文件下载请你再看看。谢谢。

呵呵。。去掉公式最后的-1就行啦！（若你想跟那一期就改最后的-1就行啦，可变的）

egd文件下载

-=-=-=- 以下内容由 gdlgh 在 2006年12月01日 10:38am 时添加 -=-=-=-
SetBackColor(1,1,rows,1,16777215) And if([开奖号!Rows]=1,eval("SetBackColor(,"+Substitute(TRIM(cell([开奖号!Rows],[开奖号!Cols],"开奖号"))," ",",1,255) and SetBackColor(,")+",1,255)"),eval("SetBackColor(,"+Substitute(TRIM(cell([开奖号!Rows]-1,[开奖号!Cols],"开奖号"))," ",",1,255)"+"and"+" SetBackColor(,")+",1,255)"+"and"+" Setvariable(""%a%"",2) And" +" eval("+"mid(rept("" and Setvariable(""""%b%"""",Split("""""+eval("cell([开奖号!Rows]-1,[开奖号!Cols],""开奖号"")")+" """","""" """",[%a%]))" +"And move("+eval("Substitute(Substitute("""+eval("Format("""+Substitute(cell([开奖号!Rows],[开奖号!Cols],"开奖号")," ","[%b%]")+""",""@@@@@ @@/@@@@@ @@/@@@@@ @@/@@@@@ @@/@@@@@ @@"")")+""","" "", "",""),""/"",""+1)and SetCellText(GridName,rowsel,colsel,cell(rowsel,colsel)+1) and move("")")+"+1)and SetCellText(GridName,rowsel,colsel,cell(rowsel,colsel)+1)"+"and Setvariable(""""%a%"""",[%a%]+1)"",5),5)"+")"))