如何在代码中动态为TextView网站更新文章设置动态代码ADSdrawableRight

查看: 14730|回复: 14
如何在单元格数值改变后,自动运行宏???
阅读权限30
在线时间 小时
如题,谢谢
阅读权限95
在线时间 小时
在change事件中写上你要执行的宏即可
阅读权限30
在线时间 小时
嗯???单元格没有change事件呀。请问,在那里编写change程序呀???
我是一天都开着excel,电脑自动更新数据后,就要运行宏,做最后的整理工作!
Private Sub Workbook_Open()
Application.OnTime TimeValue("1:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("2:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("3:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("4:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("5:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("6:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("7:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("8:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("9:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("10:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("11:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("12:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("13:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("14:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("15:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("16:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("17:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("18:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("19:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("20:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("21:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("22:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("23:0:0"), "隔一小时更新一次()"
Application.OnTime TimeValue("0:0:0"), "隔一小时更新一次()"
我这个方法非常搞笑,呵呵,但是就是为了达到这个目的!!!请问有什么简单的方法不?
[此贴子已经被作者于 22:38:37编辑过]
阅读权限95
在线时间 小时
A1的值改变后执行Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then MsgBox Target
阅读权限30
在线时间 小时
谢谢!!!
这个是不是excel自动的分析A1的值是不是改变了,然后执行我写的宏呢???我写的宏怎么调用呀???
比如:A1值改变后,我要运行宏“text1”怎么写呢??
[此贴子已经被作者于 22:57:20编辑过]
阅读权限95
在线时间 小时
楼主试一试以下,是不是你要的.Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address() = "$A$1" Then
阅读权限30
在线时间 小时
谢谢大家帮忙,是这样的,单元格A1的数据是从网上通过web查询得到的。我设置为一小时更新一次,所以我想,更新完,A1值改变了,就运行我的程序。不知道这样表达清楚没有?
上传了一个例子!!!
(2.29 KB, 下载次数: 228)
21:32 上传
点击文件名下载附件
[此贴子已经被作者于 21:30:09编辑过]
阅读权限30
在线时间 小时
Sub 统计()
Sheets("报价").Select
Cells(2, 8) = Cells(2, 4)
Application.OnTime Now() + TimeValue("01:00:00"), "统计"
这是蓝色幻想版主给我的,但是我用了好像有点问题!!!它会更新两次,我用这个方法没有使用web查询的自动更新。而且程序放在什么位置也搞不清楚。呵呵,乱来的,希望给我答复的大侠写清楚:)
阅读权限20
在线时间 小时
单元格数值改变(非输入)时如何运行宏?
各位高手,老师好:单元格数值改变可用change事件,从而运行特定宏,但是这数值改变只能是输入时才能触发,如果不是通过输入而是由公式而改变数值,change事件不起作用,如:单元格A1=A2+A3+A4,如果A1数值改变(通过改变A2-A4值),就不能运行宏,请问怎样运行?谢谢!
阅读权限50
在线时间 小时
蓝天白云3 发表于
各位高手,老师好:单元格数值改变可用change事件,从而运行特定宏,但是这数值改变只能是输入时才能触发, ...
同问上面问题
最新热点 /1
ExcelHome每周都有线上直播公开课,
国内一流讲师真身分享,高手贴身答疑,
赶不上直播还能看录像,
关键居然是免费的!
厚木哥们都已经这么努力了,
你还好意思说学不好Office。
玩命加载中,请稍候
玩命加载中,请稍候
Powered by
本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任! & & 本站特聘法律顾问:徐怀玉律师 李志群律师

我要回帖

更多关于 网站更新文章设置动态代码ADS 的文章

 

随机推荐