【V入2期】实战练习四——录入资料

喵喵

<p><a href="http://www.excelpx.com/forum.php?mod=viewthread&tid=57882">http://www.excelpx.com/forum.php?mod=viewthread&tid=57882</a></p><p>一个会员的问题，用大家学过的知识可以完成。</p><p>&nbsp;</p>

[此贴子已经被作者于2008-6-22 15:52:53编辑过]

cjch1969

<p>喵喵老师，都第8课了，还第6讲啊</p><p>做好给加分不？</p><p></p>

喵喵

实战练习不分第几讲，多做题目有助提高

喵喵

大家有能力的多到VBA开发版解答问题。

ycb20010823

好的，下载下来，找时间练习一下！！

cjch1969

<p>完成，请喵喵老师批阅！</p><p>

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

</p><p>=============================</p><p><font color="#ff0000">很好，功能达到了，而且用了数组，赞一个<font color="#000000">[em17]</font></font></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;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -------------uranus1997</font></p><p>=============================</p><p>重新改了下代码：如下</p><p>

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

</p>

[此贴子已经被作者于2008-6-22 17:20:13编辑过]

1+1等于几

<p>学习一下!</p>

aa123456aa

<p>rivate Sub Worksheet_Change(ByVal Target As Range)<br/>If Range(Target, "b2:D4").Address(0, 0) = "B2:D4" Then<br/>燜or X = 2 To 3<br/>?If Sheet1.Cells(X, 2) &lt;&gt; "" And Sheet1.Cells(X, 3) &lt;&gt; "" And [B4] &lt;&gt; "" Then<br/>牋牋 Application.EnableEvents = False<br/>牋牋 Myrow = Sheet2.[a65536].End(xlUp).Row + 1<br/>牋牋 Sheet2.Cells(Myrow, 1) = Myrow - 2<br/>牋牋 Sheet2.Cells(Myrow, 2) = Sheet1.Range("b2")<br/>牋牋 Sheet2.Cells(Myrow, 3) = Sheet1.Range("d2")<br/>牋牋 Sheet2.Cells(Myrow, 4) = Sheet1.Range("D3")<br/>牋牋 Sheet2.Cells(Myrow, 5) = Sheet1.Range("b3")<br/>牋牋 Sheet2.Cells(Myrow, 6) = Sheet1.Range("B4")<br/>牋牋 Sheet1.[B2] = ""<br/>牋牋 Sheet1.[B3] = ""<br/>牋牋 Sheet1.[D2] = ""<br/>牋牋 Sheet1.[D4] = ""<br/>牋牋 Sheet1.[B4] = ""<br/>牋牋 Application.EnableEvents = True<br/>牋 End If<br/>?Next X<br/>燛nd If<br/>End Sub</p><p></p>

aa123456aa

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>aa123456aa</i>在2008-6-22 16:46:00的发言：</b><br/><p>rivate Sub Worksheet_Change(ByVal Target As Range)<br/>If Range(Target, "b2:D4").Address(0, 0) = "B2:D4" Then<br/>燜or X = 2 To 3<br/>?If Sheet1.Cells(X, 2) &lt;&gt; "" And Sheet1.Cells(X, 3) &lt;&gt; "" And [B4] &lt;&gt; "" Then<br/>牋牋 Application.EnableEvents = False<br/>牋牋 Myrow = Sheet2.[a65536].End(xlUp).Row + 1<br/>牋牋 Sheet2.Cells(Myrow, 1) = Myrow - 2<br/>牋牋 Sheet2.Cells(Myrow, 2) = Sheet1.Range("b2")<br/>牋牋 Sheet2.Cells(Myrow, 3) = Sheet1.Range("d2")<br/>牋牋 Sheet2.Cells(Myrow, 4) = Sheet1.Range("D3")<br/>牋牋 Sheet2.Cells(Myrow, 5) = Sheet1.Range("b3")<br/>牋牋 Sheet2.Cells(Myrow, 6) = Sheet1.Range("B4")<br/>牋牋 Sheet1.[B2] = ""<br/>牋牋 Sheet1.[B3] = ""<br/>牋牋 Sheet1.[D2] = ""<br/>牋牋 Sheet1.[D4] = ""<br/>牋牋 Sheet1.[B4] = ""<br/>牋牋 Application.EnableEvents = True<br/>牋 End If<br/>?Next X<br/>燛nd If<br/>End Sub</p><p></p></div><p>rivate Sub Worksheet_Change(ByVal Target As Range)<br/>If Range(Target, "b2:D4").Address(0, 0) = "B2:D4" Then<br/>&nbsp;For X = 2 To 3<br/>&nbsp; If Sheet1.Cells(X, 2) &lt;&gt; "" And Sheet1.Cells(X, 3) &lt;&gt; "" And [B4] &lt;&gt; "" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp; Application.EnableEvents = False<br/>&nbsp;&nbsp;&nbsp;&nbsp; Myrow = Sheet2.[a65536].End(xlUp).Row + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp; Sheet2.Cells(Myrow, 1) = Myrow - 2<br/>&nbsp;&nbsp;&nbsp;&nbsp; Sheet2.Cells(Myrow, 2) = Sheet1.Range("b2")<br/>&nbsp;&nbsp;&nbsp;&nbsp; Sheet2.Cells(Myrow, 3) = Sheet1.Range("d2")<br/>&nbsp;&nbsp;&nbsp;&nbsp; Sheet2.Cells(Myrow, 4) = Sheet1.Range("D3")<br/>&nbsp;&nbsp;&nbsp;&nbsp; Sheet2.Cells(Myrow, 5) = Sheet1.Range("b3")<br/>&nbsp;&nbsp;&nbsp;&nbsp; Sheet2.Cells(Myrow, 6) = Sheet1.Range("B4")<br/>&nbsp;&nbsp;&nbsp;&nbsp; Sheet1.[B2] = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp; Sheet1.[B3] = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp; Sheet1.[D2] = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp; Sheet1.[D4] = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp; Sheet1.[B4] = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp; Application.EnableEvents = True<br/>&nbsp;&nbsp; End If<br/>&nbsp; Next X<br/>&nbsp;End If<br/>End Sub</p><p>上面代码怎么变成那样？</p>[em06]

cjch1969

<p>楼上的，问题有2</p><p>（1）Sheet1.[D4] = ""&nbsp; 疑为 Sheet1.[D3] = ""</p><p>（2）如果不按照顺序录入内容，会出现问题，如先输入 “是否党员”和“特长”后，就会自动添加数据</p>

[此贴子已经被作者于2008-6-22 16:53:31编辑过]