excel里如何定义某列日期为输入该行数据时的日期？ EXCEL里面如何让B列输入数据时，对应行记录里面的A列单元...
\u8bbe\u7f6eexcel\u8868\u683c\u4e2dA\u5217\u4e3a\u65e5\u671f\u5217\uff0c\u5728\u4efb\u4f55\u4e00\u884c\u8f93\u5165\u4fe1\u606f\u65f6\u5176\u5bf9\u5e94A\u5217\u663e\u793a\u8f93\u5165\u65f6\u7684\u65e5\u671f\uff0c\u8bf7\u95ee\u600e\u6837\u80fd\u591f\u8fbe\u5230\u554a\uff1f\u636e\u6211\u7684\u7406\u89e3\uff0c\u8fd9\u4e2a\u9700\u8981\u7f16\u5199vba\u811a\u672c\uff0c\u54cd\u5e94\u5355\u5143\u683cchange\u4e8b\u4ef6\uff0c\u5f53\u952e\u5165\u6570\u636e\u65f6\uff0c\u81ea\u52a8\u6839\u636e\u4e0a\u4e00\u884cA\u5217\u7684\u65e5\u671f\u6765\u586b\u5199\u6570\u636e\uff1a
Private Sub Worksheet_Change(ByVal Target As Range) If Range("A" & Target.Row) = "" And Target.Row > 1 Then Range("A" & Target.Row) = Range("A" & Target.Row - 1) End IfEnd Sub
B=B3
A=A5
\u516c\u5f0f\uff1aA5\u5355\u5143\u683c\u91cc\u8f93\u5165:"=B3"
\u53ea\u8981B3\u7684\u5355\u5143\u683c\u4e0d\u53d8\uff0cA5\u7684\u5355\u5143\u683c\u4e5f\u4e0d\u4f1a\u53d8\u3002
确定.然后在A1输入=IF(AND(B1="",C1="",D1=""),"",IF(A1="",TEXT(IF(A1>0,TODAY(),""),"yyyy-m-d"),A1))并向下填充.这样只要某一行B,C,D列中有一列输入数据A列就会显示当前时间.且这个时间不会随系统时间的变化而变化.它是固定在输入时的日期.
记住BCD三列先不要输入任何内容，公式写完后再输入
好像做不到，不过你能想到这些就说明你想的很多了，你就直接手工录入吧，
ALT+F11,在弹出的页面中，左边选择当前编辑的工作表，在右边复制如下代码。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
If Range("A1") = "" Then
Range("A1") = Time
End If
End If
End Sub
然后关闭编辑器，在EXCEL的菜单选-工具-宏-安全性-设置为低。
祝你成功！
用：
Private Sub Worksheet_Change
Ctrl+; 键
绛旓細1銆佷互excel2001鐗堟湰涓轰緥锛屽涓嬪浘锛岃璁〣鍒楃殑鏃ユ湡鑷姩鏇存柊褰撳ぉ鐨勬棩鏈燂紱2銆侀鍏堝湪B2鍗曞厓鏍艰緭鍏ュ叕寮=TODAY()锛屾寜enter閿悗鍒欏彲寰楀嚭浠婂ぉ鐨勬棩鏈燂紝鏄庡ぉ鐨勮瘽灏变細鍙樻垚鏄庡ぉ鐨勬棩鏈熶簡锛3銆佺劧鍚庢妸榧犳爣鏀惧湪B2鍗曞厓鏍煎彸涓嬭锛屼笅鎷夊～鍏呭叕寮忥紝閭ｄ箞杩鍒楁棩鏈灏变細鑷姩鏇存柊鐨勪簡锛屾瘡澶╅兘绛変簬褰撳ぉ鐨勬棩鏈熴
绛旓細鍏堝湪鐐硅彍鍗曟爮锛屽伐鍏凤紝閫夐」锛岄噸鏂拌绠楋紝鍕鹃夎凯浠ｈ绠楋紝鏈澶氳凯浠ｆ鏁拌涓1娆 纭畾.鐒跺悗鍦ˋ1杈撳叆=IF(AND(B1="",C1="",D1=""),"",IF(A1="",TEXT(IF(A1>0,TODAY(),""),"yyyy-m-d"),A1))骞跺悜涓嬪～鍏.杩欐牱鍙鏌愪竴琛孊,C,D鍒椾腑鏈変竴鍒楄緭鍏ユ暟鎹瓵鍒楀氨浼氭樉绀哄綋鍓鏃堕棿.涓旇繖涓椂闂翠笉浼氶殢绯...
绛旓細闇瑕佺敤 VBA鍔熻兘锛岃繖鏍锋墠鑳芥弧瓒抽渶姹傦紝濡備笅鏄叿浣撶殑鎿嶄綔鏂瑰紡锛屽皢浠ｇ爜璐翠笂鍘诲嵆鍙侾rivate Sub Worksheet_Change(ByVal Target As Range)If Target.Row > 1 And Target.Column > 1 Then If Cells(Target.Row, 1) = "" Then Cells(Target.Row, 1) = Date End If End If End Sub 锛...
绛旓細鍏紡涓猴細=IF(A2="","",IF(A2-"2021/7/1"<0,44378,IF(A2-"2021/7/31">0,"",A2)))璁剧疆鍗曞厓鏍间负鏃ユ湡鏍煎紡銆
绛旓細1銆佺數鑴戞墦寮Excel锛岄変腑涓ゅ垪鍗曞厓鏍硷紝鎸塁trl+1杩涘叆鍗曞厓鏍艰缃2銆佽繘鍏ュ崟鍏冩牸璁剧疆鍚锛屾妸鍗曞厓鏍艰缃负鏃ユ湡锛岀劧鍚庣偣鍑荤‘瀹氥3銆佸崟鍏冩牸璁剧疆涓烘棩鏈熷悗锛岃緭鍏ュ叕寮=DATE(YEAR(B2)+1,MONTH(B2),DAY(B2))銆4銆佽緭鍏ュ叕寮忓悗锛屾寜鍥炶溅閿氨鍙互寰楀埌澧炲姞涓骞寸殑鏃ユ湡浜嗐5銆佷笅鏉ュ鍒跺叕寮忓嵆鍙
绛旓細鍒╃敤vlookup鏌ユ壘锛堝弬鑰冪櫨绉戯細http://baike.baidu.com/link?url=htkGQ-j8KIlIPOSJN4PbBrWDJNzTU1UAeIgy0vSpS71HPz6mPuQacpHJhFHtBHSM_c8AhsjYIAmLNR-pQPgMs_锛夊叕寮忓彲涓猴細=vlookup(B2,M:N,1,0) & "鏈" & vlookup(B2,M:N,2,0) & "鏃"...
绛旓細1銆佹墦寮Excel2010杞欢锛屾柊寤轰竴涓伐浣滆〃锛岀劧鍚庡湪A1杈撳叆2015锛孊1杈撳叆8锛孋1杈撳叆8锛岃繖鏍峰垎鍒湪鍗曞厓鏍艰緭鍏ュ唴瀹规柟渚挎垜浠潵鐏垫椿璋冪敤銆2銆佷笅闈㈡垜浠娇鐢excel鍑芥暟涓殑WEEKDAY(serial_number,return_type) 鏉ュ疄鐜般傚叾涓璼erial_number浠ｈ〃鑷瀹氫箟鐨鏃ユ湡鎴栧紩鐢ㄥ惈鏈夋棩鏈熺殑鍗曞厓鏍硷紱return_type鐢ㄦ潵琛ㄧず鏄熸湡鏍峰紡锛氬弬鏁颁负1---...
绛旓細灏EXCEL杞崲鏃ユ湡鏍煎紡鏂规硶濡備笅锛氶変腑闇瑕佽浆鎹㈠尯鍩 鍙抽敭锛岄夋嫨璁剧疆鍗曞厓鏍兼牸寮 閫夋嫨鏃堕棿锛岄夋嫨闇瑕佺敤鍒鐨勬椂闂鏍煎紡锛岀‘瀹氾紝濡傚浘锛
绛旓細EXCEL鏂囦欢锛屾煇涓涓崟鍏冩牸閫夋嫨鍚庯紝鎵撳紑鈥樻彃鍏-鍑芥暟鈥欙紝鍦ㄦ墦寮鐨勭獥鍙ｄ腑鈥樻垨閫夋嫨绫诲埆鈥欏悗闈㈢殑鍒楄〃閲岋紝閫夋嫨鏃ユ湡涓鏃堕棿銆傜劧鍚庡湪涓嬮潰鐨勫嚱鏁板垪琛ㄩ噷锛岄夋嫨NOW銆 鍗曞厓鏍煎唴杈撳叆鈥=NOW锛堬級鈥欍傚氨鏄綋鍓嶆棩鏈熷拰鏃堕棿銆傝緭鍏=TODAY()锛屾槸鍙樉绀哄綋鍓嶆棩鏈熴傚鏋滄槸璁剧疆浠ュ墠鎴栬呮槸浠ュ悗鐨勬棩鏈燂紝鍦ㄥ崟鍏冩牸灞炴ч噷鍙抽敭锛屽崟鍏冩牸...
