+ -
当前位置:首页 → 问答吧 → 20110811封装提问,先谢了

20110811封装提问,先谢了

时间:2011-08-11

来源:互联网

说明在附件中,请大家帮忙!谢谢大家

[ 本帖最后由 zhengrui-csb 于 2011-8-11 15:50 编辑 ]

附件

20110811封装提问.rar(8.86 KB)

2011-8-11 14:34, 下载次数: 8

作者: zhengrui-csb   发布时间: 2011-08-11

请高手们帮忙,谢谢大家

作者: zhengrui-csb   发布时间: 2011-08-11

复制内容到剪贴板
代码:
Private Sub CommandButton1_Click()
Dim Myr&
Myr = [c65536].End(xlUp).Row + 1
Cells(Myr, 2).Resize(1, 5).Merge
Cells(Myr, 2) = "'============   以下空白   ============"
End Sub

作者: 蓝桥玄霜   发布时间: 2011-08-11