如何在excel表中的一个单元格中自动显示最后一次保存文档时当天的日期？ 关于excel某一单元格内容改变时，与之对应的单元格自动填充...
\u5982\u4f55\u5728EXCEL\u4e2d\u81ea\u52a8\u751f\u6210\u5f53\u5929\u7684\u65e5\u671f\uff1f1\u3001\u9996\u5148\uff0c\u6253\u5f00excel\u8868\uff0c\u9f20\u6807\u70b9\u51fb\u8981\u7f16\u8f91\u7684\u5355\u5143\u683c\uff1b
2\u3001\u70b9\u51fb\u83dc\u5355\u680f\u7684\u516c\u5f0f\u2014\u2014\u201c\u63d2\u5165\u51fd\u6570\u201d\uff1b
3\u3001\u5728\u51fd\u6570\u5bf9\u8bdd\u6846\u5185\u8f93\u5165\u201cweekday\u201d\uff0c\u70b9\u51fb\u786e\u5b9a;
4\u3001\u63a5\u4e0b\u6765\u8bbe\u7f6e\u51fd\u6570\u53c2\u6570\uff0c\u6211\u4eec\u5728serial_number\u5904\u8f93\u5165\u201cnow()\u201d;
5\u3001\u5728return_type\u5904\u8f93\u51652\uff1b
6\u3001\u70b9\u51fb\u786e\u5b9a\u540e\u5c31\u80fd\u81ea\u52a8\u8fd4\u56de\u661f\u671f\u503c\u3002
如需在一个单元格中自动显示 最后一次保存文档的日期，需要用到 VBA 的 Workbook.BeforeSave 事件程序
示例
本示例在保存工作簿之前询问用户是否保存。
VBA 代码：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel as Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub
针对 “如何在excel表中的一个单元格中自动显示最后一次保存文档时当天的日期” 这个问题， 同样使用BeforeSave 事件代码, 操作方法：
右键单击工作表标签，查看代码， 视图---工程资源管理器，双击 Thisworkbook,
将如下代码 复制到 右边代码窗口：（假设 在Sheet1 A1 单元格记录保存时间)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").[A1] = Date
End Sub
保存工作薄为启用宏文件， 且文件开启宏， 即可 在Sheet1 A1单元格 记录 最后一次保存时间。
开启宏 的方法：
菜单栏-----文件 -----Excel选项---- 信任中心---信任中心设置 ---宏设置 ： 启用所有宏， 保存， 关闭Excel 文件， 再次打开 即已启用宏。
使用公式：用=now()
然后选中此单元格，依次点选：工具---选项--重新计算 把【手动重算】和【保存前自动重算】 勾上
OK!
按CTRL+;键输入当前日期就不会变了。
按F5，定位，引用位置选择你要修改的位置就可以了，比如引用位置为C40，就会直接定位到C40，但是单元格不会解除隐藏 效果很好。
用now函数，在需要显示的单元格内输入“=now()”
绛旓細1銆佹墦寮琛ㄦ牸锛屽鍥鹃渶瑕佸皢鍚涓涓崟鍏鏍閲岄潰鐨鍚嶅瓧鏀惧埌涓嶅悓鐨勫崟鍏冩牸涓2銆侀変腑闇瑕佽缃殑鍗曞厓鏍硷紝鐐瑰嚮鍔熻兘鍖洪噷闈㈢殑鏁版嵁锛岄夋嫨鍒嗗垪銆3銆佺劧鍚庡湪寮瑰嚭鏉ョ殑閫夐」涓偣鍑诲浐瀹氬搴︼紝骞堕夋嫨涓嬩竴椤点4銆佺偣鍑讳笅涓椤典箣鍚庡湪杩欓噷鍙互鐪嬪埌鏁版嵁棰勮锛屼篃灏辨槸璁剧疆鍚庣殑鏁堟灉銆5銆佺劧鍚庣偣鍑讳笅涓姝ワ紝杩欎竴椤靛彲浠ョ湅鍒扮洰鏍囧尯鍩熴6...
绛旓細2. 鍦ㄥ彟涓涓崟鍏鏍间腑杈撳叆鍙橀噺鐨勫硷紝渚嬪鈥10鈥濄3. 浣跨敤鍏紡鎴栧嚱鏁板紩鐢ㄥ彉閲忥紝渚嬪鈥=A1*2鈥濄傚湪杩欎釜渚嬪瓙涓紝鈥淎1鈥濇槸鍙橀噺x鐨勪綅缃紝鈥2鈥濇槸鍙橀噺鐨勫笺4. 鍦‥xcel琛ㄦ牸涓鎸変笅鈥淓nter鈥濋敭鍗冲彲鐪嬪埌缁撴灉銆傚彟澶栵紝濡傛灉闇瑕佸皢澶氫釜鍗曞厓鏍肩殑浣嶇疆璁剧疆涓哄彉閲忥紝鍙互浣跨敤鏁扮粍鍏紡銆傚叿浣撴楠ゅ涓嬶細1. 鍦‥xcel...
绛旓細1銆侀鍏堥渶瑕佸湪鍚涓涓猠xcel琛ㄦ牸涓锛屾坊鍔犱袱涓伐浣滆〃銆傝鐗瑰埆璇存槑涓涓嬶紝涓嬮潰浠嬬粛鐨勬柟娉曞繀椤诲湪鍚涓涓〃鏍间腑鐨涓や釜宸ヤ綔琛ㄦ墠鍙互浣跨敤銆2銆佸鍥撅紝鍙鍦ㄧ浜屼釜琛ㄦ牸涓紩鐢ㄥ悗鏁版嵁鍑虹幇鐨勪綅缃緭鍏モ=琚紩鐢ㄨ〃鏍肩殑鍚嶅瓧锛侀渶瑕佸紩鐢ㄦ暟鎹綅缃濆氨琛屼簡锛屼緥濡傞渶瑕佸紩鐢ㄧ涓涓〃鏍间腑鐨勭紪鍙凤紝灏卞彲浠ヨ緭鍏ワ細=琚紩鐢ㄨ〃锛丄2銆3...
绛旓細灏excel涓竴涓崟鍏鏍肩殑鏁版嵁鎷嗗垎鎴愪袱鍒楃殑鏂规硶濡備笅锛堜互windows10绯荤粺鐨別xcel2019鐗堜负渚嬶級锛1銆侀夋嫨闇瑕佹媶鍒嗙殑鍗曞厓鏍笺2銆佺偣鍑荤晫闈笂鏂圭殑鏁版嵁鎸夐挳銆3銆佸湪闅忓悗鎵撳紑鐨勭晫闈腑鐐瑰嚮鍒嗗垪鎸夐挳銆4銆佸湪鎺ョ潃鑷姩鎵撳紑鐨勫璇濇涓洿鎺ョ偣鍑讳笅涓姝ユ寜閽5銆佹帴鐫鍦ㄨ繘鍏ョ殑椤甸潰涓嬀閫変笂绌烘牸澶嶉夋锛屾帴鐫涓鐩寸偣鍑讳笅涓姝ョ洿鍒...
绛旓細鍦╡xcel鐨勪竴涓崟鍏鏍间腑娣诲姞澶氶夐夐」鍗＄殑鏂规硶濡備笅锛堜互windows10绯荤粺鐨別xcel2010鐗堜负渚嬶級锛1銆佹墦寮鏂囨。锛岀偣鍑荤晫闈笂鏂圭殑鏁版嵁鎸夐挳銆2銆佸湪闅忓悗鎵撳紑鐨勭晫闈腑鐐瑰嚮鏁版嵁鏈夋晥鎬ф寜閽3銆佸湪鎺ョ潃鑷姩鎵撳紑鐨勫璇濇涓偣鍑诲厑璁镐笅鏂圭殑閫夐」锛岄夋嫨銆愬簭鍒椼戙4銆佸湪銆愭潵婧愩戜腑杈撳叆闇瑕佹坊鍔犲埌涓嬫媺鑿滃崟涓殑閫夐」锛岄殢鍚庣偣鍑荤‘瀹氥...
绛旓細4銆佽繖鏍峰氨鍙互鎶婂涓崟鍏冩牸鍚堝苟鎴涓涓浜嗐傚崟鍏冩牸鍚箟锛氬崟鍏冩牸鏄琛ㄦ牸涓琛屼笌鍒楃殑浜ゅ弶閮ㄥ垎锛屽畠鏄粍鎴愯〃鏍肩殑鏈灏忓崟浣嶏紝鍙媶鍒嗘垨鑰呭悎骞躲傚崟涓暟鎹殑杈撳叆鍜屼慨鏀归兘鏄鍦ㄥ崟鍏鏍间腑杩涜鐨勩傚崟鍏冩牸灞炰簬Microsoft Excel /WPS琛ㄦ牸涓娇鐢ㄧ殑鏈銆傚崟鍏冩牸绫诲瀷瀹氫箟浜嗗湪鍗曞厓鏍间腑鍛堢幇鐨勪俊鎭殑绫诲瀷锛屼互鍙婅繖绉嶄俊鎭濡備綍鏄剧ず锛岀敤鎴...
绛旓細1銆佹墦寮excel琛ㄦ牸锛屽湪A1鍗曞厓鏍煎唴杈撳叆鈥16050101A鈥濄2銆佸湪A2鍗曞厓鏍煎唴杈撳叆鍏紡锛=B1銆3銆侀変腑A1鍗曞厓鏍硷紝鐐瑰嚮鈥滄暟鎹濅腑鐨勨滃垎鍒椻濄4銆侀夋嫨鈥滃浐瀹氬搴︹濓紝鐐瑰嚮涓嬩竴姝 5銆佸啀灏嗛紶鏍囧厜鏍囩偣鍑诲埌闇瑕佸垎寮鐨勪綅缃紝鐐瑰嚮涓嬩竴姝ャ6銆佸湪鏈鍚庝竴姝ョ偣鍑诲畬鎴愩7銆佸嵆鍙皢涓涓崟鍏鏍肩殑鍐呭鍒嗘垚涓や釜鍗曞厓鏍兼樉绀猴紝骞朵笖...
绛旓細1銆侀鍏堟墦寮excel琛ㄦ牸锛屽湪琛ㄦ牸涓婃柟鐨勫伐鍏锋爮涓壘鍒扳滆鍥锯濋夐」銆2銆佺偣鍑昏繘鍏モ滆鍥锯濆悗锛屾壘鍒板叾涓殑鈥滈槄璇绘ā寮忊濋夐」銆3銆佺劧鍚庣偣鍑烩滈槄璇绘ā寮忊濈殑涓嬫媺鑿滃崟锛岄夋嫨闇瑕侀珮浜樉绀虹殑棰滆壊锛屼緥濡傞夋嫨榛勮壊銆4銆侀夋嫨鍚庣偣鍑婚〉闈腑浠绘剰鍗曞厓鏍硷紝鍙互鐪嬪埌妯鍜岀珫鍒楅兘浼氭樉绀哄悓涓棰滆壊鐨勯珮浜
绛旓細濡傚浘锛孲heet2琛ㄧ殑B5鍗曞厓鏍艰緭鍏ュ叕寮="浜屾湡A鍖篈9鏍1鍗曞厓1灞"&TEXT(MOD(ROW(INDIRECT("A"&Sheet1!D$5+ROW(A1)-1)),Sheet1!D$5)+1,"00")&"鍙"涓嬫媺鍏紡銆
