永发信息网

在EXCEL中,如果某一列的任何一个单元格的内容发生变化,则在固定的单元格内自动显示当前的年月日。

答案:3  悬赏:20  手机版
解决时间 2021-11-09 20:20
在EXCEL中,如果某一列的任何一个单元格的内容发生变化,则在固定的单元格内自动显示当前的年月日。
最佳答案
这个只能用VBA的
给你个例子吧,注意需要在Workbook Open、Sheet selectionchange 、Sheet Change三处使用代码
追问求代码追答WorkBook 通用,定义一个全局变量以便记录所选单元格的旧值,Open时先记录当前单元格(一般是A1)的值
Sheet SelectChange 记录下所选单元格的旧值(如果是A列的话)
Sheet Change,比较新值和旧值,如果不同,赋值B3当前时间(如果是A列)并把新值赋给vOld.q请上电脑下载附件吧,反正你是提问者,下载不需要财富值追问能不能写出详细代码?追答我已经上传了附件,你在附件里就能看到了呀,还能直接测试的
全部回答
设置B3的函数即可追问求详细代码!听说要使用宏追答具体我忘了,就在设置函数那里,调用函数
vba代码如下(注意:这是事件代码,放在thisworkbook对象下)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'当sheet1表的A列改变时,在B3单元格内显示当前日期
Dim strSpecialCol$, strCourCol$
strSpecialCol = "A"
strCourCol = Replace(Replace(Cells(1, Target.Column).Address, "$", ""), "1", "")

If LCase(Sh.Name) = "sheet1" And strSpecialCol = strCourCol Then
[B3] = Date
End If
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
表达感谢的成语心以
结合实例分析建筑工程监理如何加强安全管理
路灯灯线的接线法
章丘四中 2017 高考 怎么样
老人遭儿子毒打,老人该向谁求助
用斯维尔建模时,怎么把一层拷贝到二层?
两个字的昵称女生版
世界古代帝王排名?
5个3怎么算才能等于5
如何让一个电脑装两个系统,WIN7和XP,并可相互
这句英文有错误没
燃烧0.1mol某烷烃,生成CO2为22g,H2O为10.8g
洛浦镇邮政所办公地址在什么地方,我要处理点
惠州市龙门县恒益汽车贸易有限公司地址在哪,
宝健复合蛋白质粉一天吃多少
推荐资讯
啤酒鸡火锅的做法步骤图,啤酒鸡火锅怎么做
以前的好朋友越来越疏远我了怎么办?我想让他
eouggzl是什么牌子 别人说是澳洲UGG的一个品
love mekes yuo hoid on to things yuo shouu
CMA未来发展前景是怎样的
为什么瘦长型的人容易得气胸
陨石打磨的颜色
德标法兰DIN200 PN10,这种描述是什么意思?
胶结材料和胶凝材料的区别是什么?
莎奈国际(杰斯工作室店)地址在什么地方,想过
和腰处,为什么有麻木和疼痛的感觉
我没有开通网银请问可以在网上查询我的储
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?