VBA第3讲实战练习: 制作工资条(参与答案在1楼)

雨惜

<p> lVgLrAjA.rar (6.98 KB, 下载次数: 7)

2007-11-24 15:44 上传

点击文件名下载附件
VBA第3讲实战练习: 制作工资条 </p><p>交作业<br/></p>[em23][em23]

rubao2008

t0E8Fftd.rar (7.15 KB, 下载次数: 7)

2007-11-24 15:48 上传

点击文件名下载附件
VBA第3讲实战练习: 制作工资条 <br/>交作业喽，要是兰版不提醒的话，我就做不出来了！！！！哈哈！谢谢蓝版！！！！[em01]

木樨

dHbLIl28.rar (7.93 KB, 下载次数: 7)

2007-11-24 20:46 上传

点击文件名下载附件
VBA第3讲实战练习: 制作工资条 <br/>

BeyondPC

<p> BX6NhHaV.rar (6.48 KB, 下载次数: 10)

2007-11-24 22:02 上传

点击文件名下载附件
VBA第3讲实战练习: 制作工资条 <br/></p><p>交作业，加了个小判断，避免重复点击时出错！</p>

清荷枫儿

<p>Sub 工资条()<br/>Dim I As Integer<br/>For I = 9 To 3 Step -1<br/>Rows(I).Insert<br/>Rows(I) = Rows(1).Value<br/>Next I<br/>End Sub</p><p>Sub 恢复()<br/>Dim I As Integer<br/>For I = 2 To 30<br/>If Range("a" &amp; I) = "姓名" Then<br/>Rows(I).Delete<br/>End If<br/>Next I<br/>End Sub</p><p><br/>Sub 恢复1()<br/>Dim K As Integer<br/>For K = 15 To 3 Step -2<br/>&nbsp;Rows(K).Delete<br/>&nbsp;Next K<br/>End Sub<br/></p><p>后两个恢复都可行，但倒着来简单，正着做，好理解，呵呵，各有千秋，请老师阅批，我提个建议，如果是简单的代码，学员直接发代码老师看起来更省事些，不用再下载，下载很费时间，另还要再删除，很麻烦。</p>

[此贴子已经被作者于2007-11-24 23:00:57编辑过]

郁闷的裤裤

IaiIqnDM.rar (6.24 KB, 下载次数: 6)

2007-11-25 03:33 上传

点击文件名下载附件
VBA第3讲实战练习: 制作工资条 <br/>多多练习啦

黄鹤楼

复习

flash973

yWh5kx3d.rar (6.43 KB, 下载次数: 7)

2007-11-25 11:26 上传

点击文件名下载附件
VBA第3讲实战练习: 制作工资条 <br/>请批阅,谢谢

杨副官

<p>下载</p>

jingletxj

<p>第一个作品</p><p>Sub 工资条()<br/>Dim fkh As Integer<br/>fkh = Range("a65536").End(xlUp).Row<br/>Dim x As Integer<br/>For x = fkh To 3 Step -1<br/>Rows(x).Insert<br/>Rows(x) = Rows(1).Value<br/>Next x<br/>End Sub</p><p>Sub 恢复()<br/>Dim fkh As Integer<br/>fkh = Range("a65536").End(xlUp).Row<br/>Dim x As Integer<br/>For x = fkh + 1 To 3 Step -2<br/>Rows(x).Delete<br/>&nbsp;Next x<br/>End Sub</p><p></p><p>&nbsp;</p>[em04]

[此贴子已经被作者于2007-11-25 12:06:53编辑过]