excel中怎么运行vba代码
解决办法以及步骤:
1、在使用vba中,调用宏的时候会出现无法运行宏的情况,如下图所示:
2、在EXCEL表格的界面下,如下图所示,找到”EXCEL选项“并点击。
3、弹出EXCEL选项对话框,如下图所示:
4、在EXCEL选项的界面下,点击“信任中心”如下图:
5、在信任中心的窗体下,单击”信任中心设置“,如下图所示:
6、弹出信任中心的对话框,如下图所示:
7、在信任中心的窗体下,单击”宏设置“如下图所示:
8、如下图所示,可以看到此时的选项是“禁用所有宏,并发出通知”。
9、此时只需要选择启用所有宏并点击确定,即可,如下图所示:
绛旓細瑕佸湪Excel涓繍琛屼竴涓猇B浠g爜锛棣栧厛闇瑕佹墦寮Excel骞堕夋嫨鈥滃紑鍙戜汉鍛樷濋夐」鍗★紝鐒跺悗鐐瑰嚮鈥淰isual Basic鈥濇寜閽墦寮VB缂栬緫鍣銆傚湪VB缂栬緫鍣ㄤ腑锛屽彲浠ユ柊寤轰竴涓ā鍧楋紝骞跺湪鍏朵腑缂栧啓闇瑕佽繍琛岀殑VB浠g爜銆傚畬鎴愪唬鐮佸悗锛屽彲浠閫氳繃鐐瑰嚮鈥滆繍琛屸濇寜閽垨鎸変笅F5閿潵鎵ц浠g爜銆傚彟澶栵紝涔熷彲浠ュ皢浠g爜涓庣壒瀹氱殑浜嬩欢鍏宠仈锛屼緥濡傛寜閽偣鍑讳簨浠舵垨...
绛旓細1銆佸湪浣跨敤vba涓紝璋冪敤瀹鐨鏃跺欎細鍑虹幇鏃犳硶杩愯瀹忕殑鎯呭喌锛屽涓嬪浘鎵绀猴細2銆鍦‥XCEL琛ㄦ牸鐨勭晫闈笅锛屽涓嬪浘鎵绀猴紝鎵惧埌鈥滶XCEL閫夐」鈥滃苟鐐瑰嚮銆3銆佸脊鍑篍XCEL閫夐」瀵硅瘽妗嗭紝濡備笅鍥炬墍绀猴細4銆佸湪EXCEL閫夐」鐨勭晫闈笅锛岀偣鍑烩滀俊浠讳腑蹇冣濆涓嬪浘锛5銆佸湪淇′换涓績鐨勭獥浣撲笅锛屽崟鍑烩濅俊浠讳腑蹇冭缃滐紝濡備笅鍥炬墍绀猴細6銆佸脊鍑轰俊浠...
绛旓細浠g爜濡備笅:Sub 鑾峰彇VBA鐗堟湰()MsgBox Application.VBE.Version End Sub 褰撴寜F5閿紝灏辨姤锛杩愯鏃堕敊璇1004銆傜粡鑰佸笀鎸囩偣锛屽崟鍑绘枃浠垛曗曢夐」鈥曗曚俊浠讳腑蹇冣曗曟墦寮鈥滀俊浠讳腑蹇冣濆璇濇锛屽畯璁剧疆鈥曗曞嬀閫夆滀俊浠诲VBA宸ョ▼瀵硅薄妯″瀷鐨璁块棶鈥濄傚啀娆¤繍琛岋紝灏变笉浼氬嚭鐜拌繍琛屾椂閿欒1004鎻愮ず銆傚悗鏉ュ湪寰蒋瀹樻柟涔熺湅鍒颁簡姝ゆ秷鎭...
绛旓細1銆侀鍏堟墦寮鐢佃剳涓鐨別xcel锛屽湪寤虹珛鐨勬柊宸ヤ綔琛ㄤ腑鐨凷heet1涓婄偣鍑汇愬彸閿戙2銆佷笅涓姝ワ紝鍦ㄥ脊鍑虹殑閫夋嫨鍒楄〃涓夋嫨銆愭煡鐪浠g爜銆戣繖涓椤广3銆佹帴鐫锛岀偣鍑诲彸渚х殑鍊掍笁瑙掞紝鍦ㄤ笅鎷夊垪琛ㄤ腑閫夋嫨銆怶orksheet銆戜竴椤广4銆佺劧鍚庯紝鐐瑰嚮鍙宠竟鍊掍笁瑙掞紝閫夋嫨銆愯Е鍙戙戞柟寮忥紝濡侭eforeDoubleClick琛ㄧず鍦ㄥ弻鍑婚紶鏍囧乏閿椂瑙﹀彂銆5銆佺偣鍑诲悗浼...
绛旓細1銆侀鍏堟墦寮宸ヤ綔琛紝鐐瑰嚮銆愬紑鍙戝伐鍏枫戜笅鐨銆怴isual Basic 銆戦夐」銆2銆佹墦寮VBA宸ョ▼绐楀彛鍚庯紝鍦ㄥ乏渚х殑鈥淭hisWorkbook鈥濅笂闈㈠崟鍑诲彸閿紝閫夋嫨鈥滄彃鍏モ濓紝鈥滄ā鍧椻濄3銆佸湪鈥滄ā鍧1鈥濈殑浠g爜绐楀彛閲岄潰杈撳叆浠ヤ笅VBA浠g爜銆4銆佹寜涓婩5閿紝鎴栬呯偣鍑籚BA宸ョ▼绐楀彛涓婇潰鐨勨滆繍琛屸濆浘鏍杩愯VBA绋嬪簭锛屼箣鍚庡氨浼氳嚜鍔ㄥ鍒跺伐浣滆〃锛屾敼鍙...
绛旓細1銆佹墦寮excel杞欢锛岀偣鍑诲乏涓婅鈥滄枃浠垛濓紱2銆佺偣鍑婚夐」锛3銆鍦╡xcel閫夐」鐣岄潰鐐瑰嚮鑷畾涔夊姛鑳藉尯锛屽嬀閫夊紑鍙戝伐鍏凤紝鐐瑰嚮纭畾锛4銆佸紑鍚紑鍙戝伐鍏峰悗灏卞彲浠ュ湪涓昏彍鍗曚笂鐪嬪埌寮鍙戝伐鍏烽夐」鍗′簡锛岄渶瑕佹墦寮VBA灏卞湪寮鍙戝伐鍏烽夐」鍗$偣鍑籿isual basic鍗冲彲锛5銆佸啓涓涓畝鍗浠g爜锛屽湪VBA绐楀彛閫夋嫨鎻掑叆-妯″潡锛屾柊寤轰竴涓ā鍧椼傜偣鍑绘ā鍧1...
绛旓細1.鍦‥xcel涓鎸夊揩鎹烽敭Alt+F11锛屾墦寮VBA缂栬緫鍣ㄣ2.鍦ㄢ滃伐绋嬧濈獥鍙d腑鍙屽嚮鈥淭hisWorkBook鈥濓紝鍦ㄥ彸渚х殑浠g爜绐楀彛椤堕儴宸︿晶鐨勨滃璞♀濇涓紝閫夋嫨鈥淲orkBook鈥濄傝繖鏃讹紝Excel鑷姩鍦ㄤ唬鐮佺獥鍙d腑杈撳叆涓嬮潰鐨勪唬鐮侊細Private Sub Workbook_Open()End Sub 鐒跺悗鍦ㄥ叾涓緭鍏ラ渶瑕鎵ц鐨勫畯浠g爜锛屽涓嬩緥锛歅rivate Sub Workbook_Open(...
绛旓細1. 鎵撳紑Excel骞跺湪"寮鍙戣"閫夐」鍗′腑鍚敤"Visual Basic"銆2. 鍦╒B缂栬緫鍣ㄤ腑鍒涘缓鏂扮殑妯″潡銆傛偍鍙互閫氳繃 selecting "鎻掑叆"鑿滃崟涓殑"妯″潡"閫夐」鏉ュ疄鐜般3. 鍦ㄦā鍧椾腑缂栧啓鎮鐨刅BA浠g爜銆4. 鍙﹀瓨VB椤圭洰锛岄夋嫨 .vbp 鏂囦欢鏍煎紡銆傝繖灏嗘槸鐢熸垚鍙鎵ц鏂囦欢鐨勬枃浠躲5. 鍏抽棴Excel骞舵墦寮VB缂栬緫鍣ㄣ6. 鍦╒B缂栬緫鍣ㄤ腑锛...
绛旓細excel涓鍙互浣跨敤vba鏉ユ墦寮宸ヤ綔钖勭殑锛屼笅闈㈠皬缂栧氨涓哄ぇ瀹惰缁嗕粙缁嶄竴涓嬶紝鏈夐渶瑕佺殑鏈嬪弸鍙互鍙傝冩湰鏂囷紒姝ラ 1銆侀鍏堟垜浠墦寮涓涓伐浣滄牱琛ㄤ綔涓轰緥瀛愩2銆佹垜浠娇鐢╝lt+f11缁勫悎蹇嵎閿繘鍏be缂栬緫鍣紝鎻掑叆涓涓柊鐨勬ā鍧楋紝骞跺湪妯″潡涓緭鍏ヤ互涓浠g爜锛歋ub openWorkbook1()Workbooks.Open 闇鎵撳紑鏂囦欢鐨勮矾寰刓鏂囦欢鍚 End Sub ...
绛旓細Excel涓浣跨敤vba鏉ュ畾鏃杩愯绋嬪簭鐨勬搷浣滄楠ゅ涓嬶細棣栧厛鎴戜滑鎵撳紑涓涓伐浣滄牱琛ㄤ綔涓轰緥瀛愩備娇鐢╝lt+f11缁勫悎蹇嵎閿繘鍏be缂栬緫鍣紝鎻掑叆涓涓柊鐨勬ā鍧楋紝骞跺湪妯″潡涓緭鍏ヤ互涓浠g爜锛歋ub myProcedure()MsgBox ("绁濅綘鐢熸棩蹇箰")End Sub 杩欎釜杩囩▼寰堢畝鍗曪紝灏辨槸鏄剧ず涓涓浣犵敓鏃ュ揩涔愮殑瀵硅瘽妗嗭紝浣嗘槸姝e父鐨勯渶瑕佹縺娲昏繍琛岋紝浣嗘槸...