我要文库申报
查看: 4542|回复: 2
如何用VBA批量修改公式？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴站内采编:
署名作者: biaotiger1
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 2010&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
Q：如何用VBA批量修改公式？
A：在sheet1工作表中插入一个按钮（表单控件）并指定代码如下：
Sub test()
Dim A, B, Cel As Range
A = InputBox(&请输入要更改的前半部分&, &提示&)
B = InputBox(&请输入要更改的后半部分&, &提示&)
For Each Cel In Selection
& & Cel.Formula = &=& & A & Right(Cel.Formula, Len(Cel.Formula) - 1) & B
Next Cel
End Sub
复制代码
选中要更改公式的单元格区域后，单击按钮。按照提示输入前面要增加的部分和后面要增加的部分，回车后即可完成公式的批量修改。
注：代码中没有任何防错设置，比如选中是否为单元格区域，单元格区域是否公式相似等等。
详见附件。
13:29 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
17.29 KB, 下载次数: 39, 下载积分: 消费券 -5 Ti币
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 81, 距离下一级还需 169 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
仅限于选中区域，使用受限
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by如题。假设在4:
Z100格任意一个格输入数据或修改数据时，自动插入批注，批注内容为该单元格数据修改时间。怎么做？
Private Sub Worksheet_相关信息hange(ByVal Target As Range)
If Intersect(Target, Range("c4:z100")) Is Nothing Then Exit Sub
If Target.Count & 1 Then Exit Sub
ment Is Nothing Then
Target.AddComment.Text Text:=CStr(Now())
ment.Delete
Target.AddComment.Text Text:=CStr(Now())
ment.Visible = False
End Sub
如果多次修改,所有修改时间都要在批注内:
else
ment.text text:= ment.text & chr(10)...
Private Sub Worksheet_相关信息hange(ByVal Target As Range)
If Intersect(Target, Range("c4:z100")) Is Nothing Then Exit Sub
If Target.Count & 1 Then Exit Sub
ment Is Nothing Then
Target.AddComment.Text Text:=CStr(Now())
ment.Delete
Target.AddComment.Text Text:=CStr(Now())
ment.Visible = False
End Sub
如果多次修改,所有修改时间都要在批注内:
else
ment.text text:= ment.text & chr(10) &ctrs(now())
其他答案（共1个回答）
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
ment Is Nothing Then
Target.AddComment.Text Text:="更改" & Chr(10) & Date & Time()
Else
ment.Text Text:="更改" & Chr(10) & Date & Time()
End If
End Sub
这个问题我觉得应该用change
i = InputBox("请输入行号")
Worksheets("sheet1").Range("A" & i).Sele...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet1.Cells.Inter...
在“工具”菜单——“选项”——重新计算（标签）勾选“以显示精度为准就行了。excel小数后面有的没显示但仍以原来的数参与计算等，比如单元格内为1.3436设置格...
1，如何检索批注内容：
Ctrl+F (find) 或者依次点击：菜单-编辑-查找，出现查找页面。
在左下方位置可以选择查找对象，这里选择：批注，然...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区查看: 4800|回复: 30
怎样批量改一个表里的按钮的caption
阅读权限95
在线时间 小时
如附件，怎样批量改这个表里的按钮的caption，即把commandbutton2的caption改成commandbutton2，依此类推
16:19 上传
点击文件名下载附件
32.48 KB, 下载次数: 76
阅读权限95
在线时间 小时
在VBA中不能修改工作表中控件的Caption属性，等高手解决。
阅读权限95
在线时间 小时
哦，那再等等
那不在工作表中，在USERFORM中可以吗？
阅读权限30
在线时间 小时
在USERFORM中是可以修改BUTTON的CAPTION的。
阅读权限95
在线时间 小时
原帖由 chentx 于
17:09 发表
在USERFORM中是可以修改BUTTON的CAPTION的。
哦，谢谢，我试试去
继续等第一个问题答案
阅读权限95
在线时间 小时
1楼我的测试结果，可行：
Option Explicit
Sub test()
Dim cbm As OLEObject
For Each cbm In Sheet1.OLEObjects
& &&&cbm.Object.Caption = &CommandButton2&
阅读权限95
在线时间 小时
学习应用一下楼上的代码：
Sub test()
& & Dim cbm As OLEObject
& & For Each cbm In Sheet1.OLEObjects
& && &&&If cbm.Object.Caption && cbm.Name Then
& && && && &cbm.Object.Caption = cbm.Name
& && &&&End If
& & Next
End Sub
复制代码
阅读权限95
在线时间 小时
& & & & & & & &
我本来也是Dim cbm As OLEObject，但我是直接写的cbm.caption，没有加object，所以一直没成功，原来只差成功就一步啊，真郁闷
谢谢楼上两位了
阅读权限95
在线时间 小时
再问个问题，如果这27个按钮在userform中该怎么改？
我是这么写的，能运行不出错但没改变
Sub test()
Dim cmb As Control
For Each cmb In UserForm1.Controls
& & cmb.Object.Caption = cmb.Name
阅读权限95
在线时间 小时
原帖由 laoyebin 于
21:48 发表
再问个问题，如果这27个按钮在userform中该怎么改？
我是这么写的，能运行不出错但没改变
Sub test()
Dim cmb As Control
For Each cmb In UserForm1.Controls
& & cmb.Object.Caption = cmb.Name
这个要把Object去掉吧？
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}