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

anson

想要实现单元格上输入4位数字后就能自动转为只有月和日的日期，附件上为什么在第四行就会出现不一样的呢，求助各位大佬的帮助！

ynzsvt

增加3位数的月日即一位数的月份的数据处理

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Row >= 1 And Target.Column = 1 And Target.Count = 1 Then
   
3.   If Target <> "" Then
   
4.    If Len(Target.Value) = 3 Then
   
5.     Target.Value = Left(Target.Value, 1) & "-" & Right(Target.Value, 2)
   
6.    ElseIf Len(Target.Value) = 4 Then
   
7.     Target.Value = Left(Target.Value, 2) & "-" & Right(Target.Value, 2)
   
8.    End If
   
9.   End If
   
10. End If
    
11. End Sub

复制代码

anson

ynzsvt 发表于 2024-7-27 10:38
增加3位数的月日即一位数的月份的数据处理

首先谢谢您的解答，这个我是知道的。只是现在要解决的问题是在第4行单元格上输入1125后就出现了1903/1/29，我想要的是11月25日的结果

醉眼看尘世

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tmPstr$
Application.EnableEvents = False
    If Target.Row >= 1 And Target.Column = 1 And Target.Count = 1 Then
        If Target <> "" Then
            tmPstr = Year(Date) & Format(Target, "-00-00")
            Target = DateValue(tmPstr)
            Target.NumberFormatLocal = "mm月dd日"
        End If
    End If
Application.EnableEvents = True
End Sub

shiruiqiang

1、单元格设置成"文本"
2、"-" 换成“/”。

明天会更好zj

给你建议，最好的方法，就是规范录入日期。

ynzsvt

anson 发表于 2024-7-27 19:01
首先谢谢您的解答，这个我是知道的。只是现在要解决的问题是在第4行单元格上输入1125后就出现了1903/1/29 ...

输入前设置格式，去掉日期格式即可。

ynzsvt

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Row >= 1 And Target.Column = 1 And Target.Count = 1 Then
   
3.   If Target <> "" Then
   
4.    If Len(Target.Value2) = 3 Then
   
5.     Target.Value2 = Left(Target.Value2, 1) & "-" & Right(Target.Value2, 2)
   
6.    ElseIf Len(Target.Value2) = 4 Then
   
7.     Target.Value2 = Left(Target.Value2, 2) & "-" & Right(Target.Value2, 2)
   
8.    End If
   
9.   End If
   
10. End If
    
11. End Sub

复制代码

ykcbf1100

anson 发表于 2024-7-27 19:01
首先谢谢您的解答，这个我是知道的。只是现在要解决的问题是在第4行单元格上输入1125后就出现了1903/1/29 ...

1125要转为11月15日，这个首先得对1125转为字符值，然后，每2位进行拆分，最后再合并成11月25日的样子。
比如：[a4]=1125,转换过程如下：st=cstr([a4].value)
                                                a1=mid(st,1,2)
                                                a2=mid(st,3,2)
                                                rq=a1 & "月“ & a2 & "日"

anson

明天会更好zj 发表于 2024-7-27 19:39
给你建议，最好的方法，就是规范录入日期。

谢谢建议，数量多，录入日期比较繁琐，希望能用四位数可以解决