[已解决]使用自动更新时间维护设备管理，求助，在线等。谢谢

faya1314

   填写领用数量后，领用时间自动显示，总共领用次数有10次。
后面有采买数量填写后，采买时间自动显示，总共采买数量4次。
  每行的所有时间自动显示后，不会随着下个时间而更新。
请大神Help,谢谢。
   我这里实现一个代码，请指导。
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Count = 1 And Target.Column = 7 Then
     Target.Offset(, 1) = Now()
     Target.Offset(, 1).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
     End If
End Sub

最佳答案

月排行榜 / 总排行榜

sry660

2016-3-23 10:15

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     With Target
   
3.         If .Count = 1 And (.Column = 9 Or .Column = 13 Or .Column = 17 _
   
4.             Or .Column = 21 Or .Column = 25 Or .Column = 29 Or .Column = 33 _
   
5.             Or .Column = 37 Or .Column = 41 Or .Column = 45 Or .Column = 49 _
   
6.             Or .Column = 51 Or .Column = 53 Or .Column = 55) Then
   
7.             .Offset(, 1) = Now()
   
8.             .Offset(, 1).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
   
9.         End If
   
10.     End With
    
11. End Sub

复制代码

跳转到最佳答案楼层

faya1314

附件信息，Help

sry660

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     With Target
   
3.         If .Count = 1 And .Column = 9 Then
   
4.             .Offset(, 1) = Now()
   
5.             .Offset(, 1).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
   
6.         End If
   
7.     End With
   
8. End Sub

复制代码

faya1314

sry660 发表于 2016-3-23 09:58

你好，只有J行时间出来，后面N,R,V,Z,AD,AH,AL,AP,AT,AX,AZ,BB,BD输入后都没有出时间呢，谢谢~

sry660

faya1314 发表于 2016-3-23 10:06
你好，只有J行时间出来，后面N,R,V,Z,AD,AH,AL,AP,AT,AX,AZ,BB,BD输入后都没有出时间呢，谢谢~

那你把自己想要实现的效果表达清楚吧

faya1314

sry660 发表于 2016-3-23 10:08
那你把自己想要实现的效果表达清楚吧

当I行，输入领用数量时，J行显示当前时间，
M行，输入领用数量时，N行显示当前时间，
Q行，输入领用数量时，R行显示当前时间，
U行，输入领用数量时，V行显示当前时间，
Q行，输入领用数量时，R行显示当前时间，
Y行，输入领用数量时，Z行显示当前时间，
AC行，输入领用数量时，AD行显示当前时间，
AG行，输入领用数量时，AH行显示当前时间，
AK行，输入领用数量时，AL行显示当前时间，
AO行，输入领用数量时，AP行显示当前时间，
AG行，输入领用数量时，AH行显示当前时间，
AS行，输入领用数量时，AT行显示当前时间，
AW行，输入领用数量时，AX行显示当前时间，
AY行，输入领用数量时，AZ行显示当前时间，
BA行，输入领用数量时，BB行显示当前时间，
BC行，输入领用数量时，BD行显示当前时间，

02761752696

faya1314 发表于 2016-3-23 09:11
附件信息，Help

是这样吗？

sry660

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     With Target
   
3.         If .Count = 1 And (.Column = 9 Or .Column = 13 Or .Column = 17 _
   
4.             Or .Column = 21 Or .Column = 25 Or .Column = 29 Or .Column = 33 _
   
5.             Or .Column = 37 Or .Column = 41 Or .Column = 45 Or .Column = 49 _
   
6.             Or .Column = 51 Or .Column = 53 Or .Column = 55) Then
   
7.             .Offset(, 1) = Now()
   
8.             .Offset(, 1).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
   
9.         End If
   
10.     End With
    
11. End Sub

复制代码

sry660

faya1314 发表于 2016-3-23 10:13
当I行，输入领用数量时，J行显示当前时间，
M行，输入领用数量时，N行显示当前时间，
Q行，输入领用数量 ...

已更新，在8楼

faya1314

02761752696 发表于 2016-3-23 10:14
是这样吗？

是多行显示时间，
当I行，输入领用数量时，J行显示当前时间，
M行，输入领用数量时，N行显示当前时间，
Q行，输入领用数量时，R行显示当前时间，
U行，输入领用数量时，V行显示当前时间，
Q行，输入领用数量时，R行显示当前时间，
Y行，输入领用数量时，Z行显示当前时间，
AC行，输入领用数量时，AD行显示当前时间，
AG行，输入领用数量时，AH行显示当前时间，
AK行，输入领用数量时，AL行显示当前时间，
AO行，输入领用数量时，AP行显示当前时间，
AG行，输入领用数量时，AH行显示当前时间，
AS行，输入领用数量时，AT行显示当前时间，
AW行，输入领用数量时，AX行显示当前时间，
AY行，输入领用数量时，AZ行显示当前时间，
BA行，输入领用数量时，BB行显示当前时间，
BC行，输入领用数量时，BD行显示当前时间，