<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>jx1680000</i>在2007-5-4 13:29:20的发言:</b><br/><p>老师,我在这个表里遇到2个问题:</p><p>1.在装箱单表格里没有数据时按"康售后"",</p><p>会把标题输入到"康售后"里. </p><p>2.在"康售后"实行自动筛选后,</p><p>装箱单录进"康售后"里的数据会覆盖原来的数据.</p><p></p><hr/><p></p><p>回复您两个问题:</p><p>1.<strong>标题在数据空白是会录入</strong></p><p>这是一个BUG,但问题不大,你在代码前面加一个限制就好了</p><p>(“康售后”宏里)if y>4 then ...end if,中间就是整个 </p><p>With Sheets("装箱单")...end with的代码。</p><p>传上样子:</p><p>2<strong>.在"康售后"实行自动筛选后,</strong></p><p><strong>装箱单录进"康售后"里的数据会覆盖原来的数据!</strong></p><p>这个问题在前面的仓库录入的代码里就谈到过的问题,</p><p>这也是那里我为什么不用,“Range("a65536").End(xlUp).Row”</p><p>的原因,在<strong>筛选状态</strong>下是不能得出正确的行数的。</p><p>这里我以为你不会有筛选的,所以这样写了。</p><p>解决的方法:1。是在录入时打开筛选。2.把这里的计数行用仓库表</p><p>里的那种计数法:</p><p>x=1</p><p>Do While Not (IsEmpty(.Cells(x, 1).Value))<br/> x = x + 1<br/>Loop</p><p>这种方法,那怕你是隐藏也是一样计数的。</p><p>这里我就不做了,你试一试,不行我们再谈。</p></div><p>老师,我可能是人笨了,不知怎么了,公式改了,运行时还是显示调试.</p>
[此贴子已经被作者于2007-5-9 9:03:23编辑过] |