EXCEL工作表名称自动重命名为单元格内容，代码运行显示错误1004，请大神指点？ excel宏运行时出现运行时错误1004，应用程序定义或对象...
excel\u4e2d\u5f55\u5236\u7684\u5b8f\u91cc\u5305\u542b\u4e86\u6570\u636e\u900f\u89c6\u8868,\u4e3a\u4f55\u8fd0\u884c\u663e\u793a\u9519\u8bef1004\uff0c\u8bf7\u5927\u795e\u6307\u70b9 \u4ee3\u7801\u5982\u4e0bPivot Table13 \u65b0\u5efa\u4e00\u4e2a \u540d\u5b57\u5c31\u4f1a \u9012\u589e\u4e00\u4e2a \uff0c\u4ee5\u524d\u4e00\u4e2a \u662f13 \uff0c\u65b0\u5efa\u4e00\u4e2a \u5c31\u662f\u4f1a\u53d8\u621014\uff0c
\u800c\u4f60 \u7684\u7a0b\u5e8f\u540d\u5b57\u662f\u56fa\u5b9a\u7684
Target.Offset(0, -2)\u8868\u793a\u9f20\u6807\u70b9\u51fb\u4f4d\u7f6e\u7684\u5de6\u8fb9\u7b2c\u4e8c\u5217\uff0c\u5f53\u70b9A\u3001B\u5217\u7684\u65f6\u5019\u5c31\u4f1a\u62a5\u9519\uff0c\u56e0\u4e3a\u4ed6\u4eec\u7684\u5de6\u8fb9\u51fa\u754c\u4e86\u3002
\u5c3d\u7ba1\u524d\u9762\u6709Column=10\u7684\u5e76\u4e14\u6761\u4ef6\uff0c\u4f46\u662fVBA\u4e0d\u8fdb\u884c\u5e03\u5c14\u77ed\u8def\uff0c\u56e0\u6b64\u5176\u4ed6\u5217\u70b9\u9f20\u6807\u7684\u65f6\u5019\u4efb\u7136\u4f1a\u53bb\u67e5\u770b\u5de6\u8fb9\u7b2c\u4e8c\u5217\u3002
\u89e3\u51b3\u7684\u529e\u6cd5\u662f\u4f7f\u7528\u5d4c\u5957\u7684If\u5224\u5b9a\uff0c\u6211\u7b80\u5355\u4fee\u6539\u5982\u4e0b\uff0c\u53ef\u80fd\u4f60\u8fd8\u9700\u8981\u9002\u5f53\u5fae\u8c03\uff1a
Private Sub Worksheet_Change(ByVal Target As Range) Dim l_row As Long, l_column As Long i_row = Target.Row i_column = Target.Column If Target.Count = 1 Then If i_column = 10 Then If Target.Offset(0, -2) "" Then Cells(i_row, 17) = Target.Offset(0, -2) Else Cells(i_row, 17) = Date End If ElseIf i_column = 8 Then If Target.Offset(0, 9) "" Then Cells(i_row, 17) = "" End If End IfEnd Sub\u53d8\u91cf\u5b9a\u4e49\u5747\u9700\u8981\u6307\u5b9a\u7c7b\u578b\uff0c\u7a0b\u5e8f\u4ee3\u7801\u9002\u5f53\u8fdb\u884c\u7f29\u51cf\uff0c\u5c3d\u91cf\u4f7f\u7528\u5df2\u7ecf\u8d4b\u503c\u7684\u7b80\u5355\u53d8\u91cf
检查第47个sheet的A11单元格内容，是否为空？
绛旓細鍦ㄥ綋鍓嶅浜庣紪杈戠姸鎬佺殑鍚屼竴涓宸ヤ綔绨涓紝寤虹珛鏁版嵁鐨勬煡鎵惧拰寮曠敤鍏崇郴鍚庯紝褰撴暟鎹簮鐨琛ㄥ悕鍙戠敓鏀瑰彉锛屾瘮濡係heet1閲嶅懡鍚涓篠heet100锛屽垯鎵鏈変笌Sheet1寤虹珛浜嗘暟鎹紩鐢ㄥ叧绯荤殑锛鑷姩灏哠heet1淇敼涓篠heet100锛屼笉褰卞搷鏁版嵁鐨勬甯稿紩鐢ㄣ傚鏋滄暟鎹簮涓哄叾浠栧伐浣滅翱鐨宸ヤ綔琛锛屼笖琛ㄥ悕鍙戠敓浜嗗彉鍖栵紝褰撴墦寮宸ヤ綔绨挎椂锛Excel浼氳嚜鍔ㄦ彁绀...
绛旓細鏂规硶涓銆佹墦寮excel琛ㄦ牸锛屾壘鍒颁笅闈㈢殑宸ヤ綔琛╯heet1銆乻heet2銆乻heet3鏍忥紝閫夋嫨瑕佹敼鍚嶇殑宸ヤ綔琛銆傛瘮濡俿heet1锛屽崟鍑烩滄牸寮忊啋宸ヤ綔琛ㄢ啋閲嶅懡鍚嶁濆懡浠ゃ傝繖鏃跺伐浣滆〃鐨勬爣绛句笂鍚嶅瓧灏嗚鍙嶇櫧鏄剧ず銆傜劧鍚庡湪鏍囩涓婅緭鍏ユ柊鐨勮〃鍚嶅嵆鍙傞噸鍛藉悕 鏂规硶浜屻佹垨鑰呬綘鐩存帴鍙屽嚮宸ヤ綔琛ㄦ爣绛惧嵆鍙噸鏂板懡鍚嶃傛敞鎰忔垜浠湪excel鍛藉悕宸ヤ綔琛ㄥ懡鍚嶈鍒欙細...
绛旓細绗竴绉嶏細鍒╃敤Excel宸ヤ綔琛ㄧ幇鏈夊崟鍏冩牸鍐呭杩涜鎵归噺閲嶅懡鍚銆備緥濡傦細Excel宸ヤ綔琛ㄩ粯璁ゆ爣绛句负sheet1锛宻heet2锛宻heet3锛宻heet4銆傚浣曞揩閫熼噸鍛藉悕涓1鏈堥攢鍞〃锛2鏈堥攢鍞〃锛3鏈堥攢鍞〃锛4鏈堥攢鍞〃銆俿heet1宸ヤ綔琛ˋ1:A4鍗曞厓鏍煎唴瀹规槸1鏈堥攢鍞〃锛2鏈堥攢鍞〃锛3鏈堥攢鍞〃锛4鏈堥攢鍞〃銆傛柟娉曪細鎸変笅ALT+F11锛屾墦寮VBE绐楀彛...
绛旓細1銆佹墦寮Excel銆2銆佸湪A1-A6渚濇杈撳叆1鏈-6鏈堥攢鍞〃銆3銆佺偣鍑烩滄彃鍏宸ヤ綔琛鈥濄4銆佺洰鏍囨槸鎶奡heet1-Sheet6鍙樻垚鈥1鏈-6鏈堥攢鍞〃鈥濄5銆佹寜涓婣LT+F11锛屾墦寮VBA绐楀彛銆6銆佸崟鍑烩滄彃鍏モ濆啀鐐瑰嚮鈥滄ā鍧椻濄7銆佽皟鍑衡滀唬鐮佲濊緭鍏ユ锛岃緭鍏ュ涓嬩唬鐮侊細Sub 鎸堿鍒楁暟鎹慨鏀琛ㄥ悕绉()On Error Resume Next '蹇界暐閿欒...
绛旓細棣栧厛锛屾垜浠潵鍑嗗鏂鐨勫悕瀛锛屽搴旂浉搴旂殑宸ヤ綔琛锛屼粠A2鍗曞厓鏍煎紑濮嬶紝A1瀛樻斁鏍囬瀛楁銆傛柊鍚嶅瓧鍏ㄩ儴鍑嗗濂藉悗锛岀劧鍚庝换鎰忓伐浣滆〃鏍囩鍙冲嚮锛岀偣鍑绘煡鐪嬩唬鐮侊紝鎴栬匒LT+F 11蹇嵎閿紝璋冨嚭VBE瀵硅瘽妗嗐傝繘鍏BE瀵硅瘽妗嗗悗锛屽彸鍑籺hisworkbook,閫夋嫨鎻掑叆锛岀劧鍚庨夋嫨妯″潡銆傚弻鍑绘ā鍧楋紝杩涘叆浠ｇ爜杈撳叆妗嗚緭鍏ヤ竴涓嬩唬鐮 Sub 閲嶅懡鍚() Dim i ...
绛旓細1銆佷竴涓柊寤虹殑excel宸ヤ綔绨榛樿鏈変笁涓伐浣滆〃銆2銆佸皢榧犳爣绉诲埌sheet1鏍囩涓婏紝鍙屽嚮榧犳爣宸﹂敭锛宻heet1鏍囩榛戣壊鑳屾櫙鏄剧ず锛屽浜庡彲浠ョ紪杈戠姸鎬併3銆佸湪sheet1杈撳叆"绀轰緥"鏇挎崲鏃ф爣绛"sheet1"锛屽洖杞︼紝瀹屾垚閲嶅懡鍚銆4銆佸皢榧犳爣绉诲埌"绀轰緥"鏍囩涓婏紝鍙冲嚮榧犳爣锛屽嚭鐜板涓嬪璇濇锛岀偣閫"绱㈠紩鏍囩棰滆壊"銆5銆佸湪娆＄骇鑿滃崟涓紝鐐...
绛旓細宸ュ叿/鍘熸枡excel鏂规硶涓锛氬弻鍑宸ヤ綔琛鏍囩杩涜閲嶅懡鍚1鎵撳紑宸ヤ綔绨鍚庯紝閫夊畾瑕侀噸鍛藉悕鐨勫伐浣滆〃銆2鍙屽嚮瑕侀噸鍛藉悕鐨勫伐浣滆〃鏍囩銆傛鏃跺伐浣滆〃鏍囩鐨鍚嶇О澶勪簬鍙紪杈戠姸鎬侊紝杈撳叆瑕佸懡鍚嶇殑鍚嶇О銆3杩斿洖宸ヤ綔绨匡紝鍙互鐪嬪埌璇ュ伐浣滆〃宸茶閲嶅懡鍚嶃傛柟娉曚簩锛氶夋嫨鈥滈噸鍛藉悕鈥濆懡浠よ繘琛岄噸鍛藉悕1鍙冲嚮闇瑕侀噸鍛藉悕鐨勫伐浣滆〃鏍囩锛屽湪寮瑰嚭鑿滃崟涓...
绛旓細1. 鐩存帴鐐瑰嚮閲嶅懡鍚 鍦ㄥ伐浣滆〃鐨勬爣绛句笂鍙抽敭鍗曞嚮锛屼細寮瑰嚭涓涓彍鍗曪紝鍏朵腑鏈変竴椤规槸“閲嶅懡鍚”銆傜偣鍑诲悗锛屽彲浠ョ洿鎺ヨ緭鍏ユ柊鐨宸ヤ綔琛ㄥ悕绉銆2. 浣跨敤Alt閿揩閫熼噸鍛藉悕 鍦ㄥ伐浣滆〃鏍囩涓婃寜涓婣lt閿紝浼氭樉绀哄伐浣滆〃鐨勫悕绉板浜庡彲缂栬緫鐘舵侊紝姝ゆ椂鍙互鐩存帴杈撳叆鏂扮殑鍚嶇О銆傝繖绉嶆柟娉曡緝涓哄揩鎹枫傝缁嗚В閲婏細鍦Excel涓锛...
绛旓細閲嶅懡鍚嶏紙锛塂im i锛咶or i = 1 To Sheets.CountSheets锛 i 锛 . Name = Sheets 锛 1 锛 . Cells 锛 i , 1 锛塏extEnd Sub绛夎繑鍥 Excel琛ㄦ牸涓殑鐣岄潰锛岃〃鏍间腑鍑芥暟鍦ㄦ帶浠朵笅鍙夋嫨鎸夐挳鍑芥暟鎺т欢 榧犳爣鐐瑰嚮 鍏朵粬鐨勫崟鍏冩牸浣挎寜閽彉鎴愬彲鐢ㄧ姸鎬 锛屽湪鎸夐挳鐐瑰嚮鏃讹紝琛ㄦ牸宸茬粡灏卞浜庢壒閲閲嶅懡鍚嶈〃鏍煎悕绉浜嗐
绛旓細Application.Calculation = xlCalculationAutomatic '鑷姩閲绠 End Sub 绗簩绉嶏細鐩存帴鎵归噺閲嶅懡鍚岴xcel宸ヤ綔琛銆 Sub 鏂宸ヤ綔琛ㄥ悕() Dim i As Long &#...
