2017年3月25日 星期六

從計算數字個數到留下數字或英文或中文自訂函數

從計算數字個數到留下數字或英文或中文自訂函數

預覽畫面：


常遇到儲存格中若有英文(分大小寫)、數字和中文夾雜，
但若只要取出其中的數字或英文或中文，
若不懂VBA，這個問題將非常麻煩，資料少還可以徒法煉鋼，
慢慢複製貼上，但若資料非常巨量，將是巨大麻煩，
本文分享從計算數字個數開始，
用MID、CODE、ROW、IFFERROR、SUM加上陣列計算數字個數，
已經夠複雜的了，若要再取出數字部分，那就更加困難，
建議改為VBA的自訂函數，
除了可以計算數字個數與非數字個數，
亦可留下數字，或英文或中文，教您學會如何簡單自訂VBA函數。

1.計算數字個數公式：

{=SUM(IFERROR((CODE(MID(A2,ROW($1:$99),1))>47)*(CODE(MID(A2,ROW($1:$99),1))<58 span="">

2.計算非數字個數公式：

{=SUM(IFERROR((CODE(MID(A2,ROW($1:$99),1))<48>57),0))}


**內碼表：

1.首字轉編碼

=CODE(MID(A2,1,1))

2.判斷48-57間

=(CODE(MID(A2,1,1))>47)*(CODE(MID(A2,1,1))<58 span="">

=IFERROR((CODE(MID(A2,1,1))>47)*(CODE(MID(A2,1,1))<58 span="">

3.數字個數

=SUM(IFERROR((CODE(MID(A2,{1,2,3,4,5,6,7,8,9},1))>47)*(CODE(MID(A2,{1,2,3,4,5,6,7,8,9},1))<58),0))

4.數字個數陣列(Ctrl+Shift+Enter)

{=SUM(IFERROR((CODE(MID(A2,{1,2,3,4,5,6,7,8,9},1))>47)*(CODE(MID(A2,{1,2,3,4,5,6,7,8,9},1))<58),0))}

5.非數字個數

{=SUM(IFERROR((CODE(MID(A2,{1,2,3,4,5,6,7,8,9},1))<=47)+(CODE(MID(A2,{1,2,3,4,5,6,7,8,9},1))>=58),0))}

VBA部分：

Public Function 數字個數函數(原始資料)

   Count = 0
   '1.字數迴圈範圍
   For i = 1 To Len(原始資料)
       '2.判斷是否為數字
       If VBA.Asc(Mid(原始資料, i, 1)) > 47 And VBA.Asc(Mid(原始資料, i, 1)) < 58 Then
           '3.如果是就+1
           Count = Count + 1
       End If
   Next
   '4.回傳給自己(數字個數函數)
   數字個數函數 = Count
End Function

Public Function 非數字個數函數(原始資料)

   Count = 0
   '1.字數迴圈範圍
   For i = 1 To Len(原始資料)
       '2.判斷是否為數字
       If VBA.Asc(Mid(原始資料, i, 1)) <= 47 Or VBA.Asc(Mid(原始資料, i, 1)) >= 58 Then
           '3.如果是就+1
           Count = Count + 1
       End If
   Next
   '4.回傳給自己(數字個數函數)
   非數字個數函數 = Count
End Function
Public Function 留下數字函數(原始資料)
   '初始值
   S = ""
   '1.迴圈到字串長度
   For i = 1 To Len(原始資料)
       '2.判斷數字的編碼範圍
       If VBA.Asc(Mid(原始資料, i, 1)) > 47 And VBA.Asc(Mid(原始資料, i, 1)) < 58 Then
           '3.串接數字
           S = S & Mid(原始資料, i, 1)
       End If
   Next
   '4.輸出結果
   留下數字函數 = S
End Function

Public Function 留下英文函數(原始資料)

   '初始值
   S = ""
   '1.迴圈到字串長度
   For i = 1 To Len(原始資料)
       '2.判斷數字的編碼範圍
       If VBA.Asc(VBA.UCase(Mid(原始資料, i, 1))) >= 65 And VBA.Asc(VBA.UCase(Mid(原始資料, i, 1))) <= 90 Then
           '3.串接數字
           S = S & Mid(原始資料, i, 1)
       End If
   Next
   '4.輸出結果
   留下英文函數 = S
End Function

Public Function 留下中文函數(原始資料)

   原始資料 = Application.WorksheetFunction.Asc(原始資料)
   '初始值
   S = ""
   '1.迴圈到字串長度
   For i = 1 To Len(原始資料)
       '2.判斷數字的編碼範圍
       If VBA.Asc(Mid(原始資料, i, 1)) > 127 Or VBA.Asc(Mid(原始資料, i, 1)) < 0 Then
           '3.串接數字
           S = S & Mid(原始資料, i, 1)
       End If
   Next
   '4.輸出結果
   留下中文函數 = S
End Function

教學影音(完整版在論壇)：

教學影音完整版在論壇：
https://groups.google.com/forum/#!forum/scu_excel_vba2_86

課程特色：
1.如何將函數轉成VBA2.VBA與資料庫快速結合

EXCEL函數、 VBA程式設計與資料庫是分別屬於三個領域的知識，
但卻是目前大家都需要的一項專業技能，要把三者融合的很好實在非常不容易，
剛好我有近20年的VB程式設計與資料庫設計的經驗，
教EXCEL函數與相關課程也有多年，因此清楚如何把最重要的知識教給大家，
ADO資料庫設計的知識非常多，但根據我多年的設計實務經驗，
覺得最重要的是掌握SQL語言，就可以輕易的完成查詢、新增、修改與刪除等功能，
就可以輕易的完成自己想處理的大量資料，大大提高工作效率了!

上課用書是：
Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)
Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)

完整教學影音DVD申請:http://goo.gl/ZlBZE
論壇：http://groups.google.com/group/labor_excel_vba?hl=zh-TW

相關學習：
函數東吳進修推廣部, EXCEL, EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 函數教學 excel函數
沒有留言:
訂閱： 文章 (Atom)