【二期V入班】六课 选做 练习题(全班)上交贴

南仁海杨

<p>

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

</p><p>&nbsp;</p><p>+1</p>

[此贴子已经被laosanjie于2008-6-18 11:14:37编辑过]

dhysh

<p>我也来看看</p>

fzylx

因为选做。所以没做。不过来看看答案。

asgag林

<p><font size="2">Sub add1(&nbsp; )<br/>Dim x, y<br/>&nbsp; If [I4] = "" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "姓名不能为空!"<br/>&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp; x = [A65536].End(xlUp).Row + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp; For y = 1 To 4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cells(x, y) = Cells(y * 2 + 2, "I")<br/>&nbsp;&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp; End If<br/>End Sub<br/>+1</font></p><p>&nbsp;</p>

[此贴子已经被laosanjie于2008-6-20 10:34:50编辑过]

xcnclzy

laoau138

DFSFDSFDS