Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2933|回复: 9

[已解决]怎么在单元格里显示日期?

[复制链接]
发表于 2013-8-12 10:30 | 显示全部楼层 |阅读模式
本帖最后由 sfaasdada 于 2013-8-12 11:12 编辑

只要打开工作簿,在a1单元格自动显示当天日期?
最佳答案
2013-8-12 10:33
本帖最后由 我心飞翔410 于 2013-8-12 10:39 编辑

Private Sub Workbook_Open()
'打开执行
Dim a As Date
Sheets("sheet1").Select
  a = Format(Date, "yyyy年mm月dd日")
  ActiveSheet.Range("a1") = "今天是" & a &
End Sub
工作簿事件
代码放在thisworkbook下    在A1中显示今天是" & a

公式
  单元格 位置 =today()
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-8-12 10:33 | 显示全部楼层    本楼为最佳答案   
本帖最后由 我心飞翔410 于 2013-8-12 10:39 编辑

Private Sub Workbook_Open()
'打开执行
Dim a As Date
Sheets("sheet1").Select
  a = Format(Date, "yyyy年mm月dd日")
  ActiveSheet.Range("a1") = "今天是" & a &
End Sub
工作簿事件
代码放在thisworkbook下    在A1中显示今天是" & a

公式
  单元格 位置 =today()
回复

使用道具 举报

发表于 2013-8-12 10:34 | 显示全部楼层
回复

使用道具 举报

发表于 2013-8-12 10:48 | 显示全部楼层
=TODAY()
3楼的=now()显示的是日期加时间,还要再设置下单元格格式
回复

使用道具 举报

 楼主| 发表于 2013-8-12 10:48 | 显示全部楼层
我心飞翔410 发表于 2013-8-12 10:33
Private Sub Workbook_Open()
'打开执行
Dim a As Date

怎么显示是2013-08-12,让它变成2013年08月12日
回复

使用道具 举报

发表于 2013-8-12 10:53 | 显示全部楼层
本帖最后由 我心飞翔410 于 2013-8-12 10:54 编辑
sfaasdada 发表于 2013-8-12 10:48
怎么显示是2013-08-12,让它变成2013年08月12日

我的open事件就是你要那个格式啊

自定义格式  yyyy年mm月dd日
或者

回复

使用道具 举报

发表于 2013-8-12 10:57 | 显示全部楼层
格式在这设置
格式.gif
回复

使用道具 举报

 楼主| 发表于 2013-8-12 11:03 | 显示全部楼层
我心飞翔410 发表于 2013-8-12 10:53
我的open事件就是你要那个格式啊

自定义格式  yyyy年mm月dd日

原因找到了,把Dim a As Date删掉

回复

使用道具 举报

发表于 2013-8-12 11:05 | 显示全部楼层
本帖最后由 我心飞翔410 于 2013-8-12 11:09 编辑
sfaasdada 发表于 2013-8-12 11:03
原因找到了,把Dim a As Date删掉


不会吧  这就是日期格式啊
你不要删 把 date  改为 string
回复

使用道具 举报

 楼主| 发表于 2013-8-12 11:08 | 显示全部楼层
我心飞翔410 发表于 2013-8-12 11:05
不会吧  这就是日期格式啊

把Dim a As Date删掉,日期格式就是年月日,根本不要再设置

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-6-16 01:48 , Processed in 0.311485 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表