excel中使用vb编写宏并使用
1.首先打开excel,选择功能区的视图-宏-录制宏2.然后在弹出框中填写名称及其说明,便于多个宏时进行区分。点击确定。
3.再次点击视图-宏,选择查看宏
4.选择你刚刚添加的宏,点击编辑,就会进入vb编辑器页面
5.在编辑器中编写你想要的功能,(例如截图中的A列第一行填写1,A列第二行填写2),保存并关闭。
6.回到excel界面后,视图-宏-停止录制。这时候宏已经制作完成。
7.和第三布一样,选择视图-宏-查看宏,这时候你刚刚制作完成的宏就显示在第一个,点击执行,就会出现效果(A列第一行填写1,A列第二行填写2)。
完成。
vb的语法请自行搜索,或者留言学习交流~
绛旓細鍒╃敤workwheet鐨刢hange鏂规硶 Private Sub Worksheet_Change(ByVal Target As Range)''' 浠g爜涓厖鍒嗗埄鐢═arget杩欎釜鍙傛暟鍜岃繖涓弬鏁扮殑VALUE銆丷OW銆丆OLOUME绛夊睘鎬,鐢ㄤ簬鍒ゆ柇姝e湪琚缂栬緫鐨勫崟鍏冩牸鐨勪綅缃 ''' 涓鑸繕浼氱敤鍒癮pplication.WorksheetFunction杩欎釜瀵硅薄锛屽璞″寘鎷殑鎴愬憳灏辨槸EXCEL涓鐨勫叕寮 '''鍥犱负浣犳病鏈...
绛旓細鍦‥XCEL涓褰曞埗涓涓畯锛屽苟鎸囧畾蹇嵎閿紙渚嬪Ctrl+g锛夛紝淇敼璇瀹忕殑VBA妯″潡浠g爜濡備笅锛1銆佸0鏄庢锛欴eclare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _ ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVa...
绛旓細鍦‥XCEL涓鎸堿LT+F11杩涘叆VB缂栫▼鐜,鐒跺悗鍙互鐢╒B璇彞瀵瑰崟鍏冩牸杩涜鎿嶄綔,姣斿:cells(1,2).value=cells(1,1).value+1 灏辨槸鎶婄涓琛岀涓鍒楃殑鏁板姞涓1鍐嶅湪绗竴琛岀浜屽垪鐨勫崟鍏冩牸涓樉绀哄嚭鏉.
绛旓細鈥 濡傛灉鈥滃仠姝㈠綍鍒垛濆伐鍏锋爮寮濮嬪苟鏈嚭鐜,璇烽夋嫨鈥滃伐鍏封濃斺瀹鈥濃斺滃仠姝㈠綍鍒垛濄 褰曞埗瀹屼竴涓畯鍚庡氨鍙互鎵ц瀹冧簡銆 1.4 鎵ц瀹 褰撴墽琛屼竴涓畯鏃,EXCEL鎸夌収瀹忚鍙ユ墽琛岀殑鎯呭喌灏卞儚VBA浠g爜鍦ㄥEXCEL杩涜鈥滈仴鎺р濄備絾VBA鐨勨滈仴鎺р濅笉浠呰兘浣挎搷浣滃彉寰楃畝渚,杩樿兘浣夸綘鑾峰緱涓浜浣跨敤EXCEL鏍囧噯鍛戒护鎵鏃犳硶瀹炵幇鐨勫姛鑳姐傝屼笖,涓鏃...
绛旓細鎴戣寰楁病鏈夊繀瑕鐢ㄥ畯鏉ュ疄鐜拌繖浜涘姛鑳斤紝鐢ㄤ袱涓伐浣滆〃灏卞彲浠ヤ簡锛屼竴涓伐浣滆〃璁板綍瀛︾敓鎴愮哗锛屽彟涓涓负缁熻鏁版嵁銆1銆佹妸瀛︾敓涓嶅強鏍肩殑绉戠洰鍗曞厓鏍艰儗鏅爣涓虹孩鑹 閫夊畾濉啓鎴愮哗鐨勫崟鍏冩牸锛岀偣鍑绘牸寮忚彍鍗曪紝閫夋嫨鏉′欢鏍煎紡锛屾寜浣犵殑瑕佹眰璁剧疆涓涓潯浠跺氨瀹炵幇銆2銆佺粺璁″悇绉戞讳汉鏁般佸強鏍间汉鏁般佸緱闆跺垎浜烘暟銆佸钩鍧囧垎鍙婁笉鍙婃牸鐨勫鐢...
绛旓細绗竴姝:鎵撳紑Excel(鎴栦綘瑕佹墦寮鐨凟xcel鏂囦欢)锛>宸ュ叿锛>瀹忥紞>瀹夊叏鎬э紞>鍙潬鍙戣鍟嗭紝閫変腑鈥滀俊浠诲浜嶸isiual Basic 椤圭洰鐨勮闂濓紝鎸夌‘瀹,鐒跺悗鍏抽棴瀹冦備笉鐒舵槸娌℃硶瀵煎叆鐨.绗簩姝:鍦VB涓伐绋/寮曠敤涓坊鍔犲Excel妯″潡鐨勫紩鐢,杩欎綘搴旇宸茬粡鍋氳繃浜.绗笁姝:鎶婁綘鐨勪唬鐮佷繚瀛樻垚纭洏涓婄殑.bas鏂囦欢,濡 e:\aaa.bas ...
绛旓細VB鎵撳紑Excel锛歋hellExecute hwnd, "open", "C:\1.xls", vbNull, vbNull, 1 鍦═hisWorkbook涓嬪缓绔婸rivate Sub Workbook_Open()瀹忓懡浠わ紝鍒欏湪姣忔鎵撳紑杩欎唤Excel鏂囨。鏃跺氨浼氳嚜鍔ㄨ繍琛岃瀹忕殑浠g爜銆
绛旓細瀹忕殑杩愯鍘熺悊 鐢靛奖鏄敤鏁板瓧璁板綍涓嬫潵鐨勶紝Excel涓殑瀹鏄垯鏄敤涓绉嶈瑷淇濆瓨涓嬫潵鐨勶紝杩欑璇█灏辨槸VBA璇█锛岃繖绉峍B璇█鍙互鍦‥xcel涓紪鍐涓浜涜鍙ュ拰浠g爜锛屾垜浠氳繃鎵ц杩欎簺璇█鍜屼唬鐮佸彲浠ュ畬鎴愪竴浜涚壒鍒搷浣滐紝鍙互璁〦xcel鍚垜浠殑鎸囨尌锛屽綍鍒跺畯灏辨槸鎶婅繖浜涘姩浣鐢╒B璇█璁板綍涓嬫潵锛屽綋鎴戜滑瑕侀渶瑕佹墽琛岃繖浜涢噸澶嶇殑鎿嶄綔锛屾垜浠...
绛旓細涓嶉渶瑕佸畯鍛戒护锛屽彧闇瑕佸湪H19鍒癏150璁剧疆鍗曞厓鏍兼牸寮忎负鏃堕棿鏍煎紡锛*13:30:55锛岀劧鍚庡啀鍦℉19杈撳叆锛=B19/3600/24锛屽畬鎴愬悗鍥炶溅锛屽苟鍚戜笅鎷栨媺澶嶅埗鍒癏150鍗冲彲
绛旓細褰曞埗涓涓畯涓嶅氨琛屼簡锛丼ub Macro1()Range("A1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="11"Range("C1:C4").Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste Sheets("Sheet1").Select Selection.AutoFilter Field:=2, ...