[已解决]怎么在F列输入日期时间后，GH列自动判断填写

透明世界1987

Desktop.zip (143.78 KB, 下载次数: 7)

2022-11-10 14:09 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-11-10 14:26

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 6 Then Exit Sub
    Target.Offset(, 1) = Int(Target.Value)
    Target.Offset(, 2) = IIf(Hour(Target.Value) < 11, "上午", IIf(Hour(Target.Value) < 15, "下午", "晚上"))
End Sub

跳转到最佳答案楼层

哥儿-

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 6 Then Exit Sub
    Target.Offset(, 1) = Int(Target.Value)
    Target.Offset(, 2) = IIf(Hour(Target.Value) < 11, "上午", IIf(Hour(Target.Value) < 15, "下午", "晚上"))
End Sub