求助,有關VBA查找方面的問題

心馨

<p>Sub 生产计划统计明细表_按钮1_单击()<br/>Dim mrow As Integer<br/>Dim x<br/>For x = 7 To Range("a16").End(xlUp).Row&nbsp; '如果把該句換為for x = 7 to 16 ,則同樣出現以下錯誤提示<br/>mrow = Sheets("材料名称").Range("c:c").Find(Sheets("生产计划统计明细表").Range("a" &amp; x)).Row&nbsp; '在總是提示這句出錯.<br/>Range("b" &amp; x) = Sheets("材料名称").Range("b" &amp; mrow)<br/>Next x<br/>End Sub</p><p>提示內容為:對象變量或WITH變量未設置.</p><p>麻煩幫看一下啊.謝謝.</p>

laosanjie

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>心馨</i>在2008-6-30 9:22:00的发言：</b><br/><p>提示內容為:對象變量或WITH變量未設置.</p><p>麻煩幫看一下啊.謝謝.</p></div><p><font color="#0000ff">兰色字是改的地方，楼主再试试：还不行的话，若方便就将文件的附件传上来吧。</font></p><p>Sub 生产计划统计明细表_按钮1_单击()<br/>Dim mrow As <strike>Integer</strike> <font color="#0033ff">Range, x%, k%<br/></font>Dim x<br/>For x = 7 To Range("a16").End(xlUp).Row&nbsp; '如果把該句換為for x = 7 to 16 ,則同樣出現以下錯誤提示<br/><strike>mrow = Sheets("材料名称").Range("c:c").Find(Sheets("生产计划统计明细表").Range("a" &amp; x)).Row</strike>&nbsp; '在總是提示這句出錯.</p><p><font color="#0909f7">Set mrow = Sheets("材料名称").Range("c:c").Find(Sheets("生产计划统计明细表").Range("a" &amp; x))</font></p><p><font color="#0909f7">k = mrow.Row<br/></font>Range("b" &amp; x) = Sheets("材料名称").Range("b" &amp; <font color="#0000ff">k</font>)<br/>Next x<br/>End Sub</p>

心馨

Myadgztn.rar (44.29 KB, 下载次数: 9)

2008-6-30 09:46 上传

点击文件名下载附件
求助,有關VBA查找方面的問題 <br/>麻煩班主任了.!!

laosanjie

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>心馨</i>在2008-6-30 9:47:00的发言：</b><br/><br/>麻煩班主任了.!!</div><p><font color="#0000ff" size="3">你光传了表上来，你所想达到的要求却没写明？！</font></p>

[此贴子已经被作者于2008-6-30 11:03:03编辑过]

laosanjie

<p><font color="#0000ff">看了一下，按表里的情况改了一下程序，应该可以了。</font></p><p><font color="#0000ff" size="3">改了的文件附件如下：</font></p><p>

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

</p>

lalalanet

haoa taihao le&#160;

豪哥人家

[em01][em01]

wungly

niurena

zzaaqqwx

wqwqww

fgt258

<p>rhf&nbsp;&nbsp;&nbsp; </p><p>fdsa</p><p></p>