VBA入门第5讲示例文件下载

兰色幻想

<p> dJjrseHA.rar (7.45 KB, 下载次数: 178)

2007-12-5 20:30 上传

点击文件名下载附件
VBA入门第5讲示例文件下载 </p><p><br/>Sub Test3()<br/>Dim k As Long<br/>With Sheets("库存表")<br/>k = .Range("a65536").End(xlUp).Row + 1<br/>&nbsp;.Cells(k, 1) = Range("d4")<br/>&nbsp;.Cells(k, 2) = Range("d6")<br/>&nbsp;.Cells(k, 3) = Range("d8")<br/>&nbsp;End With<br/>&nbsp;MsgBox "输入成功!!"<br/>&nbsp;Range("d8") = ""<br/>&nbsp;Range("d4") = ""<br/>&nbsp;Range("d6") = ""<br/>End Sub</p><p>&nbsp;</p><p>Sub test4()<br/>&nbsp;Range("b2:b9").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True<br/>&nbsp;Rows.Hidden = False<br/>&nbsp;End Sub</p>

[此贴子已经被作者于2007-12-5 22:14:00编辑过]

豆浆

来了

hong4777

沙发

hyxzj

谢谢校长

冰冰草莓

哈哈，又是板凳！

BeyondPC

OK

laoyebin

<p>来了，赶快下</p>

yuhai0012

<p>来了</p>

手鼓

<p>来了.</p>

qyszmmj

<p>谢谢了</p>