V中班课前必做题：找唯一

zbhpass

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>兰色幻想</i>在2008-7-5 22:18:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>zbhpass</i>在2008-7-5 12:48:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder">&nbsp;</div><p>兰版,帮我动行一下50楼的代码,看是不是能进1秒,我这是小于1秒的.进不了我也不去敢去回贴领BB,我想要而要不到很丢人的.</p></div><p>你的答案不能处理文本, 需要完善一下</p></div><p></p><p>改变49楼的函数定义能处理文本(文本格式的数值也处理为文本),逻辑值True,但会把逻辑值False,空白单元格和数值0认为相同,还不知道原因</p><p>

游客，如果您要查看本帖隐藏内容请回复

</p>

zbhpass

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>君柳</i>在2008-7-5 13:07:00的发言：</b><br/><p>代发飞翔的代码：</p><p>0.7秒</p><p></p><p></p></div><p>1. 把&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</p><p>Set ra = Nothing<br/>Erase ifar<br/>Erase id</p><p>注释掉时间少了近一半.想不到这个花这么多时间,由此想Dim花的时间到底有多长 </p><p>2.&nbsp;用如果先set ra=range("B1"),再Union比以下代码</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If bol Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set ra = Union(ra, Range(id(j)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set ra = Range(id(j))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bol = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</p><p>要多花近一倍的时间,不知道什么原因</p>

canlly

<p>学习!</p>

laosanjie

<p>能达到题目分段查找唯一值并标识黄底色蓝色字的要求，速度就谈不上了[em04]</p><p>

游客，如果您要查看本帖隐藏内容请回复

</p>

HYY514

<p>

游客，如果您要查看本帖隐藏内容请回复

</p>

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>HYY514</i>在2008-7-6 14:18:00的发言：</b><br/><p></p></div><p>我的电脑关掉其他程序,代码运行0.625秒 ,如果不关闭IE和正常情况下0.8-0.9秒. </p><p></p><p>飞翔也入1秒了.去领50个币币吧. </p><p>不过代码还可以进一步优化<br/></p>

[此贴子已经被作者于2008-7-6 14:52:42编辑过]

mzl0205147

<p>kankan?buhui zuo </p>

不看不看

<p>各路英豪施展拳脚</p><p>不经意间已经一百多楼</p><p>一楼一楼的看下来</p><p>感到收获颇丰[em10][em10]</p>

Greey

[em09]看看！

HYY514

<p>在哪里拿金子??</p>[em02]