【V入2期】实战练习五-筛选重复(数组)

uranus1997

记号，之前全部批改完毕。

wh7705

xx

aa123456aa

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>aa123456aa</i>在2008-6-30 4:50:00的发言：</b><br/><p></p><p>=============================================================================</p><p><font color="#ff0000">数组的运用中规中矩。没有大问题，可以尝试用一个数组来完成代码，速度会更快</font></p><p><font color="#ff0000">好的地方：</font></p><p><font color="#ff0000">1，虽然本题问题不需要用到工作表事件来做，但这位同学用到工作表事件，敢于尝试的态度还是值得一赞</font></p><p><font color="#ff0000">2，代码中带有注释，这也是一个好习惯。</font></p><p><font color="#ff0000">但是有几个问题：</font></p><p><font color="#ff0000">1，用到Worksheet_Change事件的话，就没必要用数组进行循环，因为只需要判断当前改变的单元格所在的行就可以了，没必要全部判断一次，因为每次输入都会激活事件的。真的要尝试在Worksheet_Change事件里实现该功能，就根本就用不到数组解题了。</font></p><p><font color="#ff0000">2，既然考虑可能出现不同的后缀名，就应该用更通用的代码，想想如何改能通用点？（提示：找文件名中点的位置）</font></p><p><font color="#ff0000">3，这题不需要用到On Error GoTo错误判断语句进行判断，应该用其他判断语句代替On Error GoTo，令代码结构更清晰。</font></p><p><font color="#ff0000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ---------------------uranus1997</font></p><p>&nbsp;</p><br/></div><p></p><p>谢谢喵喵老师批语！[em04]&nbsp; 有这么多不好的问题，偷懒了。那我在重做。此次用了事件一种简单的解法之外，另一种用刚学的字典加上数组来完成。望老师批阅！[em01]</p><p>&nbsp;</p>

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

<br/>

wh7705

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

</p><p>==========================================</p><p>&nbsp;[em17]<font color="#ff0000">数组用法中规中矩，数组和单元格的相互赋值基本掌握了，"&amp;"运算符用的不错。</font></p><p><font color="#ff0000">关于你的问题，aa和bb是变量，需要放在引号的外边，正确写法应该是这样：application.evaluate("find("".""," &amp; aa &amp; "(" &amp; dd &amp; ",1),1)")</font></p><p><font color="#ff0000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -----------------------uranus1997</font></p><p>&nbsp;</p><p>老师就是老师</p><p>辛苦</p>

[此贴子已经被作者于2008-7-5 16:57:43编辑过]

ipaab

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>ipaab</i>在2008-6-27 10:37:00的发言：</b><br/><p></p><p>试下</p><p>=========================================</p><p><font color="#ff0000">偷懒了，没有了进行文件名称的判断哦，结果全部是“没有”，显然是不对了，要求只是文件名同，不需要考虑后缀哦，如何判断也是数组运用的一部分，不能省略。</font></p><p><font color="#ff0000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -------------------uranus1997</font></p><br/></div><p>

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

</p><p>============================================</p><p>&nbsp;[em17]<font color="#ff0000">这次没问题了，建议减少数组的数量，另外变量的起名也最好规范一点就很好了。</font></p><p><font color="#ff0000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; --------------------uranus1997</font></p>

[此贴子已经被uranus1997于2008-7-2 7:43:21编辑过]

飞龙在天

<p>上传练习，交的迟了点!</p><p>请老师审阅!</p><p>

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

<br/></p><p>&nbsp;</p><p>===================================</p><p>&nbsp;</p><p>[em17]<font color="#ff0000">数组与单元格的相互赋值基本掌握了，思路很严谨，赞一个，中间判断的方法最好不要引用工作表函数。</font></p><p><font color="#ff0000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ----------------uranus1997</font></p>

[此贴子已经被uranus1997于2008-7-2 7:47:48编辑过]

肉丸丸

<p>老师帮看一下</p><p>Sub 显示()<br/>Dim arrSource(2 To 3, 1 To 10) As String<br/>Dim c, d, i As Integer<br/>&nbsp;For c = 2 To Range("a65536").End(xlUp).Row<br/>&nbsp; arrSource(2, c) = Cells(c, 1)<br/>&nbsp; arrSource(3, c) = Cells(c, 2)<br/>&nbsp; If Left(arrSource(2, c), 7) = arrSource(3, c) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp; Cells(c, 3) = "有"<br/>&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp; Cells(c, 3) = "无"<br/>&nbsp;&nbsp; End If<br/>&nbsp;Next<br/>&nbsp;<br/>End Sub</p><p>================================</p><p><font color="#ff0000">呵呵，你除了声明数组那一步是体现出数组外，其他的都不是用数组的解法，单元格赋值给数组和数组赋值给单元格都没掌握。再努力。</font></p><p><font color="#ff0000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; --------------uranus1997</font></p>

[此贴子已经被uranus1997于2008-7-2 7:51:29编辑过]

皮皮1998

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

皮皮1998

<p>老师真好,每个人都表扬!!</p><p>&nbsp;</p>[em01]

[此贴子已经被作者于2008-7-2 13:42:38编辑过]

crreg

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