預覽畫面：
這是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
其他相關學習：
- EXCEL匯出資料到MYSQL與PHP、Phthon、R、APP共用資料
- EXCEL VBA用XMLHTTP物件抓取外匯資料
- 如何在EXCEL中自訂函數與用增益集分享VBA自訂函數
- EXCEL VBA批次查詢清單到新增與刪除工作表
- EXCEL2013版VBA如何快速建立查詢系統
- EXCEL VBA改用MYSQL當成資料庫存放大量資料
- EXCEL VBA自動化與自動繪製框線(樣式顏色粗細)
- VBA處理大數據如何自訂留下數字函數
- VBA處理大數據政府開放與快速做出查詢系統
- 如何將大量EMAIL自動串接與用OUTLOOK自動批次寄信
- 如何用VLOOKUP函數做飯店管理分享
- 東吳進修廣部88期的EXCEL VBA課又額滿了
- 如何計算年齡並格式化與用VLOOKUP查詢時數
- 如何在EXCEL VBA中快速刪除空白列
- EXCEL VBA大數據自動化設計上課心得分享
- 如何用EXCEL統計樂透彩中獎機率範例
- 如何用COUNTIF函數篩選黑名單(無須撰寫VBA)
- 如何將EXCEL公式改直接貼上修改為VBA
- 如何用EXCEL VBA設計銷貨單將EXCEL當資料庫
- 如何撰寫自動日期格式化的VBA程式
- 如何增加EXCEL VBA按鈕(86)
- 如何用VBA搜尋關鍵字後上色與複製到新工作表
- 如何用VBA搜尋關鍵字後上色與複製到新工作表
- EXCEL函數與VBA設計第6次上課(證照106與110)
- 如何增加EXCEL VBA按鈕
- 如何利用日期函數製作年曆VBA範例
- 如何用EXCEL VBA設計銷貨單分享
- 如何學會欄列鎖定技巧與VBA設計之二(範例：大型試算表)
- 如何學會欄列鎖定技巧與VBA設計之一(範例：大型試算表)
- 從EXCEL函數到VBA自動化(函數應用大升級)
- 如何將檢視與參照函數函數轉EXCEL VBA設計
- 提高工作效率_黑名單篩選範例分享
- 北市公訓處EXCEL函數進階班第1天上課
- 公訓處EXCEL進階課程分享
- 如何用VBA呼叫Outlook郵寄信件
- 如何顯示進度狀態列(ProgressBar)
- 如何批次下載股市資料到EXCEL中
- 如何建立表單與將EXCEL當成資料庫
- 如何讓用ACCESS將EXCEL的資料
- 如何排序工作表
- 如何將單次查詢改為批次查詢(EXCEL VBA自動化)
- 如何在EXCEL VBA的工作表隨機上顏色
- 如何快速在EXCEL中建立查詢系統(免資料庫)之2
- 如何精簡VBA程式與傳遞引數
- 如何快速在EXCEL中建立查詢系統(免資料庫)之1
- 如何將大量工作表整合在一個工作表
- 如何在EXCEL VBA新增沒有重複名稱工作表
- 如何自動下載YAHOO股市資料到EXCEL中
- 如何建立表單與將EXCEL當成資料庫使用
- 如何在EXCE VBA中複製工作表
- 如何在EXCEL VBA如何保護工作表
- 如何在EXCEL VBA新增沒有重複名稱工作表
- 如何在EXCEL工作表中移動
- EXCEL VBA辦公自動化_如何建立查詢系統
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函數
.png)
.png)
.png)
.png)
.png)
.png)
.png)
.png)
.png)
.png)
.png)
.png)
.png)
.png)