怎么在excel表格中插入VBA代码呢?
1、打开excel 表格;
2、按ALT +F11最快捷,或者excel表,标题上,调出"开发工具",在"开发工具"中,点击"Visual Basic";如果“开发工具"看不见,需要标题栏空白处,右键,”自定义功能区“,然后在”开发工具“前,勾选。见下截图。
3、双击,左侧sheet1,或者ThisWorkbook,右侧即出现VBA 代码编辑器,就可以开始你的代码编写之旅了。
绛旓細鐢╒BA鍦╡xcel涓坊鍔涓涓宸ヤ綔琛骞朵笖瀵瑰叾鍛藉悕鐨勫疄鐜版柟娉曞拰鎿嶄綔姝ラ濡備笅锛1銆侀鍏堬紝鍦‥xcel涓寜蹇嵎閿淎lt + F11鈥濓紝濡備笅鍥炬墍绀恒2銆佸叾娆★紝鍦╒BA缂栬緫鍣ㄤ腑渚濇鍗曞嚮鈥滄彃鍏モ-->鈥滄ā鍧椻濓紝濡備笅鍥炬墍绀恒3銆佺劧鍚庯紝鍦ㄢ滄ā鍧椻濅腑杈撳叆濡備笅浠g爜锛歄ption Explicit Sub addwork()Sheets.Add after:=Sheets(...
绛旓細鏂规硶涓锛氬彲浠ヨ瘯鐫鐢VB涔﹀啓涓娈佃皟鐢⊿QLServer鏁版嵁搴揇TS鐨勪唬鐮侊紝鐒跺悗灏卞彲浠ュ儚鐩存帴浣跨敤DTS杩涜鏁版嵁瀵煎叆涓鏍峰氨琛Excel涓嶴QLServer鏁版嵁涔嬮棿鐨勮縼绉讳簡銆傛柟娉曚簩锛氬彲浠ョ敤VB鏉ユ搷浣EXCEL锛岀劧鍚庝竴鏉℃暟鎹竴鏉℃暟鎹殑鎻掑叆鍒版暟鎹簱涓紝杩欑鏂规硶涓嶆帹鑽愪娇鐢紝鍥犱负VB鎿嶄綔EXCEL鏄潪甯告參鐨勶紝濡傛灉鏁版嵁閲忓お澶э紝寰堟湁鍙兘浼氶犳垚鏈恒
绛旓細excel 2010杩涘叆VB缂栬緫鍣ㄧ殑鍏蜂綋姝ラ濡備笅锛氭垜浠渶瑕佸噯澶囩殑鏉愭枡鍒嗗埆鏄細鐢佃剳銆Excel琛ㄦ牸銆1銆侀鍏堟垜浠墦寮闇瑕佺紪杈戠殑Excel琛ㄦ牸锛岀偣鍑绘墦寮鏂囦欢涓殑鈥滈夐」鈥濄2銆佺劧鍚庢垜浠湪寮瑰嚭鏉ョ殑绐楀彛涓偣鍑绘墦鍕捐嚜瀹氫箟鍔熻兘鍖轰腑鐨勨滃紑鍙戝伐鍏封濄3銆佺劧鍚庢垜浠偣鍑绘墦寮寮鍙戝伐鍏蜂腑鐨勨淰isual Basic鈥濆嵆鍙
绛旓細if cells(1,"A").value="缇庡浗" then cells(1,"B")="1123"end sub 浠ユ涓轰緥锛鍦‥xcel涓璋冪敤VBA绋嬪簭鐨勬搷浣滄楠ゅ涓嬶紙Excel2007涓轰緥锛夛細1.閫夋嫨鈥濆紑鍙戝伐鍏封滈夐」鍗★紝鐐瑰嚮鈥漋isual Basic鈥滐紙鎴栬呯敤蹇嵎閿瓵lt+F11锛2.鍑虹幇VBA缂栬緫鐣岄潰锛屾敞鎰忕湅宸︿晶锛岄夋嫨闇瑕佽繍琛屼唬鐮佺殑宸ヤ綔琛锛屾渚嬩负Sheet1锛涘弻鍑昏繘鍏...
绛旓細璇峰垱寤轰竴涓柊鐨勭┖鐧EXCEL宸ヤ綔钖勶紝鍦ㄨ繖涓枃浠剁殑VB妯″潡涓彃鍏闇瑕佺殑鑷畾涔夊嚱鏁颁唬鐮侊紙鍙互鏄涓嚱鏁帮級銆備繚瀛樺苟鍏抽棴鏂囦欢锛屼繚瀛樻椂鏂囦欢绫诲瀷閫夋嫨鈥滃姞杞藉畯锛*.xla)鈥濄傛墦寮浠绘剰涓涓狤XCEL宸ヤ綔钖勶紝鐐光滃伐鍏-鍔犺浇瀹-娴忚鈥濓紝鎵惧埌浣犲垰淇濆瓨鐨剎la鏂囦欢鍔犺浇杩涙潵骞跺湪鍒楄〃妗嗕腑鍕鹃夊氨琛屼簡锛岃繖鏍凤紝浠ュ悗鎵撳紑浠绘剰EXCEL鏂囦欢閮借兘...
绛旓細鎸堿lt+F11缁勫悎閿紝鎵撳紑VBA缂栬緫鍣紝鎵惧埌瀵瑰簲鐨宸ヤ綔琛鍙屽嚮涔嬶紝鍦ㄤ唬鐮佺獥鍙e嚭鍏ュ涓嬩唬鐮侊細Sub 瀹氫綅鍒癆1鍗曞厓鏍()Range("A1").Select End Sub 鍥炲埌宸ヤ綔琛ㄧ獥鍙o紝寮鍙戝伐鍏涓彃鍏琛ㄥ崟鎺т欢鎸夐挳锛岄夋嫨鎸囧畾瀹忊滃畾浣嶅埌A1鍗曞厓鏍尖濓紝璋冩暣濂芥寜閽ぇ灏忥紝淇敼鎸夐挳鏍囩鍚嶅強瀛椾綋璁剧疆锛屽崟鍑讳换鎰忕┖鐧藉銆傚湪闇瑕佹椂鍗曞嚮璇ユ寜閽紝鍒...
绛旓細涓句釜绠鍗曠殑渚嬪瓙鍚,vb鐣岄潰涓湁涓涓猼ext1,涓涓猚ommand1銆傝姹1:鍦╰ext1涓啓鍏ユ暟鎹渪x鈥,鐒跺悗鐐瑰嚮command1,灏卞彲浠ユ妸"xx"鏄剧ず鍦╡xcel琛ㄦ牸鐨凙1鍗曞厓鏍奸噷,姣斿excel琛ㄦ牸鐨勮矾寰勫湪"d:\11.xls"銆傚綍鍏ユ暟鎹悗,瑕佽嚜鍔ㄤ繚瀛樸傝姹2:鍐嶆鎵撳紑vb,褰曞叆鏁版嵁,姣斿鍦╰... 灞曞紑 460426434...
绛旓細Selection.Insert Shift:=xlDown 鎻掑叆琛岋紝Selection.Insert Shift:=xlToRight 鎻掑叆鍗曞厓鏍锛屽悜鍙崇Щ Selection.Insert Shift:=xlDown 鎻掑叆鍗曞厓鏍硷紝鍚戜笅绉 鍙﹀鍛婅瘔浣犱釜绠鍗曠殑鏂规硶锛屽氨鏄厛鎵撳紑褰曞埗鏂板畯锛岀劧鍚庤繘琛岋紝浣犺鐨勬搷浣滐紝鐒跺悗鎵撳紑瀹忔煡鐪嬩竴涓嬪師濮嬩唬鐮佸氨鐭ラ亾鍛戒护浜嗐
绛旓細浣跨敤琛ㄦ牸鏁版嵁锛堟牸寮忥級锛歁sgbox Sheet1.Range("A1").Value 鍏朵腑锛孲heet1鍙互鏇挎崲涓篠heets("宸ヤ綔绨 鍚嶇О")Range("A1")鍙互鏇挎崲涓篊ells(1,1)'鏂逛究寰幆 Value鐨勬剰鎬濇槸 寮曠敤鍗曞厓鏍 鐨勬渶缁堢粨鏋溿傚崟鍏冩牸鏈夊叕寮忕殑鏃跺欏繀椤荤敤杩欎釜鏉ュ紩鐢ㄧ粨鏋溿傚鏋滅敤 FormulaR1C1 鎴栬 Formula 鐨勮瘽浼氬嚭鏉ヨ繖涓崟鍏冩牸鐨勫叕寮忥紙...
绛旓細涓嶉渶瑕佸畯鍛戒护锛屽彧闇瑕佸湪H19鍒癏150璁剧疆鍗曞厓鏍鏍煎紡涓烘椂闂存牸寮忥細*13:30:55锛岀劧鍚庡啀鍦℉19杈撳叆锛=B19/3600/24锛屽畬鎴愬悗鍥炶溅锛屽苟鍚戜笅鎷栨媺澶嶅埗鍒癏150鍗冲彲