Excel里面如何使用VBA excel中怎么使用vba
excel\u4e2d\u7684vba\u662f\u4ec0\u4e48\u610f\u601d\uff0c\u5982\u4f55\u7528Excel_VBA\u5230\u5e95\u662f\u4e2a\u5565\uff01
\u7a0b\u5e8f\u4ee3\u7801\uff1a
\u8fd0\u884c\u6548\u679c\uff1a
Range对象成员不含你所说的这种方法的。
解决方法:
可以只取值,如:
Range("A1").Value
也可以先复制,然后粘贴为值。如:
Range("A1").Copy
Range("B1").PasteSpecial xlPasteValues
VBA主要是触发和指定单元格。
工具:电脑、excel2007。
1、打开电脑桌面上的excel2007软件。
2、打开一个Excel文件,鼠标右击下面的工作表(如sheet1)。选择“查看代码”,就可以打开VBA编辑界面。
3、选择如下图所示的下拉菜单,选择“worksheet”。
4、选择如下图所示的下拉菜单,选择对应的触发模式。这里选择BeforeDoubleClick,意思就是说:在本工作表鼠标双击(之前),将触发下面的代码程序。
5、选择完成后,会看到下面出现了两条代码;这俩条代码其实是在声明一个函数。将鼠标放置在这两行代码之间,写上执行语句:Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)。
6、然后点击保存,回到Excel的原始界面。
7、在cells(1,1)和cells(1,2)中输入两个数值。在sheet1的工作表中,双击鼠标。会发现,cells(1,3)的值变成了cells(1,1)和cells(1,2)的和。
vb可以调用Excel,并运行其中的宏的: Dim xlsApp As Excel.Application Dim xlsBook As Excel.Workbook Dim xlsSheet As Excel.Worksheet Set xlsApp = New Excel.Application Set xlsBook = xlsApp.Workbooks.Open(App.Path + "\test.xls") '打开你的EXCEL文档 Set xlsSheet = xlsBook.Worksheets(1) xlsApp.Visible = False Call xlsApp.Run("复制放样坐标12") '运行你的宏
工具-宏-录制
随便录制几个动作
停止录入
下次在工具-工-运行,找到你录制的宏,就可以运行。
vba大部分是用vb语言来写的.如果你会vb就可以在excel里面里面执行vba代码嘞
绛旓細鍗曞嚮缁х画鎸夐挳锛岀劧鍚庢寜鐓ф彁绀烘搷浣滃嵆鍙垚鍔熷畨瑁匳BA鐨勫府鍔╂枃浠躲傚畬鎴愩傛柊寤轰竴涓excel鏂囦欢锛岀偣鍑诲乏涓婅鐨勬枃浠舵寜閽紝鍦ㄥ乏渚ч夋嫨閫夐」鎸夐挳锛屽湪寮瑰嚭鐨勫璇濇涓夋嫨鑷畾涔夊姛鑳藉尯鎸夐挳锛岀劧鍚庡湪鑷畾涔夊姛鑳藉尯鐣岄潰鎵惧埌寮鍙戝伐鍏烽夐」鍗★紝鎵惧埌涔嬪悗锛岀偣鍑诲紑鍙戝伐鍏蜂腑鐨刅isual Basic灏卞彲浠浣跨敤vba浜嗭紝杩欎釜鏃跺檝ba灏卞凡缁忓畨瑁呮垚鍔熶簡銆
绛旓細VBA涓昏鏄Е鍙戝拰鎸囧畾鍗曞厓鏍笺傚伐鍏凤細鐢佃剳銆excel2007銆1銆佹墦寮鐢佃剳妗岄潰涓婄殑excel2007杞欢銆2銆佹墦寮涓涓Excel鏂囦欢锛岄紶鏍囧彸鍑讳笅闈㈢殑宸ヤ綔琛紙濡俿heet1锛夈傞夋嫨鈥滄煡鐪嬩唬鐮佲濓紝灏卞彲浠ユ墦寮VBA缂栬緫鐣岄潰銆3銆侀夋嫨濡備笅鍥炬墍绀虹殑涓嬫媺鑿滃崟锛岄夋嫨鈥渨orksheet鈥濄4銆侀夋嫨濡備笅鍥炬墍绀虹殑涓嬫媺鑿滃崟锛岄夋嫨瀵瑰簲鐨勮Е鍙戞ā寮忋傝繖閲岄夋嫨...
绛旓細濡傛灉浣犲皢鍙墽琛屾枃浠剁Щ鍔ㄥ埌鍙︿竴鍙拌绠楁満涓婏紝纭繚璇ヨ绠楁満涓婁篃瀹夎鏈夌浉鍚岀増鏈殑Excel銆備负浜嗙敓鎴愬彲鎵ц鐨凟XE绋嬪簭锛屾偍闇瑕浣跨敤Visual Basic for Applications(VBA)浠ュ強鐢ㄤ簬缂栬瘧浠g爜鐨刅isual Basic(VB)缂栬緫鍣ㄣ備互涓嬫槸鐢熸垚EXE鍙墽琛岀▼搴忕殑姝ラ锛1. 鎵撳紑Excel骞跺湪"寮鍙戣"閫夐」鍗′腑鍚敤"Visual Basic"銆2. 鍦╒B...
绛旓細瑕浣跨敤VBA鍒涘缓鏂扮殑Excel鏂囦欢锛屾偍鍙互鎸夌収浠ヤ笅姝ラ杩涜鎿嶄綔锛氭墦寮Excel骞舵寜涓婣lt + F11鎵撳紑VBA缂栬緫鍣ㄣ傚湪VBA缂栬緫鍣ㄤ腑锛岀‘淇"椤圭洰璧勬簮绠$悊鍣"绐楀彛鍙銆傚鏋滄湭鏄剧ず锛岃鎸変笅Ctrl + R鏉ユ樉绀哄畠銆傚湪"椤圭洰璧勬簮绠$悊鍣"绐楀彛涓紝灞曞紑"VBAProject锛堟偍鐨勫伐浣滅翱鍚嶇О锛"锛岀劧鍚庡弻鍑"Sheet1锛圫heet1锛"锛堟垨鑰呭叾浠栧伐浣...
绛旓細excel鍚敤杩愯瀹忔柟娉曪細1銆佸伐鍏-瀹-褰曞埗鏂板畯锛屼細鍑虹幇瀵硅瘽妗嗭紝璁剧疆蹇嵎鎸夐挳(缂栬緫鍖轰細鍑虹幇涓涓皬宸ュ叿鏍忥紝鍏堜笉绠″畠)2銆佸亣濡傛兂鏂扮紪鐨勫畯鏄竴涓粡甯浣跨敤鐨勯〉闈㈣缃紝閭e氨鎸夊钩鏃惰缃〉闈㈤偅鏍锋搷浣滐紝褰撻〉闈㈣缃ソ鍚庯紝鎸夊垰鎵嶅湪缂栬緫鍖哄嚭鐜扮殑宸ュ叿鏍涓鐨勫仠姝㈡寜閽嵆鍙3銆佸綋浣犳柊寤轰竴涓枃妗h椤甸潰璁剧疆鏃讹紝鍙渶鎸夋渶...
绛旓細瑕浣跨敤杩欐浠g爜锛屾偍闇瑕佹寜鐓т互涓嬫楠よ繘琛屾搷浣滐細鎵撳紑Excel锛屽苟鎸変笅Alt+F11閿紝鎵撳紑VBA缂栬緫鍣ㄣ傚湪宸︿晶鐨勯」鐩祫婧愮鐞嗗櫒涓锛屽弻鍑昏杩愯浠g爜鐨勫伐浣滅翱锛屼互灞曞紑鍏剁洰褰曘傚彸閿崟鍑"Microsoft Excel Objects"鏂囦欢澶癸紝閫夋嫨"鎻掑叆"->"妯″潡"锛屽湪椤圭洰璧勬簮绠$悊鍣ㄤ腑浼氬嚭鐜颁竴涓柊鐨勬ā鍧椼傚湪鍙充晶鐨勪唬鐮佺獥鍙d腑锛屽皢涓婅堪浠g爜...
绛旓細鏂规硶/姝ラ 1 鏂规硶1:浣跨敤VBA鐨凪kDir璇彞鍒涘缓鏂囦欢澶广備唬鐮佸涓嬶細Sub xyf()On Error Resume Next VBA.MkDir ("c:/渚嬪瓙")End Sub 鍏朵腑 VBA.MkDir ("c:/渚嬪瓙")琛ㄧず鍦–鐩樺垱寤轰竴涓悕涓衡滀緥瀛愨濈殑鏂囦欢澶 On Error Resume Next璇彞琛ㄧず濡傛灉宸茬粡鏈夎繖涓枃浠跺す锛屽垯涓嶅垱寤恒傚涓嬪浘鎵绀猴細2 鏂规硶2锛氫娇鐢...
绛旓細Range瀵硅薄鎴愬憳涓嶅惈浣犳墍璇寸殑杩欑鏂规硶鐨勩傝В鍐虫柟娉曪細鍙互鍙彇鍊硷紝濡傦細Range("A1").Value 涔熷彲浠ュ厛澶嶅埗锛岀劧鍚庣矘璐翠负鍊笺傚锛歊ange("A1").CopyRange("B1").PasteSpecial xlPasteValues
绛旓細excel2007鍒涘缓骞浣跨敤VBA浠g爜鐨勬搷浣滄暀绋嬬偣鎸夎鍥惧伐鍏锋爮visualbasic銆傜晫闈笂浼氬嚭鐜皏isualbasic宸ュ叿鏉★紝鎷栧姩宸ュ叿鏉″乏渚у埌涓婃柟鏉惧紑榧犳爣锛岀劧鍚庣偣visualbasic缂栬緫鍣ㄣ傝繘鍏isualbasic鐣岄潰鍚庣偣鎸夎彍鍗曟爮鎻掑叆妯″潡寮瑰嚭妯″潡鐣岄潰銆傝緭鍏ヤ竴娈典唬鐮佸鍥剧孩妗嗘墍绀恒傜偣鎸夎彍鍗曟爮杩愯杩愯瀛愯繃绋/鐢ㄦ埛绐椾綋F5銆傚湪寮瑰嚭鐨勫璇濇涓杈撳叆涓涓...
绛旓細picindex=1寮鍙戝伐鍏锋爮閲岄潰鏈塿isualbasic銆佸畯銆佸綍鍒跺畯绛夋寜閽傜偣鍑籿isualbasic灏卞彲浠ヨ繘琛岀紪绋嬩簡銆2銆佹妧宸сVBA璇█鏂逛究鏄撳锛屼絾鍦excel鐨勬帶浠跺悕绉版湁寰堝鏄垵瀛﹁呬笉鐔熸倝鐨勶紝鎵浠ヨ鍊熺敤褰曞埗瀹忓姛鑳斤紝鐢辩郴缁熷府鎴戜滑缂栧啓澶ч噺鐨勪唬鐮侊紝鎴戜滑鍙仛浠g爜浼樺寲鐨勫伐浣溿傚綍鍒剁粨鏉熷悗鐐瑰紑瀹忥紝鏌ョ湅杩欎釜瀹忚褰曠殑vba浠g爜銆3銆浣跨敤...