日记首页  | 列表 | 添加日记  | 管理登陆 标题：移动查询完成 <P><FONT style="BACKGROUND-COLOR: #fdfddf" face=Tahoma>查询时，先运行完代码，要最后出现查询完成。作如下改动：</FONT></P> <P> </P> <DIV style="CURSOR: pointer" class=HtmlCode title=点击运行该代码！ onclick="preWin=window.open('','','');preWin.document.open();preWin.document.write(this.innerText);preWin.document.close();">模块x数据查询</DIV> <DIV style="CURSOR: pointer" class=HtmlCode title=点击运行该代码！ onclick="preWin=window.open('','','');preWin.document.open();preWin.document.write(this.innerText);preWin.document.close();">Sheet1.Activate<BR>&nbsp;&nbsp; [A2:E1000] = ""<BR>&nbsp;&nbsp; t = UBound(arr1)<BR>&nbsp;&nbsp;&nbsp; Range("A2:G7").Resize(t) = arr1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '("A2:E18")中的18是指第18列<BR>&nbsp;&nbsp;&nbsp; UserForm2.TextBox1.Value = ""</DIV> <DIV style="CURSOR: pointer" class=HtmlCode title=点击运行该代码！ onclick="preWin=window.open('','','');preWin.document.open();preWin.document.write(this.innerText);preWin.document.close();"><FONT color=#ff0000>&nbsp;&nbsp; '&nbsp;&nbsp; 从这里移到下面<BR></FONT>&nbsp; Call 删除重复行<BR>&nbsp;&nbsp;&nbsp; Application.ScreenUpdating = True<BR>&nbsp;&nbsp;&nbsp;&nbsp; <FONT color=#ff0000>MsgBox "查询完成"<BR></FONT>End Sub</DIV>