怎样使用Excel的宏.docVIP

怎样使用Excel的宏 鍦ㄤ粙缁嶅涔燰BA涔嬪墠锛屽簲璇ヨ姳鍑犲垎閽熷綍鍒朵竴涓畯銆? 鏂版湳璇細鈥滃畯鈥濓紝鎸囦竴绯诲垪EXCEL鑳藉鎵ц鐨刅BA璇彞銆? 浠ヤ笅灏嗚褰曞埗鐨勫畯闈炲父绠€鍗曪紝鍙槸鏀瑰彉鍗曞厓鏍奸鑹层€傝瀹屾垚濡備笅姝ラ锛? 1)鎵撳紑鏂板伐浣滅翱锛岀‘璁ゅ叾浠栧伐浣滅翱宸茬粡鍏抽棴銆? 2)閫夋嫨A1鍗曞厓鏍笺€傝皟鍑衡€滃父鐢ㄢ€濆伐鍏锋爮銆? 3)閫夋嫨鈥滃伐鍏封€濃€斺€滃畯鈥濃€斺€滃綍鍒舵柊瀹忊€濄€? 4)杈撳叆鈥滄敼鍙橀鑹测€濅綔涓哄畯鍚嶆浛鎹㈤粯璁ゅ畯鍚嶏紝鍗曞嚮纭畾,娉ㄦ剰锛屾鏃剁姸鎬佹爮涓樉绀衡€滃綍鍒垛€濓紝鐗瑰埆鏄€滃仠姝㈠綍鍒垛€濆伐鍏锋爮涔熸樉绀哄嚭鏉ャ€傛浛鎹㈤粯璁ゅ畯鍚嶄富瑕佹槸渚夸簬鍒嗗埆杩欎簺瀹忋€? 鈽?瀹忓悕鏈€澶氬彲涓?55涓瓧绗︼紝骞朵笖蹇呴』浠ュ瓧姣嶅紑濮嬨€傚叾涓彲鐢ㄧ殑瀛楃鍖呮嫭锛氬瓧姣嶃€佹暟瀛楀拰涓嬪垝绾裤€傚畯鍚嶄腑涓嶅厑璁稿嚭鐜扮┖鏍笺€傞€氬父鐢ㄤ笅鍒掔嚎浠ｈ〃绌烘牸銆? 5)閫夋嫨鈥滄牸寮忊€濈殑鈥滃崟鍏冩牸鈥濓紝閫夋嫨鈥滃浘妗堚€濋€夐」涓殑绾㈣壊,鍗曞嚮鈥滅‘瀹氣€濄€? 6)鍗曞嚮鈥滃仠姝㈠綍鍒垛€濆伐鍏锋爮鎸夐挳锛岀粨鏉熷畯褰曞埗杩囩▼銆? 鈥?濡傛灉鈥滃仠姝㈠綍鍒垛€濆伐鍏锋爮寮€濮嬪苟鏈嚭鐜帮紝璇烽€夋嫨鈥滃伐鍏封€濃€斺€滃畯鈥濃€斺€滃仠姝㈠綍鍒垛€濄€? 褰曞埗瀹屼竴涓畯鍚庡氨鍙互鎵ц瀹冧簡銆? 1.4 鎵ц瀹? 褰撴墽琛屼竴涓畯鏃讹紝EXCEL鎸夌収瀹忚鍙ユ墽琛岀殑鎯呭喌灏卞儚VBA浠ｇ爜鍦ㄥEXCEL杩涜鈥滈仴鎺р€濄€備絾VBA鐨勨€滈仴鎺р€濅笉浠呰兘浣挎搷浣滃彉寰楃畝渚匡紝杩樿兘浣夸綘鑾峰緱涓€浜涗娇鐢‥XCEL鏍囧噯鍛戒护鎵€鏃犳硶瀹炵幇鐨勫姛鑳姐€傝€屼笖锛屼竴鏃︾啛鎮変簡EXCEL鐨勨€滈仴鎺р€濓紝浣犻兘浼氬鎬嚜宸卞湪娌℃湁杩欎簺鈥滈仴鎺р€濈殑鎯呭喌涓嬶紝鍒板簳鏄€庝箞鐔繃鏉ョ殑銆傝鎵ц鍒氭墠褰曞埗鐨勫畯锛屽彲浠ユ寜浠ヤ笅姝ラ杩涜锛? 1锛夐€夋嫨浠讳綍涓€涓崟鍏冩牸锛屾瘮濡侫3銆? 2锛夐€夋嫨鈥滃伐鍏封€濃€斺€滃畯鈥濃€斺€滃畯鈥濓紝鏄剧ず鈥滃畯鈥濆璇濇銆? 3锛夐€夋嫨鈥滄敼鍙橀鑹测€濓紝閫夋嫨鈥滄墽琛屸€濓紝鍒橝3鍗曞厓鏍肩殑棰滆壊鍙樹负绾㈣壊銆傝瘯鐫€閫夋嫨鍏跺畠鍗曞厓鏍煎拰鍑犱釜鍗曞厓鏍肩粍鎴愮殑鍖哄煙锛岀劧鍚庡啀鎵ц瀹忥紝浠ヤ究鍔犳繁鍗拌薄銆? 1.5 鏌ョ湅褰曞埗鐨勪唬鐮? 鍒板簳鏄粈涔堝湪鎺у埗EXCEL鐨勮繍琛屽憿?浣犲彲鑳芥湁浜涚枒鎯?濂?璁╂垜浠湅鐪媀BA鐨勮鍙ュ惂. 1锛夐€夋嫨鈥滃伐鍏封€濃€斺€滃畯鈥濃€斺€滃畯鈥濓紝鏄剧ず鈥滃畯鈥濆璇濇銆? 2锛夊崟鍑诲垪琛ㄤ腑鐨勨€滄敼鍙橀鑹测€?閫夋嫨鈥滅紪杈戔€濇寜閽€? 姝ゆ椂锛屼細鎵撳紑VBA鐨勭紪杈戝櫒绐楀彛锛圴BE锛夈€傚叧浜庤缂栬緫鍣紝浠ュ悗鍐嶈缁嗚鏄庯紝鍏堝皢娉ㄦ剰鍔涢泦涓埌鏄剧ず鐨勪唬鐮佷笂銆備唬鐮佸涓嬶細锛堟棩鏈熷拰濮撳悕浼氭湁涓嶅悓锛? Sub 鏀瑰彉棰滆壊() 鏀瑰彉棰滆壊 Macro xw 璁板綍鐨勫畯 2000-6-10 With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End Sub 灏嗘潵浼氬崄鍒嗙啛鎮夎繖绉嶄唬鐮侊紝铏界劧鐜板湪瀹冧滑鐪嬩笂鍘诲儚涓€绉嶅鎬殑澶栬銆傚涔燰BA鎴栫紪绋嬭瑷€鍦ㄦ煇绉嶇▼搴︿笂姣旇緝鍍忓湪瀛︿範涓€绉嶅璇€? Sub 鏀瑰彉棰滆壊():杩欐槸瀹忕殑鍚嶇О銆? 涓棿鐨勪互鈥?鈥濆紑澶寸殑浜旇绉颁负鈥滄敞閲娾€濓紝瀹冨湪褰曞埗瀹忔椂鑷姩浜х敓銆? 浠ith 寮€澶村埌End With 缁撴潫鐨勭粨鏋勬槸With缁撴瀯璇彞锛岃繖娈佃鍙ユ槸瀹忕殑涓昏閮ㄥ垎銆傛敞鎰忓崟璇嶁€渟election鈥濓紝瀹冧唬琛ㄢ€滅獊鍑烘樉绀虹殑鍖哄煙鈥濓紙鍗筹細閫夊畾鍖哄煙锛夈€俉ith Selection.Interior 锛氬畠璇讳綔鈥滈€夋嫨鍖哄煙鐨勭殑鍐呴儴鈥?杩欐暣娈佃鍙ヨ缃鍖哄煙鍐呴儴鐨勪竴浜涒€滃睘鎬р€濄€? 鍏朵腑锛? .ColorIndex = 3: 灏嗚鍐呴儴璁句负绾㈣壊銆傛敞鎰忥細鏈変竴灏忓渾鐐癸紝瀹冪殑浣滅敤鍦ㄤ簬绠€鍖栬鍙ワ紝灏忓渾鐐逛唬鏇垮嚭鐜板湪With鍚庣殑璇?瀹冩槸With缁撴瀯鐨勪竴閮ㄥ垎銆傚彟澶栵細绾㈣壊琚暟瀛楀寲涓?.(绾㈣壊璀︽垝鏄惁鍙О浣滐細3鍙疯鎴掞紝鍡紵)鏈夊叴瓒ｇ殑璇濓紝浣犲皢3鏀逛负鍏朵粬鏁板瓧璇曡瘯鐪嬨€?