Excel精英培训网

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

[已解决]时间代码修改

[复制链接]
发表于 2016-4-24 16:26 | 显示全部楼层 |阅读模式
本帖最后由 安全网 于 2016-4-24 17:08 编辑

Private Sub Worksheet_Change(ByVal Target As Range)
    Rem 如果同时输入多个单元格内容就退出过程
    If Target.Count > 1 Then Exit Sub
    Rem 如果改变的单元格列号大于1,既不是A列,就退出过程
    If Target.Column > 1 Then Exit Sub
    Rem 关闭事件触发程序,防止触发连锁事件
    Application.EnableEvents = False
    Rem B列输入日期及时间
    Target.Offset(0, 5) = Now
    Rem 恢复事件触发程序
    Application.EnableEvents = True
End Sub
求助比如要选择B列从第3行输入的数据,就在香油偏移的5列单元格记录当前录入数据的具体时间的VBA代码修改求助
最佳答案
2016-4-24 16:34
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Rem 如果同时输入多个单元格内容就退出过程
  3.     If Target.Count > 1 Then Exit Sub
  4.     Rem 如果改变的单元格不是B列,行号小于3,就退出过程
  5.     If Target.Column <> 2 Then Exit Sub
  6.     If Target.Row < 3 Then Exit Sub
  7.     Rem 关闭事件触发程序,防止触发连锁事件
  8.     Application.EnableEvents = False
  9.     Rem 向右5列输入日期及时间
  10.     Target.Offset(0, 5) = Now
  11.     Rem 恢复事件触发程序
  12.     Application.EnableEvents = True
  13. End Sub
复制代码
发表于 2016-4-24 16:34 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Rem 如果同时输入多个单元格内容就退出过程
  3.     If Target.Count > 1 Then Exit Sub
  4.     Rem 如果改变的单元格不是B列,行号小于3,就退出过程
  5.     If Target.Column <> 2 Then Exit Sub
  6.     If Target.Row < 3 Then Exit Sub
  7.     Rem 关闭事件触发程序,防止触发连锁事件
  8.     Application.EnableEvents = False
  9.     Rem 向右5列输入日期及时间
  10.     Target.Offset(0, 5) = Now
  11.     Rem 恢复事件触发程序
  12.     Application.EnableEvents = True
  13. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2016-4-26 15:23 | 显示全部楼层
grf1973 发表于 2016-4-24 16:34

能否加入单元格如果是空的相应的单元格就不显示日期
回复

使用道具 举报

发表于 2016-4-26 19:49 | 显示全部楼层
第10句改为 if len(Target)>0 then Target.Offset(0, 5) = Now
回复

使用道具 举报

 楼主| 发表于 2016-4-26 19:53 | 显示全部楼层
grf1973 发表于 2016-4-26 19:49
第10句改为 if len(Target)>0 then Target.Offset(0, 5) = Now

谢谢!
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-30 00:00 , Processed in 0.439865 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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