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

唐林

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



动态显示当前系统时间日期.zip (15.18 KB, 下载次数: 79)

2016-12-24 21:43 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

雨吧

2017-1-7 10:22

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

复制代码

(, 下载次数: 16)

上传

点击文件名下载附件

跳转到最佳答案楼层

砂海

Excel 中 当前时间为Now() , 当前 日期为 Today()
但不实时自动刷新

----------------------------
如 需要 实时 自动 , 搜 "钟表" , 站内就有相关内容

苏子龙

用change触发时间或者用迭代？

唐林

有什么办法呢

唐林

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

唐林

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

唐林

哪位帮忙看看怎么解决？

dsmch

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Target = Application.Evaluate("=now()")
   
3. End Sub

复制代码

唐林

麻烦你看下附件，有两个问题

唐林

dsmch 发表于 2017-1-2 18:54

麻烦你看下附件，有两个问题