VBA處理大數據如何自訂留下數字函數

28 views
Skip to first unread message

吳老師

unread,
Jun 1, 2016, 3:40:33 AM6/1/16
to Execl與Access

VBA處理大數據如何自訂留下數字函數


完整連結：

https://terry55wu.blogspot.tw/2016/06/vba.html


預覽畫面：



這是VBA進階課上課的範例，

這部分的主要需求在於當輸入資料時沒有欄位概念時，

將一堆的數字、英文、中文都輸入到同一個儲存格時，

若只要其中的數字、英文或中文時，在內建EXCEL函數是找不到的，

這時候，若懂得自訂一個留下數字函數，就可以輕易地解決問題。

以下分享如何用簡單的VBA知識，就可以輕易將儲存格中的數字篩選出來，

當然延伸性的問題，也可以只留下儲存格中的英文或中文部分。

建議先學會以下分享課程：

  • 如何再VBA中建立EXCEL的自訂函數讓公式變簡單  [連結]
  • 如何將數學函數轉EXCEL VBA設計之一  [連結]
  • 從EXCEL函數到VBA自動化(函數應用大升級)  [連結]
  • 如何將文字函數轉EXCEL VBA設計  [連結]
  • 如何將邏輯函數轉EXCEL VBA設計  [連結]
  • 如何增加EXCEL VBA按鈕  [連結]
  • 如何函數轉VBA  [連結]

範例檔  [下載]


上課內容：

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

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

   '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 非數字個數函數(原始資料)

   '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(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 留下中文函數(原始資料)

   '初始值

   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


其他相關學習：


    1.EXCEL VBA設計(自強基金會2012)第4次上課

    http://terry55wu.blogspot.tw/2012/03/excel-vba20124.html


    2.如何把EXCEL"函數"變為 "VBA"？自強基金會2012第5次上課

    http://terry55wu.blogspot.tw/2012/04/excel-vba.html


    3.自強基金會2012第8次上課

    http://terry55wu.blogspot.tw/2012/05/excel-vba20128.html


    4.自強基金會2012第9次上課

    http://terry55wu.blogspot.tw/2012/05/excel-vba20129.html


    5.EXCEL_VBA與資料庫--自強基金會2012(Ending)

    http://terry55wu.blogspot.tw/2012/07/excelvba-2012ending.html


    EXCEL,VBA,函數東吳進修推廣部,EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 excel函數教學 excel函數

    Reply all
    Reply to author
    Forward
    0 new messages