A5输入日期该单元格马上变成另外一种格式VBA

rayhen

A5单元格输入日期 2023/1/21  该单元马上变成这样结果 21st January 2023

任何帮助，将不胜感激！

天数要像图片那样

不知道为什么

ctrl + 1
单元格格式设置成自己需要的就可以

niko88819

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$A$5" Then
   
3.         Dim cellValue As Date
   
4.         On Error Resume Next
   
5.         cellValue = CDate(Target.Value)
   
6.         On Error GoTo 0
   
7.         If cellValue = 0 Then
   
8.             MsgBox "输入无效日期格式 yyyy/mm/dd"
   
9.             Application.EnableEvents = False
   
10.             Target.ClearContents
    
11.             Application.EnableEvents = True
    
12.             Exit Sub
    
13.         Else
    
14.             Dim dv As String
    
15.             Select Case Day(cellValue)
    
16.                 Case 1, 21, 31
    
17.                     dv = "d""st"" "
    
18.                 Case 2, 22
    
19.                     dv = "d""nd"" "
    
20.                 Case 3, 23
    
21.                     dv = "d""rd"" "
    
22.                 Case Else
    
23.                     dv = "d""th"" "
    
24.             End Select
    
25.             Target.NumberFormat = dv & "mmmm yyyy"
    
26.             Application.EnableEvents = False
    
27.             Target.Value = cellValue
    
28.             Application.EnableEvents = True
    
29.         End If
    
30.     End If
    
31. End Sub

复制代码

zxsea_7426

不知道为什么 发表于 2023-5-12 10:10
ctrl + 1
单元格格式设置成自己需要的就可以

这个带全英文序数的，原格式好像没有看见，这个估计需要代码了

一一如终

选择A5单元格-右键-设置单元格格式-自定义格式-[$-en-GB]d"st" mmmm yyyy;@

rayhen

一一如终 发表于 2023-5-12 10:21
选择A5单元格-右键-设置单元格格式-自定义格式-[$-en-GB]d"st" mmmm yyyy;@

老师,试了  输入2023/1/22  结果 22st January 2023 , 实际要这样 22nd January 2023

zxsea_7426

看到高手就是高手.

rayhen

niko88819 发表于 2023-5-12 10:13

老师,您真是一级棒,感谢您

zxsea_7426

niko88819 发表于 2023-5-12 10:13

又学到英文全称的格式设置

niko88819

zxsea_7426 发表于 2023-5-12 11:16
看到高手就是高手.

不是什么高手啦,VBA仍然学习中,小师妹基础是很差的