EXCEL太複雜工作還是交給VBA吧!範例班級成績查詢

 

預覽畫面：

 

關於下拉清單快速查詢班級資料是常見問題，

但是要做到這樣的結果，

如果用EXCEL內建函數，

需要用到函數分別有：

IF(比對)、SAMLL(改範圍比對與排序)、INDEX(抓資料)、IFERROR(過濾錯誤)

而且還需要用陣列來執行，

光複雜度，就令人卻步，

每每講完這部分，再講VBA的解法，

反而用VBA來處理顯得更加簡便，

所以，

若有更複雜的工作，要提高工作效率，

建議，還是用VBA為佳。

 

如何用VBA來做：

 

Public Sub 班級()

   '1.刪除舊資料

   Range("G5:J12").ClearContents

   '1.輸出的列數

   k = 5

   '2.迴圈判斷班級

   For i = 2 To 12

       If Cells(i, "A") = Range("H2") Then

           Cells(k, "G") = Cells(i, "B")

           Cells(k, "H") = Cells(i, "C")

           Cells(k, "I") = Cells(i, "D")

           Cells(k, "J") = Cells(i, "E")

           k = k + 1

       End If

   Next

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Address = "$H$2" Then

       Call 班級

   End If

End Sub


補充用EXCEL內建函數：

以下是用IF(比對)、SAMLL(改範圍比對與排序)、INDEX(抓資料)、IFERROR(過濾錯誤)

=IF($A2=$H$2,ROW()-3,"N")

{=SMALL(IF($A$2:$A$12=$H$2,ROW($A$2:$A$12),"N"),ROW()-4)}

**注意SMAIL的比對為範圍，所以需要將比對條件改為範圍，另返回的列數也要是範圍，並且一定要用陣列執行(CTRL+SHIFT+ENTER)

 

{=INDEX($A$1:$E$12,SMALL(IF($A$2:$A$12=$H$2,ROW($A$2:$A$12),"N"),ROW()-4),COLUMN()-5)}

 

 

 

{=IFERROR(INDEX($B$1:$E$12,SMALL(IF($A$2:$A$12=$H$2,ROW($A$2:$A$12),"N"),ROW(A1)),COLUMN(A1)),"")}

 

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

 

教學影音完整版在論壇：

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函數
arrow
arrow
    文章標籤
    函數東吳進修推廣部 EXCEL EXCEL VBA 函數
    全站熱搜

    吳老師 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄