excel表格中,我要在当A1输入内容时,则b1自动填充当天的日期 excel在A1输入内容在B1自动显示当天日期
Excel\u8868\u683c\u4e2d\uff0c\u5f53\u5728A1\u5185\u8f93\u5165\u6570\u636e\u540e\uff0cB1\u4e2d\u81ea\u52a8\u751f\u6210\u5f53\u65e5\u65e5\u671f\u5462\uff1f\u56e0\u4e3a\u4f60\u7684B1\u5355\u5143\u683c\u7684\u5355\u5143\u683c\u683c\u5f0f\u4e3a \u5e38\u89c4 \u6240\u4ee5\u663e\u793a\u7684\u4e0d\u662f\u65f6\u95f4\u3002
\u4f60\u53ef\u4ee5\u66f4\u6539B1\u7684\u5355\u5143\u683c\u683c\u5f0f\u3002\u65b9\u6cd5\uff1a\u53f3\u51fbB1\u2192\u8bbe\u7f6e\u5355\u5143\u683c\u683c\u5f0f\u2192\u6570\u5b57\u9009\u9879\u5361\u5185\u2192\u65e5\u671f\uff0c\u7136\u540e\u9009\u62e9\u5176\u4e2d\u7684\u4e00\u79cd\u663e\u793a\u65b9\u6cd5\u3002
=IF(A1"",TODAY(),"")
\u65e0\u8bba\u4f60\u5728A1\u8f93\u5165\u7684\u6570\u636e\u662f\u591a\u5c11\uff0c\u5728B1\u90fd\u53ea\u80fd\u591f\u663e\u793a\u5f53\u5929\u7684\u65f6\u95f4\u3002\u5982\u679c\u4f60\u660e\u5929\u518d\u8f93\u5165\uff0c\u90a3\u4e48\u65f6\u95f4\u4e5f\u5c31\u53d8\u62102010-11-2\uff0c\u4eca\u5929\u8f93\u5165\u5219\u662f2010-11-1.
\u8bf7\u6253\u5f00\u6211\u53d1\u7684\u6587\u4ef6\u53bb\u8bd5\u4e00\u8bd5\u5427\uff01
\u7528VBA\u6765\u505a\uff1a\u9996\u5148\u3010\u5de5\u5177\u3011\u3010\u5b8f\u3011\u3010\u5b89\u5168\u6027\u3011\u8bbe\u7f6e\u4e3a\uff1a\u4f4e\u3002\u5173\u95edExcel\u518d\u6253\u5f00\uff01\u9f20\u6807\u53f3\u51fbSheet1\u7684\u6807\u7b7e\uff0c\u9009\u3010\u67e5\u770b\u4ee3\u7801\u3011\u5728\u4ee3\u7801\u533a\u7c98\u8d34\u4e0b\u9762\u7684\u4ee3\u7801\uff1aPrivate Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 Then Target.Offset(, 1) = Format(Now, "yyyy-mm-dd hh:mm:ss")End Sub\u6309Alt + F11\uff0c\u56de\u5230Excel\uff0c\u5728A\u5217\u8f93\u5165\u6570\u636e\u53bb\u8bd5\u4e00\u8bd5\uff01\uff01\uff01\u795d\u4f60\u6210\u529f\uff01
要用 VBA , 或者 迭代运算 可能有点用, 写VBA的话, WPS 用不了:
Excel 内 右键 点工作表 名字--查看代码,如下代码 复制进去,存为启用宏的工作薄,启用宏可使用:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then '如果当前编辑单元格在第1列 A列
If Target <> "" Then
Target.Offset(0, 1) = Date '当前单元格右边一格 =日期
Else
Target.Offset(0, 1) = "" '如果清空 内容则右边一格 清空
End If
End If
End Sub
在菜单的 工具\选项\重新计算 勾选【迭代计算】 【最多迭代次数】后填:1,确定。
在B1里写公式:
=IF(A1="","",IF(OR(B1="",B1=0),TODAY(),B1))
向下拖动复制。OK
去试一试吧!!!祝你成功!!!!
b1=if(a1<>"",today(),"")
系统时间变化之前时间不变,可以复制粘贴为数值就可以了
是用VBA代码吧。假设你要加入这个功能到你的工作簿的 sheet1 工作表中,那么 alt + F11,然后在左边工程中,找到你所在的工作簿,然后在下面的EXCEL对象中找到 SHEET1,双击它,在弹出的窗口中,将以下代码,粘贴进去。就可以实现你的功能了。(a列如有改动,b列对应的位置就输入日期。)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address Like "$[A]$*" Then Cells(Target.Row, 2) = Format(Now(), "YYYY-MM-DD")
End Sub
楼上说的还是蛮好用的,建议使用
绛旓細1) = Date '褰撳墠鍗曞厓鏍鍙宠竟涓鏍 =鏃ユ湡 Else Target.Offset(0, 1) = "" '濡傛灉娓呯┖ 鍐呭鍒欏彸杈逛竴鏍 娓呯┖ End If End IfEnd Sub
绛旓細浣犺繖閲屾湁涓潯浠舵病璇存竻妤氾紝鍗筹紝褰A1涓嶇瓑浜嶢2鏃舵庝箞澶勭悊銆傚鏋滀笉绛変簬閭2鍙樉绀轰负绌虹櫧鐨勮瘽灏卞湪B2閲岃緭鍏ワ紳if(A1=A2,B1,"")
绛旓細鍥犱负瑕佸湪C1鍗曞厓鏍间腑鐩存帴鍔1锛屾墍浠ヨ杩涜涓鐐硅缃紝浠excel2021涓轰緥锛屾墦寮鏂囦欢-閫夐」-鍏紡-鍚敤杩唬璁$畻锛屾渶澶氭鏁版敼涓1锛岀劧鍚庡線涓嬬湅銆侰1鍑芥暟涓=IF(C1<1,1,IF(COUNTIF(B1:B10,A1)>0,C1,C1+1))绠鍗曡В閲婁笅锛氬闈F鍑芥暟鐢ㄦ潵鍒ゆ柇C1鍒濆鍊硷紝娌℃湁杩欎釜鍒ゆ柇鐨勮瘽浼氫负0锛屽姞涓婂悗鍒濆鍊煎彉鎴1銆傜劧鍚庡氨鏄牴...
绛旓細1銆佺數鑴戞墦寮Excel琛ㄦ牸銆2銆佸啀A1鍗曞厓鏍间腑杈撳叆浠绘剰鏁板瓧锛岀劧鍚庡啀鍙︿竴涓崟鍏冩牸杈撳叆鍏紡=IF(A1<>"",A1,"")銆3銆佸彟涓涓崟鍏冩牸杈撳叆鍏紡=IF(A1<>"",A1,"")鍚庯紝鎸夊洖杞﹀氨鍙互浜嗭紝涓嶇A1杈撳叆浠涔堜笢瑗匡紝杩欎釜杈撳叆鍏紡鐨勮繖涓崟鍏冩牸閮戒細鑷姩鐢熸垚A1鐨勫唴瀹广4銆佽繕鏈変竴绉嶆瘮杈冪畝鍗曠殑鏂规硶锛屽湪鍙︿竴涓崟鍏冩牸涓緭鍏...
绛旓細鍦Excel琛ㄦ牸涓涓昏鐢ㄤ簬鏁版嵁缁熻鍒嗘瀽姹囨荤瓑锛屽彧瀛樺湪閫昏緫閿欒锛屽拰鏉′欢閿欒锛岃屼笉浼氭樉鐜版彁绀烘垨绯荤粺閿欒 1銆侀昏緫閿欒 涓句釜绠鍗曚緥瀛愶細琚櫎鏁懊烽櫎鏁=鍟嗭紝鑰岄櫎鏁颁笉鑳戒负0锛屽綋涓0鏄氨鍑虹幇涓嶈兘杩愮畻鐨勭粨鏋滆〃鏍煎氨浼氬嚭鐜扮浉搴旂殑閿欒绠楁硶鎶ュ憡锛屽涓嬶細2銆佹潯浠堕敊璇 鎴戜滑鐢ㄥ弽璁鸿瘉鏉ヨ璁猴紝浣犺姹褰揂1鍗曞厓鏍鏈夊唴瀹规椂锛孉2蹇呴』...
绛旓細=IF(A1>=10000,10000,IF(A1<=2000,2000,A1))瀹為檯鍙敤鏇寸畝鍗曠殑鍏紡:=median(2000,A1,10000)
绛旓細濡備笅锛屽湪B1涓緭鍏ュ叕寮 =INDEX(C:C,A1,1)鐒跺悗閫変腑姝鍗曞厓鏍硷紝榧犳爣绉昏嚦姝ゅ崟鍏冩牸鐨勫彸涓嬭锛屽緟鍑虹幇榛戝姞鍚庢寜浣忓線涓嬫媺濉厖鍗冲彲銆
绛旓細A1鍐1锛孉2閲岄潰鍐2锛岀劧鍚庝袱涓兘閫変腑锛岀Щ鍔ㄩ紶鏍囧埌鍙充笅瑙掞紝浣垮叾鍙樻垚瀹炲績鍗佸瓧锛屽啀浣忎笅鎷夊氨鍙互浜嗐
绛旓細鍦˙2涓緭鍏ュ叕寮忥細=IF(AND(INDIRECT("A"&(COLUMN()-1))<>"",INDIRECT("A"&(COLUMN()-1))<>0),1,"")骞跺悜鍙冲鍒躲傚綋A鍒鍗曞厓鏍涓嶄负绌烘垨涓嶄负0鏃讹紝瀵瑰簲鐨勭涓琛屽崟鍏冩牸缃负1.琛ュ厖 鍦˙2涓緭鍏ュ叕寮忥細=IF(INDIRECT("A"&(COLUMN()-1))=ROW(),1,"")鍚戝彸鍚戜笅澶嶅埗銆
绛旓細鍦˙1鍗曞厓鏍杈撳叆浠ヤ笅鍏紡涔嬩竴 =LOOKUP(A1,{0,0.95,1.2;1,2,3})=IF(A1>=1.2,3,IF(A1>=0.95,2,1))