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

已搞定！
egd文件下载

-=-=-=- 以下内容由 gdlgh 在 2006年11月30日 02:25am 时添加 -=-=-=-
SetBackColor(1,1,rows,1,16777215) And if([开奖号!Rows]=1,eval("SetBackColor(,"+Substitute(cell([开奖号!Rows],[开奖号!Cols],"开奖号")," ",",1,255) and SetBackColor(,")+",1,255)"),eval("eval("+"""SetBackColor(,"+Substitute(cell([开奖号!Rows]-1,[开奖号!Cols],"开奖号")," ",",1,255)""+"+" ""and""+"+" ""SetBackColor(,")+",1,255)"""+"+"+"""and""+"+" ""move""+Format(rept("""+Substitute(cell([开奖号!Rows]-1,[开奖号!Cols],"开奖号")," ",""",2),""(@@,@@"")+""+1)""+"+" ""And""+"+" ""SetCellText(GridName,rowsel,colsel,cell(rowsel,colsel)+1)""+"" And ""+"+" ""move""+format(rept(""")+""",2),""(@@,@@"")+""+1)"""+"+"+"""And"""+"+"+Char(34)+"SetCellText(GridName,rowsel,colsel,cell(rowsel,colsel)+1)"+Char(34)+")"))

-=-=-=- 以下内容由 gdlgh 在 2006年11月30日 02:28am 时添加 -=-=-=-
增加数据，切换到跟踪表，就见到效果啦！

呵。去掉公式最后的-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)"+")"))

呵呵。。去掉公式最后的-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)"+")"))

谢班竹夸奖！其实班竹比我高出几个级数呢！呵。。
我也是这两天才搞懂的！：）

-=-=-=- 以下内容由 gdlgh 在 2006年12月01日 11:22am 时添加 -=-=-=-
在此也谢楼主出了个好题让我练习！谢！

-=-=-=- 以下内容由 gdlgh 在 2006年12月01日 11:26am 时添加 -=-=-=-
也谢过tzszw兄贴出涂鸦先生的公式让我参考！谢！

晕。。。。。。。。。。。。。。。。。