vba字符串用法大全

《vba字符串用法大全》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA字符串用法大全甯姪聽

2、聽鐣欒█浜ゆ祦聽

3、聽鐧诲綍棣栭〉鎴戠殑鍥句功棣嗕富棰橀槄璇荤簿褰╃洰褰曠簿鍝佹枃鑻慣ags浼氬憳娴忚濂戒功鎺ㄨ崘VBA瀛楃涓茬敤娉曞ぇ鍏紙杞浇锛?hcshl鏀跺綍浜?010-02-19闃呰鏁帮細鏌ョ湅聽聽鏀惰棌鏁帮細10聽聽鍏紬鍏紑聽鍘熸枃鏉ユ簮銆€娆㈣繋娴忚hcshl涓汉鍥句功棣嗕腑鏀惰棌鐨勬枃绔狅紝鎯虫敹钘忚繖绡囧ソ鏂囩珷鍚楋紝璧跺揩鍚э紝1鍒嗛挓鎷ユ湁鑷繁鐨勪釜浜哄浘涔﹂锛?聽鎴戜篃瑕佹敹钘徛犱妇鎶?聽浠ユ枃鎵炬枃聽濡備綍瀵规枃绔犳爣璁帮紝娣诲姞鎵规敞锛?聽>>甯綘瑙ｅ喅鍦ㄤ娇鐢‥xcelVBA杩涜

4、绋嬪簭寮€鍙戞椂閬囧埌鐨勯棶棰?聽鍛靛懙锛屾妸鏁扮粍娉曟敼涓€鏀癸紝閫熷害鍙堝ぇ澶ф彁楂樸€?SubCutPaste()聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽鈥樻妸澶氳鐨勬暟鎹浆鎹㈡垚涓€琛岋紝娉ㄦ剰锛岃繖閲屽彲涓嶆槸鈥滆浆缃€?杩欎釜閲囩敤鏁扮粍娉?聽聽聽Application.ScreenUpdating=False聽聽聽t=Timer聽聽聽DimrngAsRange,I%,K%,iCol%,L%,Arr()AsString聽聽聽聽聽聽Setrng=Selection聽聽聽I=rng.Row聽聽聽iCol=rng.Column聽聽聽K=

5、rng.Rows.Count-1聽聽聽ReDimArr(K*3+2)聽聽聽聽聽聽ForL=0ToK聽聽聽聽聽聽聽Forw=0To2聽聽聽聽聽聽聽聽聽聽聽Arr(L*3+w)=rng(L+1,w+1)聽聽聽聽聽聽聽Next聽聽聽Next聽聽聽聽聽聽Range(Cells(I,iCol+4),Cells(I,K*3+iCol+6))=Arr聽聽聽Application.ScreenUpdating=True聽聽聽MsgBoxTimer-tEndSub涓€涓叧浜庢枃鏈瀷鏁板瓧璧嬪€肩殑濂囨€幇璞?Subtest()聽聽聽DimiAsString聽聽聽i=[b

6、3]聽聽聽[f3]=iEndSub褰撳湪B3鍗曞厓鏍间腑杈撳叆涓€涓枃鏈暟瀛楋紝渚嬪聽21.10鎴栬€呰缃ソ鏂囨湰鏍煎紡锛屽湪杈撳叆鏁板瓧銆傛€讳箣锛屼竴瀹氳鎶夿鍒楃殑鏍煎紡璁剧疆涓衡€滄枃鏈€?鐒跺悗杩愯璇ョ▼搴忥紝F3鍗曞厓鏍煎緱鍒扮殑鏄€滄暟鍊尖€濆瀷鐨勬暟瀛楋紝鏄剧ず涓?21.1娉ㄦ剰锛氬凡缁忔妸鍙橀噺i瀹氫箟涓?鈥滃瓧绗︿覆鈥濇暟鎹被鍨嬶紝杩樻槸杩欐牱銆備絾鏄鏋滄妸绋嬪簭鏀规垚锛?Subtest2()聽聽聽鈥楧imiAsString聽聽聽聽聽聽聽[g3]=[b3]EndSub鐩存帴鎶夿2鐨勫€艰祴缁欏崟鍏冩牸G3锛屽嵈鍙堣兘

7、鎴愪负鏂囨湰鍨?鏁板瓧銆?澶у鐭ラ亾鏄粈涔堝師鍥犲悧锛?聽鏌ユ壘涓€涓瓧绗︿覆鏄惁閮芥槸瀛楁瘝骞朵笖鏈€鍚庝竴涓瓧绗︽槸鍚︽槸鈥淓SubT()聽聽聽DimUseInput聽聽聽AsString聽聽聽DimmyReg聽聽聽聽聽聽AsObject聽聽聽聽聽聽UseInput=VBA.LCase(InputBox("杈撳叆鐨勫瓧绗﹀繀椤婚兘鏄瓧姣嶅苟涓旀渶鍚庝竴涓瓧绗︽槸鈥渆鈥濇垨鑰呪€淓鈥?,"璇疯緭鍏ュ瓧绗?))聽聽聽鈥樻垨鑰呮槸浣跨敤蹇界暐澶у皬鍐欏弬鏁颁负鐪?鍙幓闄BA.Lcase()聽聽聽聽聽myReg.IgnoreCase=True聽

8、聽聽SetmyReg=CreateObject("Vbscript.RegExp")聽聽聽myReg.Global=True聽聽聽myReg.Pattern="^[a-z]*e$"聽聽聽聽聽聽IfmyReg.Test(UseInput)Then聽聽聽聽聽聽聽MsgBox"浣犺緭鍏ョ殑瀛楃绗﹀悎瑕佹眰"聽聽聽Else聽聽聽聽聽聽聽MsgBox"杈撳叆鐨勫瓧绗﹀繀椤婚兘鏄瓧姣嶅苟涓旀渶鍚庝竴涓瓧绗︽槸鈥渆鈥濇垨鑰呪€淓鈥?聽聽聽EndIf聽聽聽聽聽聽SetmyReg=Nothing聽聽聽EndSub[姝よ创瀛愬凡缁忚浣滆€呬簬2007-3-417:34:

9、28缂栬緫杩嘳杩欎釜鍑芥暟鎴戠敤鐨勬瘮杈冮绻侊紝鍐欒缁嗚鏄庢湁鐐瑰洶闅撅紝涓€浜涘簲鐢ㄤ腑鐨勪綋浼氱洿鎺ユ彃鍦ㄥ師鐗堝府鍔╀腑聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽StrConv鍑芥暟聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽杩斿洖鎸夋寚瀹氱被鍨嬭浆鎹㈢殑Variant(String)銆?聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽璇硶聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽StrConv(string,conversion,LCID)聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽StrConv鍑芥暟鐨勮娉曟湁涓嬮潰鐨勫

10、懡鍚嶅弬鏁?聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽閮