vba 转换多种格式日期

今天上班的时候需要处理一张表：

需要把里面日期一栏修改为yyyymmdd形式，表中的日期数据也就是有三种
1、2019/1/9，但是设置了单元格的日期格式，显示为2019年1月9日，如第1行。
2、2017年6月20日，直接就是文本的2017年6月20日，如第14行。
3、2017.2.23，如第18行
三种日期数据格式在原表中交错的，总共有几千行，如果只有那20几行我也就手动修改了，几千行太累了，只有祭出vba了。
按照这三种不同的数据分别处理即可：

Sub ??1()
'
' ??1 ??
'
Dim i As Integer
Dim fsrq As String
Dim fsrq2 As StringDim pos1 As Integer
Dim pos2 As Integer
Dim pos3 As IntegerDim y As String
Dim m As String
Dim d As StringFor i = 1 To 26fsrq = Sheets("sheet1").Range("E" & i).ValueIf InStr(fsrq, "??") Thenpos1 = InStr(fsrq, "??")pos2 = InStr(fsrq, "??")pos3 = InStr(fsrq, "??")y = Left(fsrq, pos1 - 1)m = Mid(fsrq, pos1 + 1, pos2 - pos1 - 1)d = Mid(fsrq, pos2 + 1, pos3 - pos2 - 1)If Len(m) = 1 Then m = "0" & mIf Len(d) = 1 Then d = "0" & dfsrq2 = y & m & dElseIf InStr(fsrq, ".") Thenpos1 = InStr(fsrq, ".")pos2 = InStr(pos1 + 1, fsrq, ".")y = Left(fsrq, pos1 - 1)m = Mid(fsrq, pos1 + 1, pos2 - pos1 - 1)d = Right(fsrq, Len(fsrq) - pos2)If Len(m) = 1 Then m = "0" & mIf Len(d) = 1 Then d = "0" & dfsrq2 = y & m & dElsefsrq = Format(fsrq, "yyyymmdd")fsrq2 = Replace(fsrq, "/", "")End IfSheets("sheet1").Range("F" & i).Value = fsrq2
Next
'
End Sub

运行后的效果：

可见格式如 2019/1/9 的数据显示有问题。如果双击########的数据，也会显示正确：

显然不是我们需要的，查看单元格格式，可以看到excel把这项仍然处理为日期，这时候想起我之前删除的F列也是日期。
如果用现在的代码，那么两个方法可以解决：1、将F列先修改格式为文本；2、删除F列，这样新的F列就没有日期格式。然后在运行代码。
当然我们更可以直接用代码解决，修改后的代码如下：

Sub ??1()
'
' ??1 ??
'
Dim i As Integer
Dim fsrq As String
Dim fsrq2 As StringDim pos1 As Integer
Dim pos2 As Integer
Dim pos3 As IntegerDim y As String
Dim m As String
Dim d As StringFor i = 1 To 26fsrq = Sheets("sheet1").Range("E" & i).ValueIf InStr(fsrq, "??") Thenpos1 = InStr(fsrq, "??")pos2 = InStr(fsrq, "??")pos3 = InStr(fsrq, "??")y = Left(fsrq, pos1 - 1)m = Mid(fsrq, pos1 + 1, pos2 - pos1 - 1)d = Mid(fsrq, pos2 + 1, pos3 - pos2 - 1)If Len(m) = 1 Then m = "0" & mIf Len(d) = 1 Then d = "0" & dfsrq2 = y & m & dElseIf InStr(fsrq, ".") Thenpos1 = InStr(fsrq, ".")pos2 = InStr(pos1 + 1, fsrq, ".")y = Left(fsrq, pos1 - 1)m = Mid(fsrq, pos1 + 1, pos2 - pos1 - 1)d = Right(fsrq, Len(fsrq) - pos2)If Len(m) = 1 Then m = "0" & mIf Len(d) = 1 Then d = "0" & dfsrq2 = y & m & dElsefsrq = Format(fsrq, "yyyymmdd")fsrq2 = Replace(fsrq, "/", "")End IfSheets("sheet1").Range("F" & i).NumberFormatLocal = "@"Sheets("sheet1").Range("F" & i).Value = fsrq2
Next
'
End Sub

只需要添加一行代码： Sheets("sheet1").Range("F" & i).NumberFormatLocal = "@"，让单元格格式为文本。
所有日期都可以转换成功了，运行后如下：

都是简单的vba语句，也许有朋友用得上

vba 转换多种格式日期相关推荐

mov和mp4格式哪个好_在线视频格式转换器哪个好？求一个能转换多种格式的工具...
原标题:在线视频格式转换器哪个好?求一个能转换多种格式的工具在网络上,大家见到.接触到的视频格式估计也有十几种了,它们所支持.兼容的设备.软件大多不相同.以前,我们还不懂转换格式的时候,习惯了视频格 ...
mov和mp4格式哪个好_在线视频格式转换器哪个好？求一个能转换多种格式的工具_mrxiang...
在网络上,大家见到.接触到的视频格式估计也有十几种了,它们所支持.兼容的设备.软件大多不相同.以前,我们还不懂转换格式的时候,习惯了视频格式迁就播放器--格式不对的话,就重新找过视频.现在,视频格式不 ...
根据当前日期进行以下方面的处理： 1、取得日期的年份、月份、天、时、分、秒，并转换成大写日期格式如：2013年8月17日 20时30分20秒 2、根据日期的不同时间段，做问候语：早上8:00-12
根据当前日期进行以下方面的处理: 1.取得日期的年份.月份.天.时.分.秒,并转换成大写日期格式如:2013年8月17日 20时30分20秒 2.根据日期的不同时间段,做问候语: 早上8:00-12 ...
vba html 转化为 xlsx,使用VBA批量转换Excel格式，由.xls转换成.xlsx
问题分析: Excel2007以前的格式是.xls,之后的格式是.xlsx.打开单独的一个Excel文档,使用"另存为"功能,可以很轻松的转换格式.但是面对几百个Excel表这样就 ...
PDF怎么转换成PPT？用迅读PDF转换器，多种格式轻松互转
提起PDF,相信大家都很熟悉,尤其是上班族.大学生.教师群体,经常都需要用PDF软件进行阅读.注释.转换等.以大学生为例,不仅日常需要用PDF格式分享文档,写毕业论文整理资料时,也需要将PDF文件转换 ...
SQL Server 将JDE日期格式转换成常见日期格式
SQL Server 将JDE日期格式转换成常见日期格式 JDE日期格式:JDE所有的日期字段在DB存储时用的是Julia date格式,总共6码,第一码代表世纪,二三码代表年份,后三码代表前三码所属 ...
JAVA日期转换中文格式
JAVA日期转换中文格式例:2000-1-11 --> 二〇〇〇年一月十一日创建枚举类创建工具类例:2000-1-11 --> 二〇〇〇年一月十一日创建枚举类 public en ...
《power BI视频5》筛选函数、转换函数、日期格式
筛选函数 HASONEFILTER函数 HASONEFILTER(列名) 当指定列有且只有一个由直接筛选产生的值时,返回true. 此处的列只能是实体列例如: 总金额 = SUM('案例2'[销售金 ...
电脑上如何转换视频格式？万兴优转-适配多种设备及批量高速转换
经常在网上冲浪的小伙伴应该都对视频有一些了解,视频不只有一种格式,它可以是AVI.RMVB.RM.ASF.MKV.WMV,亦或者是MP4.3GP.FLV等等等等.这些格式的视频质量.容量各不相同,应用 ...

vba 转换多种格式日期

vba 转换多种格式日期相关推荐

最新文章

热门文章