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

    2018年4月30日 星期一

    20180422第六天往鐵道博物館與川越看古代街景與搭錯車

    20180422第六天鐵道博物館與川越看古代街景與搭錯車 總目錄:[連結]

    第六天,也是最後一天的旅程,還好訂晚上十點的飛機
    可以玩到晚上在前往機場,
    整整感覺多玩了一天,這也是自己訂機票的好處,
    本來想說都仙台機場進出,但因為星期天沒有班機,
    只好往成田機場轉機,剛好有新幹線可以遠距離移動,
    由於新幹線吃到飽,所以也就沒有增加什麼交通費用,
    最後一天選了從小就想去看看的鐵道博物館
    是一個沒有年齡限制的好玩地方,
    介紹JR日本鐵路歷史,有機會帶家裡兩個小朋友來,
    他們一定也會玩得很開心,隨後往附近的川越古街移動。

    高崎到大宮距離不近,但有新幹線,感覺就在附近,大約42分鐘車程
    逛完鐵道博物館,馬上回大宮車站,坐電車到川越車站,在坐公車到鬧區


    回到大宮車站還有時間,離預計的車班還有半小時,想說不然就坐自由坐回高崎好了,
    反正高崎是大站,應該都會停,但也沒查一下是不是會停,結果不幸的事發生了,
    果真不停高崎車站,直接到開往長岡車站,已是一小時後的是,在從長岡坐回來,
    又是一小時後的事,往返兩小時,後面的行程完全延誤,
    很怕坐不上飛機,快快和內人分配工作,一個去劃位,一個去飯店取行李,
    快快衝到上野,轉京成特快列車殺到成田機場,還好一路趕趕趕,衝衝衝,
    終於趕上,不過也滿身大汗,
    話說禍不單行,原本訂了超大的機位,居然以我們非日本人加上內人英文不夠好,
    被迫更換座位,也沒退還我加訂大座位的費用,一個人大約台幣600,
    也就是台幣1200就飛了,
    不過想說順離回國就好,一切就都不重要了。
    我預先規劃的行程,但由於在大宮搭錯車,後面的行程大亂
    上越新幹線一樣9點多出發,到大宮只要27分鐘
    上越新幹線是雙層的而且也還會接其他的車輛
    接上之後可以做更多乘客
    車廂其實沒有東北或秋田的新穎,有點老舊,而且一排五人坐,有點窄,不過位子似乎蠻多
    到大宮站再坐琦玉縣當地的地鐵到鐵道博物館站,每十分鐘一班
    很快抵達鐵道博物館,但人實在是多到不行,原來大家都在搶十點入場,票價日幣1000,很划算
    博物館內火車遊就到新,除了陳列,也可以入內參觀,甚至有些可以模擬操作
    最早的新幹線列車


    之後轉往冰川神社,本來想說看看後方的櫻花是否還開,結果有點失望
    這裡有很多人留下願望
    有小江戶之稱的川越,有觀光的公車


    小江戶橫丁,有點像台灣的老街
    川越地標時の鐘
    一番街 蔵造りの町並み
    回程因為提早抵達大宮車站,無上了直達長岡列車,錯失了2小時的寶貴時間,本來想省半小時的
    達長岡後,趕快下月台,在爬到對面的往東京的月台,其實最怕的除了怕搭不上飛機外,也怕車長查票,因為JRPASS坐到長岡要補票,而且捕的費用非常高
    一路趕趕趕,衝衝衝,終於抵達京城站,可以搭往成城機場的列車了,還好東京夠熟
    這五天來的JR PASS也就功成身退了,感謝你


    抵達成田三航廈,還有很多人排隊
    被安排在比較前面的座位,其實也還算寬敞的
    其實位置不難坐,比標準坐為大一些


    時間表

    4/17 Day1
    7:05出門/11:20登機/15:45(日本時間)抵達仙台機場/16:50搭鐵道到仙台站/
    17:30到APA飯店/18:50伊達的牛吃晚餐(牛舌)/逛AEON超市/飯店溫泉
    4/18 Day2
    8:10出門/換JR pass新幹線票/9:37搭往ㄧ之關/10:21搭地鐵到平泉車站/毛越寺/
    水澤公園(賞櫻)/北上展勝地(賞櫻)/AEON超市/飯店溫泉

    4/19 Day3

    9:12東北新幹線到新青森/弘前星巴克/弘前公園(賞櫻)/三八城公園野餐(賞櫻)/
    仙台車站吃拉麵/AEON超市

    4/20 Day4

    9:12~10:26搭往秋田新幹JR到「田澤湖站」,下車後購買【田澤湖巴士環湖一周乘車券】
    10:45~12:16田澤湖ㄧ周(巴士)/午餐-車站旁拉麵及定食/
    13:11~14:08搭往秋田新幹JR到秋田車站/走路5分鐘到千秋公園(賞櫻,草地野餐)/
    16:12搭新幹線到盛岡/盛岡城跡公園(賞夜櫻)/19:50新幹線到仙台/
    仙台站將明天的車票劃位/晚餐-喜治郎牛舌

    4/21 Day5

    仙台朝市/10:30仙台搭新幹線到大宮/大宮站轉往高琦/到華盛頓飯店check in寄行李/
    AEON百貨購物吃午餐/14:05搭新幹線到輕井澤/輕井澤騎車2小時/高崎城跡

    4/22 Day6=9:11搭雙層新幹線到大宮站/從大宮站轉鐵道博物館站/參觀鐵道博物館/

    到川越站/搭巡迴觀光巴士/川越冰川神社/glin咖啡館喝下午茶/
    搭錯車,不小心搭到長岡站/長岡站搭回高崎約49分鐘/
    高崎站拿行李劃位及icoca加值/18:22搭往上野/
    上野搭電車到成田機場/22:00飛回台灣

    結論:
    鐵道博物館很適合帶小孩前往,其實也不用太早到,
    十點才開門,只是和大家一起擠著入場罷了,
    小江戶之稱的川越,感覺蠻商業化的,蠻像台灣的老街,
    其實蠻多沒有很古老,感覺像是仿古,
    想到倉敷的美觀地區就真的很古老,比較不商業化一點。
    行程最後,雖然有些意外(搭錯車),
    但只要夫妻同心,還是可以迎刃而解的。

    20180418第一天抵達仙台車站旁APA飯店
    [連結] https://terry55wu.blogspot.tw/2018/04/20180418apa.html
    20180418在岩手縣賞櫻:
    20180419往青森縣賞櫻,雖說弘前城似乎還沒開,但也值得一去
    20180420往秋田賞櫻與盛岡夜櫻,先到田澤湖坐觀光巴士,
    在前往千秋公園,回來去盛岡公園看夜櫻:
    20180421輕井澤騎腳踏車,住高崎車站旁,先把行李放飯店,
    在去輕井澤騎腳踏車
    20180422第六天鐵道博物館與川越看古代街景,雖說有搭錯車,
    但還是順利從東京回台灣

    20180421第五天往輕井澤騎腳踏車

    20180421輕井澤騎腳踏車 總目錄:[連結]

    第五天算是大遷移,因為最後一天要從東京的成田機場回台灣,
    因此就想轉移離東京比較近的高崎車站,附近有輕井澤景點騎自行車,
    還有大宮有鐵道博物館與川越市的古代街景,
    於是訂了高崎車站旁邊的華盛頓飯店。
    離開前先逛逛附近的仙台朝市,離開仙台前往高琦華盛頓飯店放行李。
    北陸新幹線往返高崎與輕井澤只需15分鐘,若是開車1小時還不見得到的了
    離開仙台前先先逛仙台朝市,其實似乎沒什麼好逛的啦
    先坐到秋田新幹線大宮站
    再坐北路新幹線轉車到高崎
    出高崎車站過馬路就到了飯店,時間大約12:30,離入住時間2點還有點時間,所以先寄行李
    再到對面的AEON超市逛逛
    坐下午2點2分北陸新幹線
    15分鐘就抵達
    參考網路訊息,出站後右手邊有自行車出租,一日日圓500,電動輔助日圓1000
    有趣的老闆還特別給我們看,台灣人受傷,希望我們小心騎
    車真好騎,騎起來和YUBIKE蠻像的
    有自行車道,其實還不錯
    但到了鬧區,就要小心騎了,人多車多,不能騎到馬路上
    騎到輕井澤教堂
    騎到雲場池,可惜在整修,無法進入,只能遠望
    馬路兩旁都是樹林,很有綠色隧道的感覺




    時間表

    4/17 Day1
    7:05出門/11:20登機/15:45(日本時間)抵達仙台機場/16:50搭鐵道到仙台站/
    17:30到APA飯店/18:50伊達的牛吃晚餐(牛舌)/逛AEON超市/飯店溫泉
    4/18 Day2
    8:10出門/換JR pass新幹線票/9:37搭往ㄧ之關/10:21搭地鐵到平泉車站/毛越寺/
    水澤公園(賞櫻)/北上展勝地(賞櫻)/AEON超市/飯店溫泉

    4/19 Day3

    9:12東北新幹線到新青森/弘前星巴克/弘前公園(賞櫻)/三八城公園野餐(賞櫻)/
    仙台車站吃拉麵/AEON超市

    4/20 Day4

    9:12~10:26搭往秋田新幹JR到「田澤湖站」,下車後購買【田澤湖巴士環湖一周乘車券】
    10:45~12:16田澤湖ㄧ周(巴士)/午餐-車站旁拉麵及定食/
    13:11~14:08搭往秋田新幹JR到秋田車站/走路5分鐘到千秋公園(賞櫻,草地野餐)/
    16:12搭新幹線到盛岡/盛岡城跡公園(賞夜櫻)/19:50新幹線到仙台/
    仙台站將明天的車票劃位/晚餐-喜治郎牛舌

    4/21 Day5

    仙台朝市/10:30仙台搭新幹線到大宮/大宮站轉往高琦/到華盛頓飯店check in寄行李/
    AEON百貨購物吃午餐/14:05搭新幹線到輕井澤/輕井澤騎車2小時/高崎城跡

    4/22 Day6=9:11搭雙層新幹線到大宮站/從大宮站轉鐵道博物館站/參觀鐵道博物館/

    到川越站/搭巡迴觀光巴士/川越冰川神社/glin咖啡館喝下午茶/
    搭錯車,不小心搭到長岡站/長岡站搭回高崎約49分鐘/
    高崎站拿行李劃位及icoca加值/18:22搭往上野/
    上野搭電車到成田機場/22:00飛回台灣


    結論:
    有新幹線遠距離移動也變得很輕鬆,雖然一天跑了419公里,大概從基隆到墾丁,
    但似乎沒有覺得疲勞,反而有更多時間休息,新幹線車廂真的很舒適,
    輕井澤很適合騎自行車,風景也很美,可惜還是有點商業化,
    另外樹林兩旁都是私人土地,想找個地方野餐休息,似乎都奢侈。
    另外高崎車站的機能非常好,飯店離車站很近,又有AEON超市可以採買,真的蠻不錯的。

    20180418第一天抵達仙台車站旁APA飯店
    [連結] https://terry55wu.blogspot.tw/2018/04/20180418apa.html
    20180418在岩手縣賞櫻:
    20180419往青森縣賞櫻,雖說弘前城似乎還沒開,但也值得一去
    20180420往秋田賞櫻與盛岡夜櫻,先到田澤湖坐觀光巴士,
    在前往千秋公園,回來去盛岡公園看夜櫻:
    20180421輕井澤騎腳踏車,住高崎車站旁,先把行李放飯店,
    在去輕井澤騎腳踏車
    20180422第六天鐵道博物館與川越看古代街景,雖說有搭錯車,
    但還是順利從東京回台灣