2018年8月7日 星期二

EXCEL VBA進階範例尋找與判斷負0到9的值

EXCEL VBA進階範例尋找與判斷負0到9的值

預覽畫面：
本範例為進階VBA的程式範例，直接用自訂函數思考，
最後再用SUB呼叫，一改入門班的思考方式，
另外，多重邏輯也可以用迴圈來撰寫，
只是需要的是將數字轉為文字，可用Cstr函數轉換，
有點像EXCEL裡的Value函數。
程式需求：
1.如果儲存格中有-0到-9就返還 Apple

2.如果儲存格為空白就輸出空白，不然就輸出 Orange

1.完成畫面：

參考VBA程式碼：
Function FruitType(Type_Number)
   '如果儲存格中有-0到-9就返還 Apple
   For i = 0 To 9
       a = InStr(Type_Number, "-" & CStr(i))
       If a <> 0 Then
           FruitType = "Apple"
           Exit Function
       End If
   Next
   '如果儲存格為空白就輸出空白，不然就輸出 Orange
   If Type_Number = "" Then
       FruitType = ""
   Else
       FruitType = "Orange"
   End If
End Function
Public Sub Fruit()
   For i = 2 To 10
       Cells(i, "B") = FruitType(Cells(i, "A"))
   Next
End Sub

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

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

課程特色：
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

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