A列签到，B列自动生成日期。

2008lhr · 发表于 2024-12-21 19:57

求助各位老师，我在B列设置了，只要在A列签到，B列自动生成当天日期的公式。但我今天进入文档查看日期时，发现日期变为今天的日期，请问怎样设置公式，昨天及以前的日期不变为今天日期。谢谢！！

lanjian229 · 发表于 2024-12-21 20:03

这种只能用循环的方法，或者vba

mykitami · 发表于 2024-12-21 20:05

公式解决不了，需要VBA

无关岁月 · 发表于 2024-12-21 20:20

VBA

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Target.Offset(0, 1) = Now()
End Sub

复制代码

uneye2 · 发表于 2024-12-21 20:35

本帖最后由 uneye2 于 2024-12-21 21:01 编辑

姓名固定，B列签到。

签到.rar (10.06 KB, 下载次数: 3)

图片1.png

lanjian229 · 发表于 2024-12-21 20:37

利用循环的bug使易失函数不失，设置里面的循环不能勾选，不然会重新计算

lanjian229 · 发表于 2024-12-21 20:45

或者利用数据有效性

2008lhr · 发表于 2024-12-21 20:53

本帖最后由 2008lhr 于 2024-12-21 20:55 编辑

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A2" Then Application.EnableEvents = False Range("B2").Value = Date Application.EnableEvents = True End If End Sub

也不行

quqiyuan · 发表于 2024-12-21 21:49

本帖最后由 quqiyuan 于 2024-12-21 21:51 编辑

vba参与一下。。。

quqiyuan · 发表于 2024-12-21 21:52

代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For Each Rng In Target
      If Rng.Column = 1 And Rng.Row > 1 And Len(Rng) > 0 Then
         Rng.Offset(, 1) = Date
      ElseIf Rng.Column = 1 And Rng.Row > 1 And Len(Rng) = 0 Then
         Rng.Offset(, 1) = Empty
      End If
Next
Application.EnableEvents = True
End Sub

		自动登录	找回密码
密码			免费注册

[求助] A列签到，B列自动生成日期。

评分

评分