VBA代码，怎么修改引用I列A列日期自动显示不带时间。

天真无鞋

VBA代码，怎么修改引用I列，A列日期自动显示不带时间。



代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)

'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("I:I"), Target)
xOffsetColumn = -8
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
        
    Next
    Application.EnableEvents = True
End If

End Sub

ykcbf1100

把Now改成Date

3190496160

Rng.Offset(0, xOffsetColumn).Value = date

天真无鞋

ykcbf1100 发表于 2024-1-17 08:25
把Now改成Date

非常感谢大哥

天真无鞋

3190496160 发表于 2024-1-17 09:09
Rng.Offset(0, xOffsetColumn).Value = date

非常感谢大哥