|
楼主 |
发表于 2012-4-9 20:09
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 mengrong026 于 2012-4-9 20:12 编辑
joforn 发表于 2012-4-6 21:25
Sub 按钮58_Click()
'.... 这里是你的原有代码
Sheet3.Clearn 下面代码中的这部分是什么意思啊
rs = Cells(3, 2)
Rows(rs + 3).Select
ActiveSheet.Paste
Cells(rs + 3, 1).Value = rs + 1
Application.CutCopyMode = False
这部分的代码是什么意思啊,能给我讲讲吗?
- Sub 保存()
- Dim rs As Integer
- Sheets("调查表").Select
-
- Rows(81).Select
- Selection.Copy
- Sheets("数据表").Select
- rs = Cells(3, 2)
- Rows(rs + 3).Select
- ActiveSheet.Paste
- Cells(rs + 3, 1).Value = rs + 1
- Application.CutCopyMode = False
- Range("A1").Select
- Sheets("调查表").Select
- Range("A1").Select
- MsgBox "您的选择已经保存,感谢您对我们工作的支持,祝您工作愉快!", vbOKOnly, "谢谢您"
- End Sub
复制代码 |
|