Question

用excel，每打一次编号自动加一，如何实现？

' 快捷键: Ctrl+q
'
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Sheet1").Range("A2") = Sheets("Sheet1").Range("A2") + 1
End Sub
这个宏不能用，提示：编译错误，缺少End Sub 请高手指点下

Answer 1

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Sheet1").Range("A2") = Sheets("Sheet1").Range("A2") + 1
End Sub
上面这个事件好像是一个打印事件,你在EXCEL编辑中是不会执行的
至于你所说的打一次编号就自动加一,这个所谓的打一次编号是什么意思?

至于想让指定的单元格加1
Sheets("Sheet1").Range("A2") = Sheets("Sheet1").Range("A2") + 1
以上这行代码倒是没错

至于你所说的提示缺少End Sub ,这肯定是因为某处代码中:
有起始事件"SUB.....",而没有"End Sub"
每个SUB 对应一个 End Sub,你仔细查看一下就知道了.

Answer 2

按住Ctrl键拖动