吳老師教學部落格

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

預覽畫面：

這是VBA進階課上課的範例，
這部分的主要需求在於當輸入資料時沒有欄位概念時，
將一堆的數字、英文、中文都輸入到同一個儲存格時，
若只要其中的數字、英文或中文時，在內建EXCEL函數是找不到的，
這時候，若懂得自訂一個留下數字函數，就可以輕易地解決問題。
以下分享如何用簡單的VBA知識，就可以輕易將儲存格中的數字篩選出來，
當然延伸性的問題，也可以只留下儲存格中的英文或中文部分。
建議先學會以下分享課程：

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

範例檔 [下載]

上課內容：

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

'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

'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

'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

'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函數

VBA處理大數據政府開放與快速做出查詢系統

預覽畫面：

這是在東吳大學進修推廣部的VBA進階課上課的範例，

分享如何用簡單的VBA知識，就可以輕易地做出查詢系統來，
讓您快速輸入查詢關鍵字，就可以輕易地將查詢結果輸出到新的工作表中，
只需要有些VBA的基本知識，再多認識工作表物件(sheets)就足夠了。

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

用EXCEL批次查詢實價登錄開放資料(大數據處理實例) [連結]
用EXCEL設計按清單批次查詢資料(自動新增工作表) [連結]
公訓處Big Data加值應用課程分享 [連結]
用EXCEL快速建立資料查詢系統(錄製巨集與修改) [連結]
如何建立EXCEL版的成語查詢系統 [連結]
如何快速在EXCEL中建立查詢系統(免資料庫)之1 [連結]
如何快速在EXCEL中建立查詢系統(免資料庫)之2 [連結]
如何將單次查詢改為批次查詢 [連結]
資料庫批次篩選新增與更名工作表 [連結]

大數時代來臨如果不懂得裡用自動化方式處理資料，
處理資料將非常沒有效率，
至於處理大數據的方案很多，
但最通行也沒有額外費用的大概只剩VBA了。
而且開啟EXCEL就包含VBA，除了在Windows外，
MAC蘋果電腦一樣也有EXCEL，
VBA也可以沿用以前VB的資源，這樣看來VBA處理大數據應該沒有什麼對手了。

本範例主要是利用EXCEL的篩選功能時做成VBA，
可以一鍵就可以批次查出政府開放的實價登錄的查詢結果，
自動依據清單，可以自動將清單項目，逐一自動新增工作表，
並將查詢結果匯入，也可以隨時更改查詢需求，
除了便利外，也非常有彈性，
並可結合從網路下載資料到EXCEL中，隨時更新最新的資訊。
當然未來也可以結合雲端資料庫，與APP連動了。

內政部不動產實價登錄網站 [連結]
範例檔 [下載]

上課內容：
01_下載內政部實價登錄開放資料