设置excel单元格自动填充日期，当在前一个单元格填入东西的时候，就在对应的后一个的单元格自动填入日期！ 关于excel某一单元格内容改变时，与之对应的单元格自动填充...
EXCEL\u4e2d\u600e\u4e48\u5728\u4e00\u4e2a\u5355\u5143\u683c\u8f93\u5165\u5185\u5bb9\u65f6\u5728\u53e6\u4e00\u4e2a\u5355\u5143\u683c\u81ea\u52a8\u8f93\u5165\u65e5\u671f,\u5e76\u4e14\u65e5\u671f\u4e0d\u518d\u6539\u53d8\uff1f\u8fd9\u4e2a\u95ee\u9898\u67093\u4e2a\u529e\u6cd5
1\u3001\u7528today\uff08)\u51fd\u6570 \u4f46\u8981\u8bbe\u7f6e \u8fed\u4ee3\u8ba1\u7b97 \u7531\u4e8e\u548c\u5176\u4ed6\u6587\u4ef6\u9700\u8981\u7684\u8bbe\u7f6e\u4e0d\u540c \u6709\u4e9b\u9ebb\u70e6
2\u3001\u7528\u5b8f\uff0cWorksheet_Change\u4e8b\u4ef6
3\u3001\u6700\u7b80\u5355\u7684\u662f\u5728\u9700\u8981\u65e5\u671f\u7684\u5355\u5143\u683c\u4e0a\u6309\u4f4fctrl\u518d\u6309\uff1b\uff08\u5373ctrl+\uff1b\uff09
\u5efa\u8bae\u7528\u540e2\u79cd\u529e\u6cd5
\u9644\u4e0a\u4ee3\u7801 \u5de5\u5177-\u300b\u5b8f-\u300b vb\u7f16\u8f91\u5668-\u300b\u53cc\u51fb\u5de6\u4fa7\u6811\u578b\u76ee\u5f55\u7684sheet1\uff0c\u7136\u540e\u5728\u53f3\u4fa7\u4ee3\u7801\u533a\u590d\u5236\u4e00\u4e0b\u5185\u5bb9\u3002\u5047\u8bbeA\u5217\u8f93\u5165\uff0cB\u5217\u663e\u793a\u65e5\u671f
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
Dim iCol As Integer
iRow = Target.Row
iCol = Target.Column
If iCol = 1 And Target.Offset(0, 1) = "" Then
Target.Offset(0, 1) = Date
End If
End Sub
EXCEL\u662f\u5b9e\u73b0\u4e0d\u4e86\u7684\uff0c\u7cfb\u7edf\u53ea\u80fd\u8bc6\u522b\u5230\u6574\u4e2a\u6587\u4ef6\u7684\u4fee\u6539\u65f6\u95f4\uff0c\u4e0d\u80fd\u8bc6\u522b\u5230\u67d0\u4e00\u680f\u7684\u4fee\u6539\u65f6\u95f4
1.电脑打开Excel表格。
2. 在单元格A1中输入任意数字，然后在另一个单元格中输入公式=IF(A1<>""，A1，"")。
3.另一个单元格输入公式=IF(A1<>""，A1，"")，回车，无论A1输入什么，这个单元格的输入公式都会自动生成zdA1的内容。
4.更简单的方法是在另一个单元格中输入=A1来获得A1的内容。
操作如下：
以下图中的表格为例；当在B列中输入数据，在A列对应的单元格自动填充上日期。
1；在B2单元格输入公式：=IF(A2<>"",NOW(),"")
2；按回车键；然后，在A2单元格输入数据；在B2单元格即自动显示出日期。
如果是想用日期来表示最后编辑时间，可以用now函数和数据有效性来做。
1、在任意单元格输入公式=NOW()，本例使用I1单元格。
2、在数据边的空白列建立辅助列，设置数据有效性。方法是：选中该列，点击数据——数据验证，在设置命令处，允许条件选择序列，来源等于I1，点击确定设置完毕。
3、在输入完毕数据后，用鼠标在辅助列点选一下，就能记录当前的时间，而且不会改变。now函数，today函数都是易失性函数，每次打开工作表都会跟随计算机的系统时间自动改变，如此设置就不会出现这种问题，是记录最后编辑时间的好方法。
右键SHEET--查看代码
复制下列代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1Then
Target.Offset(0, 1) = Date
End If
End Sub
注意:在VBA代码中，Date、Now、Time分别表示系统日期、日期及时间、时间
If Target.Column = 1 Then 表示:在第1列输入后,第2列自动出现日期
设在A列填充，在A2输入：
=IF(A1<>"",NOW(),"")
拖动下拉方式复制到需要的行。
绛旓細1銆佸湪鐢佃剳妗岄潰锛岀偣鍑绘墦寮excel琛ㄦ牸銆2銆佸湪excel琛ㄦ牸椤甸潰锛屽湪鍗曞厓鏍硷紝杈撳叆鍒濆鏃ユ湡銆3銆佽緭鍏ユ棩鏈熷悗锛屽啀鎷栧姩鍗曞厓鏍煎埌涓嬩竴琛屻4銆佸湪鍗曞厓鏍间笅鏂癸紝鐐瑰嚮鑷姩濉厖閫夐」銆5銆佸嚭鐜伴夐」锛屾牴鎹綘鐨勮姹傦紝璁剧疆濉厖鏃ユ湡锛屾瘮濡傦細鐐瑰嚮銆愪互鏈堝～鍏呫戙6銆佽缃垚鍔熶箣鍚庯紝excel琛ㄦ牸灏变細鑷姩濉厖鏃ユ湡銆
绛旓細1. Excel鍙互鑷姩濉厖瓒呰繃鍑犲ぉ鐨勬棩鏈銆2. Excel涓彲浠ヤ娇鐢ㄥ～鍏呭姛鑳斤紝閫夋嫨闇瑕佸～鍏呯殑鍗曞厓鏍硷紝鐒跺悗鍦ㄥ彸涓嬭鎷栧姩榧犳爣鍗冲彲鑷姩濉厖鏃ユ湡銆傚鏋滈渶瑕佸～鍏呰秴杩囧嚑澶╃殑鏃ユ湡锛屽彲浠ュ湪绗竴涓崟鍏冩牸濉叆璧峰鏃ユ湡锛岀劧鍚庡湪涓嬩竴涓崟鍏冩牸杈撳叆鈥=璧峰鏃ユ湡+澶╂暟鈥濓紝鍐嶆嫋鍔ㄩ紶鏍囧嵆鍙嚜鍔ㄥ～鍏呰秴杩囧嚑澶╃殑鏃ユ湡銆3. Excel杩樺彲浠ラ氳繃...
绛旓細1. 濉厖杩炵画鐨勬暟瀛楁垨鏃ユ湡锛- 鍦ㄥ崟鍏冩牸涓緭鍏ュ紑濮嬬殑鏁板瓧鎴栨棩鏈銆- 閫変腑璇ュ崟鍏冩牸锛屽皢榧犳爣鎸囬拡绉诲姩鍒板崟鍏冩牸鍙充笅瑙掔殑榛戣壊灏忔柟鍧椾笂锛岀洿鍒伴紶鏍囨寚閽堝彉涓哄崄瀛楃澶淬- 鎸変綇榧犳爣宸﹂敭骞跺悜涓嬫嫋鍔紝鐩村埌濉厖闇瑕佺殑鑼冨洿銆2. 浣跨敤搴忓垪鎴栨ā寮忓～鍏咃細- 鍦ㄤ袱涓崟鍏冩牸涓緭鍏ュ簭鍒楃殑璧峰鍊煎拰涓嬩竴涓笺- 閫変腑杩欎袱涓崟鍏冩牸...
绛旓細1銆佹紨绀轰娇鐢ㄧ殑鍔炲叕杞欢涓簅ffice绯诲垪杞欢涓嬬殑鐢靛瓙琛ㄦ牸Excel杞欢锛岃蒋浠朵娇鐢ㄧ殑鐗堟湰涓篗icrosoft office瀹跺涵鍜屽鐢熺増2016銆2銆侀鍏堟墦寮Excel鐢靛瓙琛ㄦ牸锛屽苟鍦琛ㄦ牸涓杈撳叆涓涓棩鏈燂紝鐢ㄤ簬婕旂ず鑷姩濉厖宸ヤ綔鏃ユ棩鏈熴3銆佸皢榧犳爣绉诲姩鍒癮1鍗曞厓鏍鐨勫彸涓嬭锛屽彲浠ュ彂鐜板湪绉诲姩鍒板彸涓嬭鏃讹紝榧犳爣鎸囬拡鍙樻垚浜嗗疄蹇冪殑鍗佸瓧绗﹀彿銆4銆佹鏃剁偣...
绛旓細1銆佷娇鐢‥xcel鐨勮嚜鍔ㄥ～鍏呭姛鑳斤紝鍏堣緭鍏ヤ竴涓棩鏈燂紝鐒跺悗閫変腑锛屽彸涓嬭鍑虹幇鈥+鈥濓紝鍒欏彸鍑婚紶鏍囧悓鏃舵嫋鍔ㄥ崟鍏冩牸锛屽垯鍑虹幇蹇嵎鑿滃崟锛屽彲浠ラ夋嫨锛屸滀互宸ヤ綔鏃ュ～鍏呪濓紝鈥滀互鏈堝～鍏呪濇垨鑰呪滀互骞村～鍏呪濓紝鏍规嵁鑷繁鐨勯渶姹傞夋嫨銆2銆佸鏋滄槸闇瑕佹瘡鍛ㄥ嚑杩欐牱鐨勮寰嬬殑鏃ユ湡锛屽彲浠ュ厛杈撳叆绗竴鍛ㄧ殑鏃ユ湡鍜岀浜屽懆鐨勬棩鏈燂紝鐒跺悗閫変腑涓や釜...
绛旓細1銆佹湰娆℃紨绀烘墍浣跨敤鐨勮蒋浠朵负Excel鍔炲叕杞欢锛屼娇鐢ㄧ殑鐗堟湰涓篗icrosoft office plus2013銆2銆侀鍏堟墦寮Excel鐢靛瓙琛ㄦ牸骞跺湪琛ㄦ牸涓緭鍏ョ敤浜庢紨绀Excel琛ㄦ牸鑷姩濉厖鏃ユ湡锛岃鍚屼竴涓棩鏈熸瘡鍗佽閲嶅濉厖鎿嶄綔鎵闇瑕佺殑鏁版嵁銆3銆侀変腑鎴戜滑杈撳叆鐨勬棩鏈熷苟閫夋嫨涓嬫柟鐨勫崄琛屽崟鍏冩牸銆4銆佸皢榧犳爣绉诲姩鍒伴変腑鍖哄煙鐨勫彸涓嬭锛屽綋榧犳爣鎸囬拡鍙樻垚...
绛旓細璁剧疆鏂规硶濡備笅:1銆佹垜浠互涓嬪浘涓殑琛ㄦ牸涓轰緥锛屽湪鏌愪竴涓鍗曞厓鏍杈撳叆鏃ユ湡浠ュ悗锛屾兂瑕佸揩閫熸壒閲忕殑濉厖鏃ユ湡锛屽鏁颁汉浼氭嫋鍔ㄥ崟鍏冩牸鍙充笅瑙掔殑濉厖鏌勫疄鐜帮紱2銆佷笅鍥句腑鐨勬棩鏈熷氨鏄氳繃鎷栧姩濉厖涔嬪悗鐨勬晥鏋滐紝杩欎簺鏃ユ湡閲岄潰鍖呭惈鏈夊懆鍏棩锛屽鏋滃彧鎯充繚鐣欏伐浣滄棩锛岄偅涔堢偣鍑昏〃鏍煎彸涓嬭鐨勨鑷姩濉厖閫夐」鈥濓紱3銆佺偣鍑昏椤逛互鍚庯紝鍕鹃...
绛旓細1. 杈撳叆璧峰鏃ユ湡锛氬湪绗竴涓鍗曞厓鏍锛堜緥濡侫1锛変腑杈撳叆鏃ユ湡“1鏈1鏃”銆傜‘淇濊鍗曞厓鏍肩殑鏍煎紡璁剧疆涓“鏃ユ湡”銆2. 閫夋嫨鍗曞厓鏍硷細鍗曞嚮璇ュ崟鍏冩牸浠ラ変腑瀹冦3. 浣跨敤濉厖鍙ユ焺锛氬皢榧犳爣鎮仠鍦ㄥ崟鍏冩牸鐨勫彸涓嬭锛岀洿鍒版偍鐪嬪埌涓涓皬榛戞柟鍧楋紙杩欐槸濉厖鍙ユ焺锛夈傚崟鍑诲苟鎷栧姩姝ゅ彞鏌勬í璺ㄦ偍鎯宠濉厖鐨勫崟鍏...
绛旓細棣栧厛锛屾垜浠墦寮涓涓猀Q濂藉弸鐨勮亰澶╃獥鍙ｏ紝鐒跺悗鐐瑰嚮鍥剧ず涓殑鎸夐挳锛涘鍥炬墍绀恒傚脊鍑虹殑鐣岄潰锛岀偣鍑诲彂閫佹枃浠讹紱濡傚浘鎵绀恒傚脊鍑虹殑鐣岄潰锛岄夋嫨涓涓獁ord鏂囨。锛岀劧鍚庣偣鍑绘墦寮锛涘鍥炬墍绀恒備箣鍚庡氨浼氭樉绀哄彂閫佺姸鎬佷簡锛屽鍥炬墍绀恒傚湪Excel琛ㄦ牸涓鍛ㄤ竴鍒板懆鏃ユ棤娉鑷姩濉厖,鎬庢牱璁剧疆鎵嶅彲浠ヨ嚜鍔ㄥ～鍏卂鐧惧害...閫変腑瑕佸搴旀槦鏈熺殑鏃ユ湡銆傜劧鍚庣偣鍑...
绛旓細1銆侀鍏堬紝鎴戜滑鎵撳紑鎴戜滑鐨勭數鑴戯紝鐒跺悗鎴戜滑鎸夌収鍥剧ず涓殑鍐呭鍏堣繘琛屽埗浣滀竴涓嬶紱2銆佺劧鍚庢垜浠変腑鍥剧ず涓殑鍗曞厓鏍锛屼箣鍚庢垜浠偣鍑诲叕寮忥紱3銆佺劧鍚庢垜浠偣鍑昏嚜鍔ㄦ眰鍜岋紱4銆佺劧鍚庢垜浠変腑鍥剧ず涓殑鍖哄煙锛屼箣鍚庢垜浠寜鍥炶溅閿紱5銆佷箣鍚庢垜浠変腑鍒氬垰璁剧疆鑷姩姹傚拰鐨勫崟鍏冩牸锛岀劧鍚庢斁鍦ㄨ鍗曞厓鏍煎彸涓嬭锛屽嚭鐜板崄瀛楃鍙峰悗锛屾垜浠悜鍙虫媺浼革紱6...
