用VBA如何将文本转为日期格式

838225419 · 发表于 2023-7-10 09:19

比如:"A"列格式是：2023-06-28,10:10:57，用vba让“B”列显示为：6月28日，求助大师

ykcbf1100 · 发表于 2023-7-10 09:29

format([a1],"m月dd日")

limonet · 发表于 2023-7-10 09:32

worksheetfunction.text(datevalue(replace("2023-06-28,10:10:57",","," ")),"m月d日")
或
worksheetfunction.text(replace("2023-06-28,10:10:57",","," "),"m月d日")

838225419 · 发表于 2023-7-10 09:37

ykcbf1100 发表于 2023-7-10 09:29
format([a1],"m月dd日")

谢谢大师
我的原代码是：.Cells(i, 29) = Cells(10, "o")，提取出来的格式是：2023-06-28,10:10:57 ，如何让 .Cells(i, 29) 直接为：6月28日，麻烦大师

838225419 · 发表于 2023-7-10 09:39

limonet 发表于 2023-7-10 09:32
worksheetfunction.text(datevalue(replace("2023-06-28,10:10:57",","," ")),"m月d日")
或
worksheetf ...

谢谢大师
我的原代码是：.Cells(i, 29) = Cells(10, "o")，提取出来的格式是：2023-06-28,10:10:57 ，如何让 .Cells(i, 29) 直接为：6月28日，麻烦大师

limonet · 发表于 2023-7-10 09:50

.Cells(i, 29)=format(replace( Cells(10, "o"),","," "),"m月dd日")

ykcbf1100 · 发表于 2023-7-10 10:08

本帖最后由 ykcbf1100 于 2023-7-10 10:09 编辑

838225419 发表于 2023-7-10 09:37
谢谢大师
我的原代码是：.Cells(i, 29) = Cells(10, "o")，提取出来的格式是：2023-06-28,10:10:57 ，如 ...

.Cells(i, 29) = Format(CDate(Cells(10, "o")), "mm月dd日")

838225419 · 发表于 2023-7-10 11:32

ykcbf1100 发表于 2023-7-10 10:08
.Cells(i, 29) = Format(CDate(Cells(10, "o")), "mm月dd日")

您好大师，出现“类型不匹配”，用6楼的方法已解决，谢谢大师

838225419 · 发表于 2023-7-10 11:34

limonet 发表于 2023-7-10 09:50
.Cells(i, 29)=format(replace( Cells(10, "o"),","," "),"m月dd日")

谢谢大师，代码好用，再次谢谢大师

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

[求助] 用VBA如何将文本转为日期格式