vba编程代码大全时间(Excel表格中如何输入时间的VBA代码)

本文目录
Excel表格中如何输入时间的VBA代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Or Target.Cells.Count 》 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Column
Case Is = 7
If Target.Value 》 0 Then
With Target.Offset(0, -4)
If .Value 》 0 Then
Else
If Target.Offset(0, -6) = Target.Offset(-1, -6) Then .Value = Target.Offset(-1, -4).Value
End If
If .Value 》 0 Then
Else
.Value = Now
.NumberFormatLocal = "yyyy-m-d h:mm;@"
End If
End With
End If
End Select
Application.EnableEvents = True
End Sub
请问如何用VBA获取当前的时间呢
方法一:
第一步,获取现在时间,公式:=now()
第二步,判断时间段,公式:=IF(AND(HOUR(B8)》17,HOUR(B8)《21),"A","C")
方法二:
公式:=IF(AND(HOUR(NOW())》17,HOUR(NOW())《21),"A","C")
用VBA自定义公式,轻松在I列汇总行输入公式解决求时间最大值和最大值和最小值时长的问题
在红色区域输入公式:=MaxTime()
代码:
Function MaxTime()
Application.Volatile
Dim TimeRng As Range
Set TimeRng = Range(Application.Caller.Offset(-1, 5).End(xlUp), Application.Caller.Offset(-1, 5))
MaxTime = Application.Max(TimeRng)
End Function
实际测试结果:

更多文章:
java外包用的比较多技术(java后端程序员最常用的技术有哪些,重点技术有哪些)
2026年5月22日 18:30
clip converter(用ClipConverter下载的youku视频在电脑哪个文件夹)
2026年8月24日 21:15
chmod修改权限(ubuntu linux下使用 chmod 修改文件权限,命令后提示【缺少操作数】,求解决方法)
2025年8月3日 09:30
neighborhood在哪买(香港潮牌店铺推荐去香港买什么好)
2026年6月6日 23:00
richtextbox用法(怎样使用C#的RichTextBox控件)
2026年2月13日 20:45
js replace 正则表达式(求一个js正则表达式:替换html内容中除了标签外的特定字符为另外一个字符.)
2025年9月5日 03:00
rock什么意思中文意思(rock是什么意思 rock的中文翻译、读音、例句)
2026年9月6日 10:30
衣香丽影同档次的品牌(太平鸟,伊芙丽,衣香丽影,红袖三彩哪家好)
2026年8月15日 07:15
excel怎么用round保留一位小数(excel如何保留一位小数)
2025年12月21日 16:45
c语言数组元素求和(c语言求数组元素的总和!求助各位大佬!)
2025年9月7日 00:30













