excel图表如何记录指定单元格每次修改的时间?
发布时间:2022-10-12 00:45:31
Q:我想要在用户修改工作表指定单元格的内容时,在另一工作表中记录修改的时间。例如,在工作表Sheet1的单元格B2中,每次用户将该单元格值修改为某一大于0的数值时,则在工作表LogB2中记录下其修改的时间。
具体地说,如果在2019年10月24日19时30分30秒,用户将单元格B2中的值修改为280,那么在工作表LogB2中记录下时间2019-10-24 19:30:30;如果在2019年10月25日8时10分15秒又将单元格B2中的值修改为100,那么工作表LogB2中增加一条时间记录2019-10-25 8:10:15。
A:这可以使用工作表事件来完成。
打开VBE,双击工作表Sheet1对象模块,输入代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngInput As Range
Dim rngLog As Range
‘要记录其修改时间的单元格
Set rngInput = Range(“B2”)
‘确定单元格是目标单元格
If Intersect(rngInput, Target.Cells(1, 1)) Is Nothing Then Exit Sub
‘修改为小于0的值不记录
If rngInput.Value <= 0 Then Exit Sub
‘将修改单元格时的时间记录到工作表LogB2
With Worksheets(“LogB2”)
‘工作表最后一行
Set rngLog = .Cells(.Rows.Count,1).End(xlUp)
‘确定工作表最后一行单元格含有值
If Len(rngLog.Value) > 0 Then
‘移至下方相邻的空单元格
Set rngLog = rngLog.Offset(1, 0)
End If
End With
‘写入当前时间
rngLog.Value = Now
End Sub
Q:我想增加记录另一个单元格的修改时间,例如单元格D2每次修改的值大于0时,将修改的时间记录到工作表LogD2中,如何编写代码?
A:同样使用工作表事件来完成。
打开VBE,双击工作表Sheet1对象模块,输入代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngLog As Range
Dim wksLog As Worksheet
‘根据所修改的单元格
‘赋值相应的工作表
Select Case Target.Cells(1, 1).Address
Case “$B$2”
Set wksLog =Worksheets(“LogB2”)
Case “$D$2”
Set wksLog =Worksheets(“LogD2”)
Case Else
Exit Sub
End Select
‘如果修改的值小于0则不记录修改时间
If Target.Cells(1, 1).Value <= 0 ThenExit Sub
With wksLog
‘工作表数据所在的最后一行
Set rngLog = .Cells(.Rows.Count, 1).End(xlUp)
‘如果最后一个数据单元格包含值
If Len(rngLog.Value) > 0 Then
‘偏移到下方相邻单元格
Set rngLog = rngLog.Offset(1, 0)
End If
End With
‘写入当前时间
rngLog.Value = Now
End Sub
猜你喜欢
- 最近随着微软的最新Win10 21H1系统的升级,也有一波系统停止服务。而最就有不少用户在使用电脑的时候出现了“你的windows10版本已
- word空白页怎么删都删不掉怎么办呢?想要删除空白页,针对三种常见的空白页删除操作,以下有详细的解答,一起来看看吧!1、表格空白页表格造成的
- 在我们平常Word文档的编辑中,为了让文档中的数据看起来更为直观,我们会制作相应的图表,近期有用户在问Word柱状图怎么做?其实方法很简单,
- 有的时候我们会用右击桌面进行快捷新建Excel表格,但是有的时候我们会发现右肩芯片里面竟然没有Excel表格,那么这时候怎么办呢?因为现在W
- 一、好用的F4键Word的神器—F4键,它的功能:重复上一步操作,它会100%执行您按下F4键前的那一步操作,即您上一步是做了什么操作,按F
- 在使用WPS表格时,我们常常会为了让表格看起来更加美观或者想要在图形中加上文字注释,该怎么办呢?所以下面小编就为大家介绍下WPS表格中怎样加
- Acrobat打开的pdf文件怎么进行印前检查?Acrobat打开的pdf文件打印之前想要查看是否出问题,该怎么做打印前检查呢?下面我们就来
- PC 游戏玩家在 Windows 11 或 Windows 10 游戏计算机上容易遇到很多问题。这些问题可能是VALORANT 连接错误、不
- EXCEL更改垂直轴的数据该怎么改呢,下面就为大家介绍一下方法,希望对家有所帮助操作步骤如下:双击纵坐标值。在出来的对话框里的刻度里的最小值
- Excel图表怎么制作双色背景图?之前我们介绍过怎么制作图表,但是还没有介绍过图表的背景是双色的,今天我们就来看看这个双 * 表的制作方法,需
- 我们打印一篇有很多页的文档时,Word默认总是从第一页打印到最后一页,所以文档打印完后是最后一页在最上面,第一页在最下面,是按页号的逆序排列
- 去英文方法一: 第一步:“编辑”-“查找”-“替换”—打开“查找与替换”对话框-“高级” 第二步
- 在拖放选定的一个或多个单元格至新位置的同时,按住Shift键可以快速修改单元格内容的次序。方法为:选定单元格,按下Shift键,移动鼠标指针
- Excel分页符有什么作用呢?下面给大家介绍分页符的作用。1、分页符的作用Excel中的分页符我们可以清晰的看到,打印的页面被分隔的页数,和
- 当你在编辑一些重要的文档资料时,想要让浏览者认识到这篇文档的重要性或者原创性。那么word怎么添加水印?下面小编就为大家介绍word制作水印
- 有时候,文档很大,页数很多,我们需要进行导航目录检索,在左边显示章节目录,方便阅览文档。左栏显示章节目录。那么下面就由小编为您分享下显示检索
- Excel怎么使用滚动条控件计算动态面积?做了一个数据表,图表中有滚动条,如果想面积该怎么办呢?这时候我们就可以使用Excel滚动条控件来计
- word文档中英文对不齐怎么办?文档过程中发生了中英文无法对齐问题的,可以来采用下文的方法设置对齐中英文哦。那么下面就由小编给大家分享下设置
- 赛博朋克2077是一款非常科幻的一款有消息,这款游戏对电脑的配置要求很高,有不少使用Win10系统的小伙伴在玩这款游戏的时候碰到了闪退的情况
- 1.利用"大纲"视图打开PPT演示文稿,单击"大纲",在左侧"幻灯片/大纲"任务