Excel表自动填写当天日期，隔天也不会自动改变日期，如何设 如何在excel表格中设置当前日期而且隔天不会变

1、按ALT+F11进入VBE窗口
2、如果你的表在sheet1中，你就点左边工程管理器里的sheet1（总之你在哪个表中要实现这个功能就点开哪个工作表）。
3、在右边的窗口中输入下边代码：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value <> "" Then
Target.Offset(0, -1) = Format(Date, "dd日")
End If

End Sub
4、这样你回到工作表，在B列输入数据。
A列就会出现当前日期。

总结下，常用的三种方案：
一，使用函数如 today()不能实现不变的日期。
二、VBA，你会的话，就不来这里问了。不过你照抄上边的也行，需要灵活运用，自己修改下。
三、用快捷键输入，ctrl+；

在单元格里输入=today()。得出当前日期后。复制-选择性粘贴-值和数字格式。

不改变原始表格数据，打印时自动添加打印日期。

Excel表格日期格式，自动调整当天，隔天不变的。~

1、按ALT+F11进入VBA窗口
2、如果你的表在sheet1中，你就点左边工程管理器里的sheet1（总之你在哪个表中要实现这个功能就点开哪个工作表）。
3、在右边的窗口中输入下边代码：
Sub Macro1()
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value "" Then
Target.Offset(0, -1) = Format(Date, "dd日")
End If
End Sub
4、这样你回到工作表，在B列输入数据。
A列就会出现当前日期。

不改变原始表格数据，打印时自动添加打印日期。

---

#陶荀界# EXCEL中自动生成日期,生成后不会因系统日期发生发改变,如何实现? -
(18643588697)： 打开EXCEL你的表格,按Alt+F11打开VBA编辑器,双击ThisWorkbook,如图所示,然后将以下代码复制到右边的代码编写窗口,保存然后退出即可.下次打开的时候就可以自动更新并实现你的要求: Private Sub Workbook_Open()n = Range(...

#陶荀界# 求Excel中自动填充日期代码? 当b1中有数字或文本输入时,a1中自动填充当天日期,且日期固定不变
(18643588697)： 第一步: 点＂工具＂-->＂选项＂-->＂重新计算＂-->勾选＂迭代计算＂-->＂最多迭代次数＂后方框输入＂1＂-->＂视图＂-->＂零值”前的勾-->＂确定＂; 第二步: 将公式 =IF(CELL(＂address＂)=＂$B$1＂,TEXT(TODAY(),＂yy-mm-dd＂),A1) 复制后粘贴到＂A1＂单元格,如图: 这时在＂B1＂单元格输入数据(如＂2＂)-->按＂Enter＂或＂Tab＂键 ,如图:

#陶荀界# Excel表格中,怎样既随着时间改变而改变日期,又可以在过了一天之后,前一天的日期可以固定不变? -
(18643588697)： 直接输入日期,或者用VBA.公式的today,now,randbetween,rand等函数均为易失性函数,重算或者日期变化后就会变化.如果不引用动态数值,建议不要使用. 有输入当日日期的快捷键 Ctrl+;

#陶荀界# EXCEL自动填充日期并不随系统时间变化
(18643588697)： <p>用VBA实现,参考代码如下:</p> <p>Private Sub Worksheet_Change(ByVal Target As Range)</p> <p> If Target.Column &lt;&gt; 3 Then Exit Sub</p> <p> If Target &lt;&gt; ＂＂ Then</p> <p> Target.Offset(0, -2) = Month(Date)</p> <p> Target.Offset(0, -1) = Format(Date, ＂'m-d＂)</p> <p> End If</p> <p>End Sub</p> <p>请见附件.</p>

#陶荀界# 在Excel表格中如何在A1输入任何字符时B1自动显示当时日期且到第二天时间也不变? -
(18643588697)： 假如要在sheet1中实现这个功能 ALT+F11,双击右边工程资源窗口中的sheet1 左边空白处输入代码 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Sheet1.Cells(Target.Row, 2) = Now End If End Sub 当A列数据任意行数据发生改变,B列对应行自动记录改变的时间 Target.Column 和Target.Row可以根据你的要求修改

#陶荀界# excel 自动输入日期而且固定 不会跟系统一起变
(18643588697)： 你先在菜单栏--工具--选项--重新计算--勾选迭代计算--最多迭代次数设为1次.然后在B6输入=IF(D6=＂＂,＂＂,IF(B6=＂＂,TEXT(IF(B6&gt;0,TODAY(),＂＂),＂m月d日＂),B6))并向下填充公式. 记住D列先不要输入任何内容,公式写完后再输入.

#陶荀界# Excel表格日期格式,自动调整当天,隔天不变的. -
(18643588697)： 1、按ALT+F11进入VBA窗口2、如果你的表在sheet1中,你就点左边工程管理器里的sheet1(总之你在哪个表中要实现这个功能就点开哪个工作表).3、在右边的窗口中输入下边代码:Sub Macro1() Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Value <> ＂＂ Then Target.Offset(0, -1) = Format(Date, ＂dd日＂) End If End Sub4、这样你回到工作表,在B列输入数据.A列就会出现当前日期.

#陶荀界# 求助excel:如何实现B列输入数据时,A列自动显示日期(该记录的日期第二天打开不会变,不用代码) -
(18643588697)： 你公式含义就是B列非空,则A就返回电脑当天日期唯一的办法,每天0点之前,你将当天的时间段,例如A3---15是7-19,A16-----A25是7-20,那你就选中A16-25,复制,右键选择性粘贴》数值.25以后的保持公式不变

#陶荀界# 在EXCEL表格中自动生成不变的日期? -
(18643588697)： 1楼回答问题不看题目. TODAY()、NOW()等属于易失性函数,我目前能想到的要么是宏来解决,要么就用循环引用来解决. 1)全选B列——工具——选项——重新计算——迭代运算,次数设置为1,确定; 2)在B1输入下面公式,并下拉: =IF(A1=＂＂,＂＂,IF(B1=＂＂,TODAY(),B1))

#陶荀界# EXCEL 自动输入当前日期 -
(18643588697)： =======================================================================先右击J2单元格 - 设置单元格格式 - 日期,把J2设置成日期格式的单元格.然后在J2输入: =IF(C2<>＂＂,TODAY(),＂＂) 保存文件,这样当C2单元格有内容的时候,就会自动填充当天的日期进去.就算你隔天再打开,J2会自动变成那天的日期.