Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2403|回复: 4

[已解决]A列自动显示时间

[复制链接]
发表于 2017-5-25 06:41 | 显示全部楼层 |阅读模式
请教高手,如何实现这个要求,录入B列,A列自动出现时间.多谢
最佳答案
2017-5-25 07:22
复制到事件里
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 And Target.Row > 1 Then
Cells(Target.Row, 1) = Date
End If
Application.EnableEvents = True
End Sub

A列自动显示时间 .jpg
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-5-25 07:22 | 显示全部楼层    本楼为最佳答案   
复制到事件里
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 And Target.Row > 1 Then
Cells(Target.Row, 1) = Date
End If
Application.EnableEvents = True
End Sub

回复

使用道具 举报

发表于 2017-5-25 07:53 | 显示全部楼层
在a2单元格输入公式if(b2<>"",now(),"")
回复

使用道具 举报

 楼主| 发表于 2017-5-25 19:13 | 显示全部楼层
本帖最后由 598598 于 2017-5-25 19:15 编辑
水上漂123 发表于 2017-5-25 07:53
在a2单元格输入公式if(b2"",now(),"")

谢谢回复,以后会有好多数据,那一列不确定要下拉多少公式,工作薄做的很大,想能省点内存省点内存,还是希望有个代码最好吧
回复

使用道具 举报

发表于 2017-5-25 19:23 | 显示全部楼层
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Count = 1 Then
  3.     If Target.Column = 2 And Target.Row > 1 Then
  4.       Target.Offset(0, -1) = Now
  5.     End If
  6. End If
  7. End Sub
复制代码
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 09:30 , Processed in 0.319785 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表