weixin_44213816
罒 灬
2019-02-20 16:00

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

  • microsoft
  • 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条回答