永发信息网

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

答案:3  悬赏:20  手机版
解决时间 2021-11-09 20:20
  • 提问者网友:最美的风景
  • 2021-11-09 14:47
在EXCEL中,如果某一列的任何一个单元格的内容发生变化,则在固定的单元格内自动显示当前的年月日。
最佳答案
  • 五星知识达人网友:酒安江南
  • 2021-11-09 15:27
这个只能用VBA的
给你个例子吧,注意需要在Workbook Open、Sheet selectionchange 、Sheet Change三处使用代码
追问求代码追答WorkBook 通用,定义一个全局变量以便记录所选单元格的旧值,Open时先记录当前单元格(一般是A1)的值
Sheet SelectChange 记录下所选单元格的旧值(如果是A列的话)
Sheet Change,比较新值和旧值,如果不同,赋值B3当前时间(如果是A列)并把新值赋给vOld.q请上电脑下载附件吧,反正你是提问者,下载不需要财富值追问能不能写出详细代码?追答我已经上传了附件,你在附件里就能看到了呀,还能直接测试的
全部回答
  • 1楼网友:梦中风几里
  • 2021-11-09 17:04
设置B3的函数即可追问求详细代码!听说要使用宏追答具体我忘了,就在设置函数那里,调用函数
  • 2楼网友:西岸风
  • 2021-11-09 16:18
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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯