易表在线答疑 → 技术与交流 → 用户社区 → 请各位大师帮我解决这个难题


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

主题：请各位大师帮我解决这个难题
帅哥哟，离线，有人找我吗？
gdlgh
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：职业侠客 帖子：449 积分：-10 威望：0 精华：0 注册：2006/8/27 12:47:00 		  发帖心情 Post By：2006/12/1 23:15:00 [显示全部帖子]

呵。。就改两个地方而已！！

egd文件下载


 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：职业侠客 帖子：449 积分：-10 威望：0 精华：0 注册：2006/8/27 12:47:00 		  发帖心情 Post By：2006/12/2 10:58:00 [显示全部帖子]

录入开奖数据的格式不对！应录入两位数的！！
你改为：02 03 04 00 这种格式试下！

 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：职业侠客 帖子：449 积分：-10 威望：0 精华：0 注册：2006/8/27 12:47:00 		  发帖心情 Post By：2006/12/5 17:51:00 [显示全部帖子]

呵。你已在跟踪表加多了0列0行,计算的数字已变！当然出错啦！

已帮你改好了！

egd文件下载

-=-=-=- 以下内容由 gdlgh 在 2006年12月05日 05:52pm 时添加 -=-=-=-
SetBackColor(1,1,rows,1,16777215) And if([开奖号!Rows]=1,eval("SetBackColor(,"+Substitute(TRIM(cell([开奖号!Rows],[开奖号!Cols],"开奖号"))," ","+1,1,255) and SetBackColor(,")+"+1,1,255)"),eval("SetBackColor(,"+Substitute(TRIM(cell([开奖号!Rows]-1,[开奖号!Cols],"开奖号"))," ","+1,1,255)"+"and"+" SetBackColor(,")+"+1,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,""),""/"",""+2)and SetCellText(GridName,rowsel,colsel,cell(rowsel,colsel)+1) and move("")")+"+2)and SetCellText(GridName,rowsel,colsel,cell(rowsel,colsel)+1)"+"and Setvariable(""""%a%"""",[%a%]+1)"",3),5)"+")"))

-=-=-=- 以下内容由 gdlgh 在 2006年12月05日 05:55pm 时添加 -=-=-=-
只是在公式行+1列+1就行啦！
以后若修改的话，增一行就基础数加1，增一列就基础数加1！


 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：职业侠客 帖子：449 积分：-10 威望：0 精华：0 注册：2006/8/27 12:47:00 		  发帖心情 Post By：2006/12/5 22:16:00 [显示全部帖子]

恭喜！
呵。现在你是考我呀！出这些难题给我做呀！！

 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：职业侠客 帖子：449 积分：-10 威望：0 精华：0 注册：2006/8/27 12:47:00 		  发帖心情 Post By：2006/12/5 23:16:00 [显示全部帖子]

现无什么时间！，就用文字说明一下怎样做吧！

其实可以用FindrRow返回开奖号在跟踪表中的行号，用rept重复出各个开奖号的两个行号数字，用format格式出以前那样的数字格式，再替换成以前的公式就可以了！

重点：就是返回连续的数字格式，而使变量起作用！

建议：以后若使用变量的话，最好定义带有数字格式的变量名，因为表的列、行与数字有很大的关联，从而使变量能灵活地发挥它的作用！当然你要知用什么来配合使用变量！！
 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：职业侠客 帖子：449 积分：-10 威望：0 精华：0 注册：2006/8/27 12:47:00 		  发帖心情 Post By：2006/12/6 13:07:00 [显示全部帖子]

呵。好彩不用改按钮公式！不然苦丫！

egd文件下载


 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：职业侠客 帖子：449 积分：-10 威望：0 精华：0 注册：2006/8/27 12:47:00 		  发帖心情 Post By：2006/12/7 11:26:00 [显示全部帖子]

下面引用由xingfu在 2006/12/07 06:46am 发表的内容：
请教：看不懂eval("SetBackColor(,"+Substitute(TRIM(cell(,,"开奖号"))," ","+1,1,255) and SetBackColor(,")+"+1,1,255)")，我试着截取其中的一部分eval(& ...

建议尽快学会写这种公式，因为这种格式可任意组合使用，自由度大，可扩展性，天马行空任你写，这种感觉太写意啦，呵。
以前写的公式又长又臭，速度又慢，又阻于函数的嵌套的问题，太局限啦！
 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：职业侠客 帖子：449 积分：-10 威望：0 精华：0 注册：2006/8/27 12:47:00 		  发帖心情 Post By：2006/12/7 17:07:00 [显示全部帖子]

呵。当你习惯了就不觉得啦！
只要看看函数头就基本了解这种公式的含义了。

 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：职业侠客 帖子：449 积分：-10 威望：0 精华：0 注册：2006/8/27 12:47:00 		  发帖心情 Post By：2006/12/7 17:26:00 [显示全部帖子]

传个例子吧！当一习惯运用上面的公式用到函数，面问题时，问题都不是什么问题了，呵。。夸张了点！这就是它的好处呀！！

例原作者用的公式：
变量o:
"FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],0,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],2,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],4,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],6,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],8,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],10,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],12,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],14,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],16,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],18,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],20,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],22,2))+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],24,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],26,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],28,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],30,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],32,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],34,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],36,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],38,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],40,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],42,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],44,2))+"" ""+FindText(""字典正文"",""拼音1"",""字"", ""="" ,Mid([A],46,2))"

列刷新公式：
If([A] > "",eval(mid([%o%],0,Search("+"" ""+",


 回到顶部
帅哥哟，离线，有人找我吗？
gdlgh
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：职业侠客 帖子：449 积分：-10 威望：0 精华：0 注册：2006/8/27 12:47:00 		  发帖心情 Post By：2006/12/7 20:19:00 [显示全部帖子]

呵。楼上太谦了！
只不过思维方式不同而已！

 回到顶部
总数 34 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright ©2002 - 2005 egrid2000.com   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07227 秒, 6 次数据查询