EXCEL太複雜工作還是交給VBA吧!範例班級成績查詢－吳老師教學部落格(痞客邦分站)

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

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

吳老師

吳老師教學部落格(痞客邦分站)

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

E-mail轉寄

吳老師教學部落格(痞客邦分站)

吳老師教學部落格(痞客邦分站)

公告版位