[已解决]动态显示当前系统时间日期

唐林

哪位帮忙看看怎么解决？

sandorn

当修改U列某单元格内容时，取当前日期和时间放入A列对应单元格

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column = "21" Then
   
3.         Cells(Target.Row, 1) = Evaluate("now()")
   
4.         Cells(Target.Row, 1).NumberFormatLocal = "yyyy-m-d h:mm"
   
5.     End If
   
6. End Sub

复制代码

不懂见附件
动态显示当前系统时间日期.zip (22.37 KB, 下载次数: 26)

2017-1-4 13:29 上传

点击文件名下载附件



第二个问题没太看懂，比如上次已经到U8，重新打开文件，从U8继续向下吗？

唐林

sandorn 发表于 2017-1-4 13:28
当修改U列某单元格内容时，取当前日期和时间放入A列对应单元格

不懂见附件

第一个问题：当U列有内容时，在A列生成当前系统时间（增加一个内容，B至G列里的公式下拉，比如U3单元格有内容时，A3单元格生产当前系统时间，在B3至G3生成对应的内容，当U4单元格有内容时在A4单元格生产当前系统时间，在B4至G4把第三列的公式下拉生成对应的内容）；
相应的当V列有内容时，在K列生成当前系统日期，L至S列也如上。
第二问题：就是有个“入库”按钮，每次点击一下，就选中下一单元格（比如从U2单元格开始，第一次选中U2，然后一直向下，U列的单元格有数据，再单元“入库”按钮就选中下一单元格，以此类推。。。）；“发料”按钮也一样。

唐林

顶起来，哪位帮忙解决下，谢谢！

唐林

哪位帮忙看看怎么解决？

雨吧

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Row > 3 Then
   
3.         If Target.Column = 21 Or Target.Column = 22 Then
   
4.             If Len(Target) Then
   
5.                 Dim x%
   
6.                 x = (Target.Column - 21) * 10 + 1
   
7.                 Cells(Target.Row, x) = Format(Now, "c")
   
8.                 Cells(Target.Row - 1, x + 1).AutoFill Destination:=Range(Cells(Target.Row - 1, x + 1), Cells(Target.Row, x + 1))
   
9.                 Cells(Target.Row, x + 1).AutoFill Destination:=Range(Cells(Target.Row, x + 1), Cells(Target.Row, x + 8))
   
10.             End If
    
11.         End If
    
12.     End If
    
13. End Sub

复制代码

动态显示当前系统时间日期.rar (23.29 KB, 下载次数: 16)

2017-1-7 10:22 上传

点击文件名下载附件

；doaihvdsoh

第一个问题   =IF(U5="","",IF(A5="",TEXT(NOW(),"yyyy-m-d h:mm:ss"),A5))   记得勾选迭代计算

；doaihvdsoh

第二个问题  因为VBA没学过 不会