2018年5月19日 星期六

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

    2018年5月17日 星期四

    EXCEL快速資料分欄用INDEX函數與VBA

    EXCEL快速資料分欄用INDEX函數與VBA

    預覽畫面:


    常遇到儲存格中若有單欄資料要分為四欄多欄資料,
    若不懂的用INDEX等查詢函數,配合COLUMN與ROW參照函數
    可能要用非常多的時間才能完成工作,
    但若懂得用INDEX或INDIRECT函數

    馬上就可以輕易完成結果,

    需要先用Column與Row函數取得位置,再利用INDEX函數讀取資料,

    最後多餘的標題與冒號,可以用REPLACE函數或是MID函數去除。

    不過比較函數與VBA的執行效率,

    當然VBA程式寫出來,按下按鈕執行似乎比較直接,

    所以若資料量大或是需要重複動作的應用,

    還是建議用VBA來完成


    1.Column與Row函數:

    =COLUMN()-3+(ROW()-2)*4



    2.INDEX函數

    =INDEX($B$2:$B$33,COLUMN()-3+(ROW()-2)*4,1)

    3.MID與LEN函數

    =MID(INDEX($B$2:$B$33,COLUMN()-3+(ROW()-2)*4,1),LEN(D$1)+2,99)

    **補充用REPLACE切割=REPLACE(INDEX($B$2:$B$33,COLUMN()-3+(ROW()-2)*4,1),1,LEN(D$1)+1,"")





    4.INDIRECT函數

    =INDIRECT("B"&COLUMN()-2+(ROW()-2)*4)

    =REPLACE(INDIRECT("B"&COLUMN()-2+(ROW()-2)*4),1,LEN(D$1)+1,"")



    **用INDIRECT轉為VBA的RANGE物件輸出資料



    Public Sub 人事分欄()

    '    Cells(2, 4) = Range("B2")
    '    Cells(2, 5) = Range("B3")
       k = 2
       For i = 2 To 9
           For j = 4 To 7
               Cells(i, j) = Mid(Range("B" & k), Len(Cells(1, j)) + 2, 99)
               k = k + 1
           Next
       Next
    End Sub


    Public Sub 清除()

       Range("D2:G9").ClearContents
    End Sub

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

    教學影音完整版在論壇:
    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, EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 函數教學 excel函數