Excel精英培训网

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

[已解决]自动更新时间求助。

[复制链接]
发表于 2016-3-18 13:24 | 显示全部楼层 |阅读模式
修改代码:
目前Excel中  A行输入字符,B行自动显示当前时间:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim c As Range: Set c = Target
If c.Count = 1 And c.Column = 1 Then
Application.EnableEvents = False
c.Offset(, 1) = Format(Date + Time, "yyyy/mm/dd hh:mm:ss")
c.Offset(, 1).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
Application.EnableEvents = True
End If
End Sub
需要进行修改:F行输入字符,H行自动显示当前时间!
谢谢,大神。
最佳答案
2016-3-18 13:42
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Column = 6 Then
    Target.Offset(, 2) = Now()
    Target.Offset(, 2).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
    End If
End Sub
发表于 2016-3-18 13:40 | 显示全部楼层
把c.column=1改为c.column=6,把 c.Offset(, 1) 改为 c.Offset(, 2)即可。
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     With Target
  3.         If .Count = 1 And .Column = 6 Then
  4.             Application.EnableEvents = False
  5.             .Offset(, 2) = Now
  6.             .Offset(, 2).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
  7.             Application.EnableEvents = True
  8.         End If
  9.     End With
  10. End Sub
复制代码
回复

使用道具 举报

发表于 2016-3-18 13:42 | 显示全部楼层    本楼为最佳答案   
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Column = 6 Then
    Target.Offset(, 2) = Now()
    Target.Offset(, 2).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
    End If
End Sub
回复

使用道具 举报

发表于 2016-3-18 13:43 | 显示全部楼层
另外,在excel里,请分清行(1、2、……)与列(A、B、……)的概念,否则以后问问题会产生很多误解
回复

使用道具 举报

发表于 2016-3-18 17:46 来自手机 | 显示全部楼层
用工作表函数好了,并设置g列的单元格格式。
怎样省事怎样处理,除非就为学习代码。
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 19:05 , Processed in 0.311062 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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