求VBA按钮设置代码

恋战迷糊

问题见附件，还是按钮的问题，VBA小弟我真不会啊~~~
求大侠帮帮忙 新建 Microsoft Excel 工作表.rar (175.14 KB, 下载次数: 14)

2013-10-30 12:21 上传

点击文件名下载附件

mineshine

仅供参考
代码放模块
放一个图形按钮指定宏

1. Sub SaveData()
   
2. Dim r As Long, rr As Long
   
3. Dim S1 As Worksheet, S2 As Worksheet
   
4. Set S1 = Sheets("录入、提示界面")
   
5. Set S2 = Sheet("明细")
   
6. r = S2.Cells(S2.Rows.Count, 1).End(xlUp).Row+ 1    'Sheets("明细") 最后空白列
   
7. rr = S1.Cells(S1.Rows.Count, 1).End(xlUp).Row        'Sheets("录入、提示界面") 最后非空白列
   
8. S1.Range("A2:D" & rr).Copy S2.Cells(r, 1)                '复制("录入、提示界面") 到("明细")
   
9. End Sub

复制代码