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

图片说明
图片说明
图片说明
图片说明
图片说明

1个回答

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

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问