执行如下VBA程序
\u8fc7\u51e0\u79d2\u518d\u6267\u884c\u4e0b\u4e00\u4e2a\u7a0b\u5e8fVBA\u8be5\u600e\u4e48\u5199Application.Wait (Now + TimeValue("0:00:05"))
\u65b9\u6cd5\uff1a
open \u4e8b\u4ef6
Private Sub Workbook_Open()
End Sub
\u5728VBE\u7a97\u53e3\u4e2d\u5de6\u8fb9\u7684\u201cthisworkbook" ,\u53cc\u51fb\uff0c\u5c31\u51fa\u73b0\u5de6\u8fb9\uff08\u901a\u7528\uff09\uff0c\u628a\u5b83\u9009\u4e3aworkbook\uff0c\u518d\u9009OPEN\u4e8b\u4ef6
\u5728\u8fd9\u4e2a\u4e8b\u4ef6\u4e2d\u52a0\u5165\u4ee3\u7801\uff0c\u5c31\u53ef\u4ee5\u4e86\uff01
\u4e5f\u53ef\u4ee5\u7528
Sub auto_open()
End Sub
\u8fd9\u4e2a\u653e\u5728\u4efb\u4f55\u6a21\u5757\u90fd\u53ef\u4ee5\u3002
x=10
绛旓細韪忓叆VBA缂栫▼涓栫晫鐨勭涓姝ワ紝浣犱細鍙戠幇瀹冩槸涓绉嶅彜鑰佺殑婕斿彉鑷猇B鐨勭紪绋嬭瑷锛屽叾鍩虹鏋舵瀯婧愪簬Basic銆VBA绋嬪簭鐘瑰涔愮珷涓殑涓绘棆寰嬶紝浠嶴ub杩囩▼鍜孎unction杩囩▼寮濮嬬紪缁囥係ub杩囩▼涓嶧unction杩囩▼</Sub杩囩▼锛屽鍚岃垶鍙颁笂鐨勮〃婕旓紝鎬绘槸浠"Sub 杩囩▼鍚()"璧风瑪锛"End Sub"鏀跺熬銆傚畠鐨勪娇鍛芥槸鎵ц鐗瑰畾鍔ㄤ綔锛屼笉杩斿洖浠讳綍缁撴灉銆傝...
绛旓細缂虹渷鎯呭喌涓,鍦VBA绋嬪簭鎵ц杩囩▼涓,鐢ㄦ埛鎸変笅Ctrl+Break鑳藉涓柇VBA绋嬪簭鐨勬墽琛屻傛鏃舵灞炴у嵆鍊间负xlInterrupt銆傝嫢瑕佺姝腑鏂璙BA绋嬪簭,鐢辫祴鍊间负xlDisabled;鑻ラ渶瑕VBA鎵ц杩囩▼涓亣鍒伴敊璇繘涓,鐢辫祴鍊间负xlErrorHandler 8銆丼creenUpdating灞炴 鍚箟:鐢ㄤ互纭畾鏄惁鏄剧ずVBA绋嬪簭鐨勪腑闂磋繍绠楃粨鏋溿 9銆丼tatusBar灞炴 鍚箟:璁剧疆鐘舵佹爮鐨...
绛旓細渚嬪瓙浠ｇ爜锛歋ub xxx() AppActivate "璁颁簨鏈" SendKeys "{F3}{Tab}^V{enter}"End Sub绗竴涓鍙ユ縺娲荤獥鍙ｏ紝浣犻渶瑕佷慨鏀规爣棰橈紝绗簩涓鍙ュ彂閫佹寜閿
绛旓細1. VB鏄璁＄敤浜庡垱寤烘爣鍑嗙殑搴旂敤绋嬪簭,鑰VBA鏄娇宸叉湁鐨勫簲鐢ㄧ▼搴(EXCEL绛)鑷姩鍖 2. VB鍏锋湁鑷繁鐨勫紑鍙戠幆澧,鑰孷BA蹇呴』瀵勭敓浜庡凡鏈夌殑搴旂敤绋嬪簭.3. 瑕佽繍琛孷B寮鍙戠殑搴旂敤绋嬪簭,鐢ㄦ埛涓嶅繀瀹夎VB,鍥犱负VB寮鍙戝嚭鐨勫簲鐢ㄧ▼搴忔槸鍙鎵ц鏂囦欢(*.EXE),鑰孷BA寮鍙戠殑绋嬪簭蹇呴』渚濊禆浜庡畠鐨"鐖"搴旂敤绋嬪簭,渚嬪EXCEL.灏界瀛樺湪杩欎簺涓...
绛旓細杩囩▼鏄瀯鎴绋嬪簭鐨勪竴涓ā鍧楋紝寰寰鐢ㄦ潵瀹屾垚涓涓浉瀵圭嫭绔嬬殑鍔熻兘銆傝繃绋嬪彲浠ヤ娇绋嬪簭鏇存竻鏅般佹洿鍏风粨鏋勬сVBA鍏锋湁鍥涚杩囩▼锛歋ub杩囩▼銆丗unction鍑芥暟銆丳roperty灞炴ц繃绋嬪拰Event浜嬩欢杩囩▼銆備竴锛嶴ub杩囩▼ Sub杩囩▼鐨勫弬鏁版湁涓ょ浼犻掓柟寮忥細鎸夊间紶閫(ByVal)鍜屾寜鍦板潃浼犻(ByRef)銆濡備笅渚嬶細Subpassword(ByValxasinteger,ByRefyas...
绛旓細鏃㈢劧閮界敤鍒颁簡VBA鏉ュ鐞嗘暟鎹簡閭ｄ箞璇存槑鏁版嵁閲忓凡缁忎笉灏忎簡锛屼负浣曚笉鐢ㄥ瓧鍏歌繕瑕佺敤vlookup鍑芥暟鐪嬩笉鏄姝や竴涓惧槢銆傚鏋滀竴瀹氳鐢ㄩ偅涔坴lookupApplication.WorksheetFunction.VLookup鏀规垚Application.VLookup璇曡瘯锛屽湪VBA涓紩鐢ㄥ伐浣滆〃鍑芥暟锛屾寕涓嶅嚭鏉ョ殑涓嶄細鍍忓湪鍑芥暟鍏紡涓娇鐢ㄦ椂杩斿洖#N/A鍊硷紝鎵浠ュ氨鎶ラ敊浜嗐傘
绛旓細Private Sub Workbook Open()End Sub 浜嬩欢澶勭悊绋嬪簭鐨VBA浠ｇ爜灏嗙疆浜庝笂杩颁袱琛屼箣闂淬備竴浜涗簨浠跺鐞嗙▼搴忓寘鎷弬鏁板垪琛ㄣ備緥濡傦紝鎮ㄥ彲鑳介渶瑕佸垱寤轰簨浠跺鐞嗙▼搴忔潵鐩戞帶宸ヤ綔绨跨殑SheetActivate浜嬩欢銆傚鏋滀娇鐢ㄥ墠闈㈤儴鍒嗚璁虹殑鎶鏈紝VB缂栬緫鍣ㄥ皢鍒涘缓浠ヤ笅浜嬩欢杩囩▼锛歅rivate Sub Workbook_SheetActivate(ByVal Sh As Object)End Sub ...
绛旓細Sub鍜孍nd Sub閰嶅鍑虹幇锛屽畠浠箣闂存瀯鎴愪竴涓畬鏁寸殑绋嬪簭杩囩▼銆傝繃绋嬩腑鐨勪唬鐮佸彲浠ユ斁缃瓻xitSub璇彞锛岃〃绀烘彁鍓嶉鍑鸿繃绋嬨傞氬父锛屽湪VBE缂栬緫鍣ㄤ腑锛屽啓涓媠ub鍜岃繃绋嬪悕绉帮紝鎸変笅鍥炶溅閿悗锛屼細鑷姩娣诲姞End Sub璇彞銆係ub杩囩▼鐢ㄦ潵鎵ц鎿嶄綔锛岃孎unction杩囩▼鍙互杩斿洖鍊硷紝鍒涘缓鑷畾涔夊嚱鏁般侳unction杩囩▼鐨勫熀鏈娉曞舰寮忎负锛欶unction 杩囩▼...
绛旓細涓嶇煡閬撲綘鏄笉鏄鏀惧湪宸ヤ綔琛ㄧ殑change浜嬩欢鏉ュ鐞嗚繖浠朵簨.鎵璋撳伐浣滆〃鐨刢hange浜嬩欢灏辨槸褰撳伐浣滆〃鐨勫崟鍏冩牸鍐呭鍙戠敓鍙樺寲鍚庤Е鍙戣繖涓簨浠.骞惰嚜鍔鎵ц鐩稿叧浠ｇ爜.杩欐槸鎴戞寜浣犵殑瑕佹眰鍐欑殑鏀惧湪宸ヤ綔琛╟hange浜嬩欢閲岀殑浠ｇ爜 鍥犱负涓嶇煡閬撳洖鏂囩殑浣嶇疆 鎵浠ユ垜鍋囧畾鍥炴枃鏄湪A鍒.yes no 杈撳嚭鍦˙鍒楀悓琛岀殑鍗曞厓鏍.Private Sub Worksheet...
绛旓細杞欢鐗堟湰锛歄ffice2007 鏂规硶濡備笅锛1.鍦‥xcel涓寜涓婣lt+F11锛屾墦寮VBE鐣岄潰锛2.閫夋嫨鍏朵腑涓涓伐浣滆〃锛岃緭鍏ヤ唬鐮侊細3.鎸塅5鎵ц浠ｇ爜锛屽氨鍙互鐪嬪埌鍦‥xcel涓繍琛屼簡VBA绋嬪簭锛
