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

sfaasdada · 发表于 2013-8-12 10:30

本帖最后由 sfaasdada 于 2013-8-12 11:12 编辑

只要打开工作簿，在a1单元格自动显示当天日期？

最佳答案

我心飞翔410

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（）

跳转到最佳答案楼层

我心飞翔410 · 发表于 2013-8-12 10:33

这个最佳答案由我心飞翔410 给出，感谢我心飞翔410 的回答。

单击隐藏图章

本帖最后由我心飞翔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

a1=now()

youfang · 发表于 2013-8-12 10:48

=TODAY()
3楼的=now()显示的是日期加时间，还要再设置下单元格格式

sfaasdada · 发表于 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日

我心飞翔410 · 发表于 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日
或者

我心飞翔410 · 发表于 2013-8-12 10:57

格式在这设置

sfaasdada · 发表于 2013-8-12 11:03

我心飞翔410 发表于 2013-8-12 10:53
我的open事件就是你要那个格式啊

自定义格式 yyyy年mm月dd日

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

我心飞翔410 · 发表于 2013-8-12 11:05

本帖最后由我心飞翔410 于 2013-8-12 11:09 编辑

sfaasdada 发表于 2013-8-12 11:03
原因找到了，把Dim a As Date删掉

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

sfaasdada · 发表于 2013-8-12 11:08

我心飞翔410 发表于 2013-8-12 11:05
不会吧这就是日期格式啊

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

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