用自定義函數(shù)獲取文本中的信息

用自定義函數(shù)獲取文本中的信息

本文為《別怕，Excel VBA其實(shí)很簡單（第3版）》隨書問題參-

以下過程供參考：

Function MidS(ByVal txt, n As Byte) As String Application.Volatile True Dim T As String, i As Long Dim NumStr As String, EnStr As String, Other As String For i = 1 To Len(txt) T = Mid(txt, i, 1) If T Like "[0-9]" Then NumStr = NumStr & T ElseIf T Like "[A-z]" Then EnStr = EnStr & T Else Other = Other & T End If Next i If n = 0 Then MidS = NumStr ElseIf n = 1 Then MidS = EnStr ElseIf n = 2 Then MidS = Other Else MidS = "#參數(shù)錯(cuò)誤!" End IfEnd Function

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。