网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
01月21日漏签0天
vba吧 关注:17,090贴子:66,956
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 4回复贴,共1页
<<返回vba吧
>0< 加载中...

请教一个问题

  • 只看楼主
  • 收藏

  • 回复
  • huangyaoyu
  • 无名之辈
    2
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
怎样才能 让一个sheet改变事件的宏 ,在所有新建的表格内都能触发。


  • 小小噤
  • 武林高手
    9
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
是任意一个表格改变时,都要改变其他表。
还只是某一个表改变时。改变其他表。


2026-01-21 11:31:57
广告
不感兴趣
开通SVIP免广告
  • 一箭惊仙
  • 四方游侠
    5
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
在ThisWorkbook里最上面写
Public WithEvents App As Application
Private Sub Workbook_Open()
Set App = Excel.Application
End Sub
然后上面左侧选App,右侧选SheetChange
里面写你的代码就行了
注意,要重新打开该工作簿或手动运行一次Workbook_Open事件才能触发App_SheetChange事件



  • 一箭惊仙
  • 四方游侠
    5
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
上面的是应用程序级的change事件,也就是在有代码这张表打开时,所有的Excel表格都会响应该事件,如果你只想要在单一的工作簿里触发该事件,只需要在thisworkbook里选择workbook的sheetchange事件就可以了


  • lyc4412123
  • 四方游侠
    5
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
如果各表之间有联系 触发一个表的change事件直接修改其他表的数据就行了。如果各表之间没有联系,其他表数据没有改变,触发其他表的change事件有何意义?


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 4回复贴,共1页
<<返回vba吧
分享到:
©2026 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示