
EXCEL单元格公式具有“反馈式”特征,即表格中任一个单元格数据发生变化后,所有这个词建立了公式的单元格数据也随之变化。也即是说,唯一手动操作单元格后,才气激活其它公式单元格的反馈。
举例,EXCEL函数NOW复返年、月、日以及小时和分钟,如4/5/2023 8:03。淌若表格中单元格莫得变化,则披露时间不变,唯一某个单元格发生变化了,录入函数NOW的单元格才会更新时间。
当要求依期、或按其它条款自动触发公式单元格的反馈,则需要用EXCEL VBA设定设定条款自动触发句柄来达成。
一、EXCEL自动化建立事件驱动事件
1、用VBA的Application.OnTime设定肖似运行操作
VBA的Application.OnTime事件指定一个进程在改日特定时间开赴点运行,是VBA十分病笃的定时触发事件,需要依期自动措置EXCEL表格时就会用到。
为此,编写事件【WriteRandomNumber】代码如下:
Sub WriteRandomNumber()Dim sTime As StringsTime = '00:00:' & Sheet1.Range('C4').ValueRandomize' 运行化当场数生成器Sheet1.Range('C3').Value = Int(Rnd * 100)' 生成0 到 100 之间的当场数并将其写入 A1 单元格Application.OnTime Now + TimeValue(sTime), 'WriteRandomNumber', , True' 延伸C4指定秒数肖似推论 WriteRandomNumberEnd Sub运行【WriteRandomNumber】事件,轮番完成以下操作:
三唑仑网上商城购买在EXCEL表格sheet1单元格C4读取自动变化时工夫隔(单元为秒);生成生成0 到 100 之间的当场数并将其写入 A1 单元格;延伸指定秒数肖似运行事件WriteRandomNumber。将【WriteRandomNumber】事件代码复制、粘贴到【模块1】剪辑栏中,如图:
迷水商城迷水商城迷水商城迷水商城图片
图1:复制、粘贴【WriteRandomNumber】事件代码到【模块1】剪辑栏中
2、大开EXCEL文档时自动启动运行【WriteRandomNumber】事件代码
迷水商城大开EXCEL文档事件剪辑窗口
图片
图2:鼠标双击资源措置器的【ThisWorkBoob】,在弹出文档事件窗口【通用】选项中选【文档事件】
图片
迷水商城图3:在弹出文档事件窗口【声明】选项中选事件【Open】
将代码【Call WriteRandomNumber】复制、粘贴到事件Workbook_Open中,
图片
图4:文档大开时启动事件【Open】,运行事件【WriteRandomNumber】
迷水商城大开文档时运行事件【WriteRandomNumber】,成果演示如下:
图片
图5:文档大开时运行事件【WriteRandomNumber】,指定单元格中数字自动变化
3、EXCEL自动化建立实例
图片
迷水商城图6:文档大开时运行事件【WriteRandomNumber】,西班牙苍蝇粉哪里有卖的单元格C3按C4指定时长(秒)自动变化
迷水商城当EXCEL表格中某一个单元格(C3)被依期驱动后,不错用这个被驱动单元格其它更多单元格。
【图6】中驱动章程及内容如下:
数据驱动文档大开后,事件【WriteRandomNumber】按单元格【C3】指定秒数驱动单元格【C4】,及定时生成当场数并赋值给单元格【C3】;
时间变量驱动由于许大齐据和时间关联,不错在数据驱动基础上建立时间驱动单元格。
图片
图7:在单元格C7:C16建立不同工夫变量
注:函数【DATEVALUE】计较1900年到咫尺天数
因为是按秒驱动,只可直不雅看到单元格【C16】中秒数的变化,60秒后单元格【C15】均分钟数就会自动变化,其它时间单元格类似。需要某些时间按特定时间自动变换或更新时,和关联时间单元单元格绑定即可。
迷水商城空间变量驱动统计数据不但相似和时间关联,也和空间关联,即所谓“时空”关联。
图片
图8:在单元格C19:C21建立X、Y、Z变量
注:这里空间变量赋值为0-100间的整数,不错把柄本体情况建立不同空间变量值
迷水商城当一个表格建立了单元格自动变化功能后,该文档其它表格也不错绑定动态单元格,从而自动变换、更新。
图片
迷水商城图9:归并文档中不同表格数据互动成果
注:右边表格sheet1为数据驱动表格,左边表格sheet2单元格【A1:E10】为当场数。sheet1某个单元格依期变化后,也引起sheet2数据的变动
迷水商城达成EXCEL自动化建立在表情演示、依期(按条款)提示、自动报表等方面被庸俗愚弄。
迷水商城 本站仅提供存储做事,所有这个词内容均由用户发布,如发现存害或侵权内容,请点击举报。