VBA中使用sheetchange事件，为什么和书上的操作结果不一样？

• rem 用户窗口代码

• Public WithEvents appevent As Application

• Private Sub appevent_sheetactive(ByVal ws As Object)
  MsgBox "你好，你激活了一个工作表，该工作表名称为：" & ws.Name, vbOKOnly, "测试激活工作表事件" '未达到效果

• End Sub

• rem 标准模块代码

• Sub 测试激活工作簿事件() '有问题未达到效果

• Dim frm As New UserForm2

• Set frm.appevent = Application

• MsgBox "请切换到Excel2013应用程序，任意激活一个工作表！"

• End Sub

你要做什么？这个没有必要抄书，你要做什么录制一个宏，参考给你生成的代码即可。