PTT數位生活區 / Office

Re: [算表] 如何用EXCEL公式函數挑字--VBA,宏表,取代

看板Office作者 (I am Leo)時間18年前 (2007/08/06 22:39), 編輯推噓0(0推 0噓 7→)
留言7則, 1人參與, 7年前最新討論串2/3 (看更多)
※ 引述《znlin (帥貓)》之銘言： : 軟體:excel : 版本:2002 : 原始資料 想要結果 : 1254MCL23 MCL : 21HM26698 HM : 請教各位大大該如何撰寫以一個EXCEL公式函數來達到上面想要的結果？ : 或是寫巨集？.....但是沒寫過，不知道該怎麼作 請在Excel的Visual Basic編輯器中貼上下面程式碼，就可以使用自訂函數嚕 Public Function MidText(InString As String) Dim i As Integer Dim outString As String outString = "" For i = 1 To Len(InString) If IsNumeric(Mid(InString, i, 1)) <> True Then outString = outString & Mid(InString, i, 1) End If Next MidText = outString End Function ---- 備註： 把上面<> 改成 = 就可以找出一串文字中的數字嚕XD -- 沒事多灌水... 多灌水沒事... -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 221.169.7.130
→
01/12 01:11, 7年前 , 1F
Function getText$(str$)
01/12 01:11, 1F
→
01/12 01:11, 7年前 , 2F
Dim i As Byte
01/12 01:11, 2F
→
01/12 01:12, 7年前 , 3F
For i = 0 To 9
01/12 01:12, 3F
→
01/12 01:12, 7年前 , 4F
str = Replace(str, i, "")
01/12 01:12, 4F
→
01/12 01:12, 7年前 , 5F
Next
01/12 01:12, 5F
→
01/12 01:12, 7年前 , 6F
getText = str
01/12 01:12, 6F
→
01/12 01:12, 7年前 , 7F
End Function
01/12 01:12, 7F
‣ 更多 Catbert 的文章
文章代碼(AID): #16jpAV-X (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 Catbert 的文章
文章代碼(AID): #16jpAV-X (Office)