[已解决]如何改变表格里的日期显示

lixudonggo · 发表于 2011-10-16 12:09

我用的excel表日期那一栏是记录软件自动生成的，比如说是20111016021123，表示的是2011年10月16日02:11:23，现在我想把那个自动生成的日期(20111016021123)通过VBA程序改成2011/10/16 02:11:23的样式，请问有什么办法能实现么，谢谢了~~

最佳答案

月排行榜 / 总排行榜

Zipall

2011-10-16 22:23

回复 lixudonggo 的帖子

将
Cells(n, 3).Copy Destination:=Cells(n , 6)
改为
cells(n,6)=format(cells(n,3),"0-00-00 00:00:00")

跳转到最佳答案楼层

5blessyou · 发表于 2011-10-16 12:17

本帖最后由 5blessyou 于 2011-10-16 12:24 编辑

=TEXT(A1,"0000!/00!/00 00!:00!:00")

复制代码

lixudonggo · 发表于 2011-10-16 12:30

回复 5blessyou 的帖子

谢谢您的回复，我现在要用到一个For循环，
比如
For n = 1 To 5
  If Cells (n,3).value =  Cells (n,4).value
  Cells(n, 3).Copy Destination:=Cells(n , 6)
  Else
  End If
Next
此处，Cells（n,6）就是我最终获得日期的单元格，也就是想把Cells（n,6)里面的日期改变格式，那么请问您提供的代码加入到以上循环的什么位置呢？谢谢了~~

5blessyou · 发表于 2011-10-16 12:40

上传附件吧！我这个写的是用函数解决的，VBA不大懂！这个公式是假如20111016021123在A1单元格，那么在其他地方（比如B1）输入2楼公式就得到你要的样式

那么的帅 · 发表于 2011-10-16 12:48

回复 lixudonggo 的帖子

原来生成的代码是什么？

lixudonggo · 发表于 2011-10-16 22:03

回复那么的帅的帖子

谢谢您的回复，我要处理的数据是厂里面3级机生成的数据，数据生成的样式是不能改变的。

那么的帅 · 发表于 2011-10-16 22:19

回复 lixudonggo 的帖子

不知道原来的代码，无法写新代码

Zipall · 发表于 2011-10-16 22:23

这个最佳答案由 Zipall 给出，感谢 Zipall 的回答。

单击隐藏图章

回复 lixudonggo 的帖子

将
Cells(n, 3).Copy Destination:=Cells(n , 6)
改为
cells(n,6)=format(cells(n,3),"0-00-00 00:00:00")

lixudonggo · 发表于 2011-10-17 11:27

回复那么的帅的帖子

哦，那我再想其他办法吧，谢谢您的支持~~

lixudonggo · 发表于 2011-10-17 11:35

回复 Zipall 的帖子

恩，达到目标了，谢谢您的帮助~~

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