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
VBA中使用sheetchange事件,为什么和书上的操作结果不一样?
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
悬赏问题
- ¥50 永磁型步进电机PID算法
- ¥15 sqlite 附加(attach database)加密数据库时,返回26是什么原因呢?
- ¥88 找成都本地经验丰富懂小程序开发的技术大咖
- ¥15 如何处理复杂数据表格的除法运算
- ¥15 如何用stc8h1k08的片子做485数据透传的功能?(关键词-串口)
- ¥15 有兄弟姐妹会用word插图功能制作类似citespace的图片吗?
- ¥200 uniapp长期运行卡死问题解决
- ¥15 latex怎么处理论文引理引用参考文献
- ¥15 请教:如何用postman调用本地虚拟机区块链接上的合约?
- ¥15 为什么使用javacv转封装rtsp为rtmp时出现如下问题:[h264 @ 000000004faf7500]no frame?