Excel 技巧网 | Excel 专家栖息谷 | 微软中文技术社区合作伙伴
设为首页收藏本站社区帮助|繁體中文 Office免费培训中心微信

Excel 技巧网

 找回密码
 轻松注册

QQ登录

只需一步,快速开始

查看: 2150|回复: 3

[Excel VBA] 修改批量替换宏的代码

[复制分享链接][作者版权链接]
发表于 2010-9-5 14:22:34 | 显示全部楼层 |阅读模式

免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

您需要 登录 才可以下载或查看,没有帐号?轻松注册

x
请问如何修改代码,使得凡是工作表中所有“返回表头”的按钮的指定的宏都由“lj”改为“lj001?”

替换宏问题.rar

9.08 KB, 下载次数: 12

学office,哪能不关注全网最大的Office类微博@Excel技巧网_官方微博(新浪)
全屏高清一分钟Excel动画教程200集
 楼主| 发表于 2010-9-5 14:32:04 | 显示全部楼层
本帖最后由 yd0209 于 2010-9-5 14:33 编辑

模仿了一下,这样只能替换当前表中一个按钮,不能全部替换,请高手补充一下:

Sub 批量替换宏()
Dim Ws As Worksheet
Dim bu As Shape
For Each Ws In ThisWorkbook.Worksheets
For Each bu In Ws.Shapes
If bu.Type = msoFormControl Then
                If bu.OLEFormat.Object.Caption = "返回表头" Then
                bu.Select
    Selection.OnAction = "lj001"
              End If
            End If
        Next bu
    Next Ws
End Sub
学office,哪能不关注全网最大的Office类微博@Excel技巧网_官方微博(新浪)
回复 支持 反对

使用道具 举报

发表于 2010-9-5 17:30:25 | 显示全部楼层
本帖最后由 wqfzqgk 于 2010-9-5 17:48 编辑

在For Each bu In Ws.Shapes
前面加上一句ws.select

评分

参与人数 1魅力值 +5 收起 理由
yd0209 + 5 感谢帮助:)

查看全部评分

学office,哪能不关注全网最大的Office类微博@Excel技巧网_官方微博(新浪)
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-9-5 17:46:54 | 显示全部楼层
3# wqfzqgk

好啊,成功了,谢谢,我也琢磨了一下,其实只要在 If bu.OLEFormat.Object.Caption = "返回表头" Then后加一句bu.Select也可以达到目的

Sub 批量替换宏()
Dim Ws As Worksheet
Dim bu As Shape
For Each Ws In ThisWorkbook.Worksheets
For Each bu In Ws.Shapes
If bu.Type = msoFormControl Then
                If bu.OLEFormat.Object.Caption = "返回表头" Then
                bu.Select
    bu.OnAction = "lj001"
              End If
            End If
        Next bu
    Next Ws
End Sub

评分

参与人数 1魅力值 +2 收起 理由
wqfzqgk + 2 不错,加在激活工作表比循环控件少一些

查看全部评分

学office,哪能不关注全网最大的Office类微博@Excel技巧网_官方微博(新浪)
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 轻松注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

Excel技巧网的会员探讨问题仅代表其个人意见,与网站的立场无关。任何违反国家和地方相关法律法规的言论,本站有义务协助政府相关部门追究发言者的责任!
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者,本站之外任何单位或个人未经允许,不得将其用于商业用途。
若非原文作者,任何形式的非商业性转载必须获得Excel技巧网或作者允许,并注明作者和出处。
会员发表的帖子如涉及版权纠纷,须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问:沈学律师

手机版|Archiver|触屏版| Excel技巧网 ( 闽ICP备08107682号  

GMT+8, 2014-12-29 18:14

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表