求助各位大佬，有关数字转日期的疑问

anson

ynzsvt 发表于 2024-7-27 19:41
输入前设置格式，去掉日期格式即可。

谢谢！试过了

醉眼看尘世

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim tmpStr$, tmPdate As Date
    If Target.Row >= 1 And Target.Column = 1 And Target.Count = 1 Then
        Application.EnableEvents = False
        If Target <> "" Then
            tmpStr = Year(Date) & Format(Target.Value * 1, "-00-00")
            tmPdate = DateValue(tmpStr)
            If Err.Number = 0 Then
                Target = tmPdate
            Else
                Err.Clear
                Target.ClearContents
            End If
        End If
        Application.EnableEvents = True
    End If
End Sub

ynzsvt

anson 发表于 2024-7-27 20:31
谢谢！试过了

value改为value2可以免除事先产生的日期格式的删除。

anson

ykcbf1100 发表于 2024-7-27 19:59
1125要转为11月15日，这个首先得对1125转为字符值，然后，每2位进行拆分，最后再合并成11月25日的样子。
...

这方法是可以，只是没有了日期格式，但还是谢谢您的解答！

anson

ynzsvt 发表于 2024-7-27 20:39
value改为value2可以免除事先产生的日期格式的删除。

是可以哦，改了value2之后可以了，非常感谢！