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

anson · 发表于 2024-7-26 23:19

本帖最后由 anson 于 2024-7-27 06:46 编辑

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

ynzsvt · 发表于 2024-7-27 10:38

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

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

复制代码

anson · 发表于 2024-7-27 19:01

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

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

醉眼看尘世 · 发表于 2024-7-27 19:19

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 · 发表于 2024-7-27 19:27

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

明天会更好zj · 发表于 2024-7-27 19:39

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

ynzsvt · 发表于 2024-7-27 19:41

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

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

ynzsvt · 发表于 2024-7-27 19:47

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

复制代码

ykcbf1100 · 发表于 2024-7-27 19:59

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 · 发表于 2024-7-27 20:29

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

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

		自动登录	找回密码
密码			免费注册

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

评分

评分