VBA字符串用法大全.docVIP

VBA字符串用法大全甯姪聽 |聽鐣欒█浜ゆ祦聽 |聽鐧诲綍棣栭〉鎴戠殑鍥句功棣嗕富棰橀槄璇荤簿褰╃洰褰曠簿鍝佹枃鑻慣ags浼氬憳娴忚濂戒功鎺ㄨ崘VBA瀛楃涓茬敤娉曞ぇ鍏紙杞浇锛?hcshl鏀跺綍浜?010-02-19 闃呰鏁帮細鏌ョ湅聽聽鏀惰棌鏁帮細10聽聽鍏紬鍏紑聽鍘熸枃鏉ユ簮銆€娆㈣繋娴忚hcshl涓汉鍥句功棣嗕腑鏀惰棌鐨勬枃绔狅紝鎯虫敹钘忚繖绡囧ソ鏂囩珷鍚楋紝璧跺揩鍚э紝1鍒嗛挓鎷ユ湁鑷繁鐨勪釜浜哄浘涔﹂锛?聽鎴戜篃瑕佹敹钘徛犱妇鎶?聽浠ユ枃鎵炬枃聽濡備綍瀵规枃绔犳爣璁帮紝娣诲姞鎵规敞锛?聽 甯綘瑙ｅ喅鍦ㄤ娇鐢‥xcel VBA杩涜绋嬪簭寮€鍙戞椂閬囧埌鐨勯棶棰?聽鍛靛懙锛屾妸鏁扮粍娉曟敼涓€鏀癸紝閫熷害鍙堝ぇ澶ф彁楂樸€?Sub CutPaste()聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽 鈥樻妸澶氳鐨勬暟鎹浆鎹㈡垚涓€琛岋紝娉ㄦ剰锛岃繖閲屽彲涓嶆槸鈥滆浆缃€?杩欎釜閲囩敤鏁扮粍娉?聽聽聽 Application.ScreenUpdating = False聽聽聽 t = Timer聽聽聽 Dim rng As Range, I%, K%, iCol%, L%, Arr() As String聽聽聽聽聽聽 Set rng = Selection聽聽聽 I = rng.Row聽聽聽 iCol = rng.Column聽聽聽 K = rng.Rows.Count - 1聽聽聽 ReDim Arr(K * 3 + 2)聽聽聽聽聽聽 For L = 0 To K聽聽聽聽聽聽聽 For w = 0 To 2聽聽聽聽聽聽聽聽聽聽聽 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聽聽聽 MsgBox Timer - tEnd Sub涓€涓叧浜庢枃鏈瀷鏁板瓧璧嬪€肩殑濂囨€幇璞?Sub test()聽聽聽 Dim i As String聽聽聽 i = [b3]聽聽聽 [f3] = iEnd Sub褰撳湪 B3 鍗曞厓鏍间腑杈撳叆涓€涓枃鏈暟瀛楋紝渚嬪 聽21.10鎴栬€呰缃ソ鏂囨湰鏍煎紡锛屽湪杈撳叆鏁板瓧銆傛€讳箣锛屼竴瀹氳鎶夿鍒楃殑鏍煎紡璁剧疆涓衡€滄枃鏈€?鐒跺悗杩愯璇ョ▼搴忥紝F3 鍗曞厓鏍煎緱鍒扮殑鏄€滄暟鍊尖€濆瀷鐨勬暟瀛楋紝鏄剧ず涓?21.1娉ㄦ剰锛氬凡缁忔妸 鍙橀噺 i 瀹氫箟涓?鈥滃瓧绗︿覆鈥濇暟鎹被鍨嬶紝杩樻槸杩欐牱銆備絾鏄鏋滄妸绋嬪簭鏀规垚锛?Sub test2()聽聽聽 鈥楧im i As String聽聽聽聽聽聽聽 [g3] = [b3]End Sub鐩存帴鎶夿2 鐨勫€艰祴缁欏崟鍏冩牸 G3锛屽嵈鍙堣兘鎴愪负 鏂囨湰鍨?鏁板瓧銆?澶у鐭ラ亾鏄粈涔堝師鍥犲悧锛?聽鏌ユ壘涓€涓瓧绗︿覆鏄惁閮芥槸瀛楁瘝骞朵笖鏈€鍚庝竴涓瓧绗︽槸鍚︽槸鈥淓Sub T()聽聽聽 Dim UseInput聽聽聽 As String聽聽聽 Dim myReg聽聽聽聽聽聽 As Object聽聽聽聽聽聽 UseInput = VBA.LCase(InputBox(杈撳叆鐨勫瓧绗﹀繀椤婚兘鏄瓧姣嶅苟涓旀渶鍚庝竴涓瓧绗︽槸鈥渆鈥濇垨鑰呪€淓鈥?, 璇疯緭鍏ュ瓧绗?))聽聽聽 鈥樻垨鑰呮槸浣跨敤蹇界暐澶у皬鍐欏弬鏁颁负鐪?鍙幓闄BA.Lcase()聽聽 聽聽聽 myReg.IgnoreCase = True聽聽聽 Set myReg = CreateObject(Vbscript.RegExp)聽聽聽 myReg.Global = True聽聽聽 myReg.Pattern = ^[a-z]*e$聽聽聽聽聽聽 If myReg.Test(UseInput) Then聽聽聽聽聽聽聽 MsgBox 浣犺緭鍏ョ殑瀛楃绗﹀悎瑕佹眰聽聽聽 Else聽聽聽聽聽聽聽 MsgBox 杈撳叆鐨勫瓧绗﹀繀椤婚兘鏄瓧姣嶅苟涓旀渶鍚庝竴涓瓧绗︽槸鈥渆鈥濇垨鑰呪€淓鈥?聽聽聽 End If聽聽聽聽聽聽 Set myReg = Nothing聽聽聽End Sub[姝よ创瀛愬凡缁忚浣滆€呬簬2007-3-4 17:34:28缂栬緫杩嘳杩欎釜鍑芥暟鎴戠敤鐨勬瘮杈冮绻侊紝鍐欒缁嗚鏄庢湁鐐瑰洶闅撅紝涓€浜涘簲鐢ㄤ腑鐨勪綋浼氱洿鎺ユ彃鍦ㄥ師鐗堝府鍔╀腑聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽StrConv 鍑芥暟聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽杩斿洖鎸夋寚瀹氱被鍨嬭浆