[已解决]只要B6:B34区域有输入任何数据H7马上更新现在时间日期yyyy-mm-dd HH:MM:SS AM/PM

niko88819

如题目,请帮忙,谢谢

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2015-9-13 11:16

见附件，SHEET1和SHEET3两个版本，SHEET1的版本中，如果黄色高亮区域发生数据删除，H7的时间维持不变，SHEET3的版本中，如果黄色高亮区域发生数据删除，H7的时间清空。

跳转到最佳答案楼层

七彩屋

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Row < 6 And Target.Row > 34 Then Exit Sub
   
4. If Target.Column = 2 And Target <> "" Then
   
5. Cells(Target.Row, "H") = Now
   
6. Cells(Target.Row, "H").NumberFormatLocal = "dd-mmm-yyyy   hh:mm AM/PM"
   
7. End If
   
8. End Sub

复制代码

七彩屋

Book25-0913.rar (7.98 KB, 下载次数: 4)

2015-9-13 10:43 上传

点击文件名下载附件

Hsiao

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Row > 5 And Target.Row < 35 And Target.Column = 2 Then
   
3.      [h7] = Format(Now, "yyyy-mm-dd HH:MM:SS")
   
4. End If
   
5. End Sub

复制代码

yorkchenshunan

见附件，SHEET1和SHEET3两个版本，SHEET1的版本中，如果黄色高亮区域发生数据删除，H7的时间维持不变，SHEET3的版本中，如果黄色高亮区域发生数据删除，H7的时间清空。

niko88819

谢谢三位老师