爱问知识人 爱问教育 医院库

EXCEL单元格自动填入当前日期,并不随系统时间而改变.

首页

EXCEL单元格自动填入当前日期,并不随系统时间而改变.

例如,做按月做报表保存在一个工作簿里,表头需按月改动《1月营收报表》,一般都在二月初做,1月报表保存了以后,3月初在同工作簿里新建工作表为〈2月营收报表〉,如何设置自动改变,且《1月营收报表》不随时间改变!填表日期也如此!

提交回答

语音回答

答案字数较多,建议语音阅读

00:00/02:00

好评回答
  • 2008-03-09 17:06:06
      用宏是可以完成,不过没这个必要吧。
    既然每个月都相同,你何不一下把12个月的表都生成呢?
    至于一定要设不随时间变化而变化的宏,可把如下代码放入ThisWorkbook:(添加方法可参照我的共享资料,在EXCEL中使用VB编辑器。 
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    y = InputBox("你确定要更改当前日期吗?", "警告", "y")
    If y = "y" Then
    x = Month(Now())
    Range("a1")。
      Value = "《" & x & "月营收报表》" 'A1为表头 Range("b2")。Value = Date 'A2为填表日期 ActiveSheet。Name = x & "月" End If End Sub 原理,在保存之前更改 当前工作表 的日期,不能选中其他工作表保存。
      (已加入确认代码,如果你修改了内容不想更改日期则输入y这外的任意值) 如现在3月,选中2月的表保存时,只要输入不为y的值再确定就不会更改日期,默认值为y,直接敲回车将更改填表日期(注意:宏操作具有不可恢复性) 现在的人好象真跟自己过不去一样,弄这么复杂???。
      

    小***

    2008-03-09 17:06:06

其他答案

    2008-03-08 16:16:30
  • 表名:公式:=DATE(YEAR(TODAY()),MONTH(TODAY()),0)
    自定义设置:"《"m"营""收""月""报""》"
    日期:=DATE(YEAR(TODAY()),MONTH(TODAY()),0)
    这个有些创意!
    如果需要保存当前月份的数据,以后打开不变。那就在某个位置用ctrl+;输入当前日期,公式引用该日期即可。这个不难实现的。
    附件已经修改。

    j***

    2008-03-08 16:16:30

类似问题

换一换
  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):