blog.csdn/amulee/article/details/5578497参考下这个代码

Private Sub Workbook_Open() If [a1] = ＂＂ Then [a1] = Date Else Exit Sub End If End Sub 在工作表标签,右键,查看代码.双击Thisworkbook,得到一个代码窗口 将这段代码粘贴到Thisworkbook的代码窗口内即可 a1是一个单元格地址 要改变日期的存放地址,请将a1更改为其它单元格地址即可

在VBA中日期的一部分加减可以使用dateadd函数.比如dateadd(＂yyyy＂,1,now()),在今天的日期上加上一年.比如dateadd(＂yyyy＂,-1,now()),在今天的日期上减去一年.比如dateadd(＂d＂,1,now()),在今天的日期上加上一天.比如dateadd(＂d＂,-1,now()),在今天的日期上减去一天.比如dateadd(＂m＂,1,now()),在今天的日期上加上一月.比如dateadd(＂d＂,-1,now()),在今天的日期上减去一月.

Sub 日期转换() mydate = ＂26 十一月 2013＂ arr = [{＂一月＂,＂Jan＂;＂二月＂,＂Feb＂;＂三月＂,＂Mar＂;＂四月＂,＂Apr＂;＂五月＂,＂May＂;＂六.

请再结合用Private Sub Worksheet_SelectionChange(ByVal Target As Range)End Sub这个来捕捉单元格内容的修改.要判断内容是否改变,需要在选中单元格时保存单元格值,再与退出该单元格时的值比较.

Private Declare Function GetMessage Lib ＂user32＂ Alias ＂GetMessageA＂ (. '或者自己分开几个变量分别来存储之前的日期时间 . SetSystemTime(T)End IfEnd Sub

虽然你已解决格式问题,不过我还是想说一下,用FORMAT最简单,语法:文本框=Format(日期变量,＂YYYYMMDD＂)或文本框=Format(日期变量,＂YYYY-MM-DD.

可以用activeworkbook.path来取得保存到一个变量(字符串变量)中,后面用到时调用该变量即可

添加一个Timer1,Timer1.Interval = 15000'15秒Private Sub Timer1_Timer() Date = DateValue(＂2010-10-1＂)'或:Date = ＂2010-10-1＂End Sub

Option Explicit Private Declare Function NetRemoteTOD Lib ＂Netapi32.dll＂ ( _ . 另外和C的用别的方法都可以获得,你将它们写成dll文件,用vba调用也可以