EXCEL VBA與資料庫(進階107)第7單元改用IE物件下載YAHOO股市&改用取得Table與TR與TH的文字&用IE物件逐一將儲存格資料下載&下載雲端資料與移動工作表&用MOVE方法排序&宣告陣列來當成排序清單&工作表轉存為工作簿&刪除檔案與判斷是否有檔案&來源路徑用選取訊息視窗FileDialog
上課內容：
01_重點回顧與下載YAHOO股市資料
02_改用IE物件下載YAHOO股市
03_改用取得Table與TR與TH的文字
04_用IE物件逐一將儲存格資料下載
05_改為下載雲端資料與移動工作表
06_IE物件相關與用MOVE方法排序
07_宣告陣列來當成排序清單
08_批次將工作表轉存為工作簿
09_刪除檔案與判斷是否有檔案
10_來源路徑用選取訊息視窗FileDialog
完整影音
http://goo.gl/aQTMFS
教學論壇：
https://groups.google.com/forum/#!forum/scu_excel_vba2_107
與前幾期的課程雖然用的是相同的範例，但最大的不同在：
1.除了解說建函數公式，並將之轉成自訂函數，把複雜的公式變簡單。
2.如何將複雜的公式變成簡單的按鈕，按下按鈕就自動完成工作。
內容主要分成：
單元01_資料拆解相關(VBA基礎)
單元02_表單設計
單元03_輸入自動化與表單與資料庫
單元04_工作表合併
單元05_資料查詢(篩選與分割工作表)
單元06_批次查詢
單元07_從雲端硬碟下載資料
單元08_下載網路資料
單元09_工作表相關
單元10_活頁簿與檔案處理(工作表分割與合併活頁簿)
單元11_表格與圖表處理(自動繪製圖表)
單元12_圖案處理(快速匯入圖片到EXCEL)
有講義與範例和完成的畫面公式與程式碼，
只要按照每周的順序學習，學會EXCEL VBA自動化絕非難事，
優點：
1.可非線性學習：可按照自己最不熟的部分多次學習。
2.可反覆學習：有疑問可以多次聽講，保證學的會。
3.可攜帶學習：只要有瀏覽器就可以播放SWF檔，MAC電腦也沒問題。
上課參考用書：
看！就是比你早下班－50個ExcelVBA高手問題解決法
作者：楊玉文 出版社：松崗
Excel VBA一點都不難：一鍵搞定所有報表
作者：?Excel Home
出版社：博碩
課程理念:
1.以循序漸進的方式, 透過詳細的說明和實用的Excel VBA範例, 逐步了解整個 VBA 的架構與輪廓,進而學習 VBA 變數、函式及邏輯的觀念, 即使沒有任何程式設計基礎, 也能自己親手撰寫 VBA 程序來提昇工作效率, 晉身職場 Excel 高手！ 2.進而解說EXCEL與資料庫的結合，將EXCEL當成資料庫來使用，結合函數、VBA等更深入的功能，讓資料處理和分析的應用更上層樓。 3.將結合GOOGLE雲端試算表，教您如何將EXCEL函數雲端化與網路化。
更多EXCEL VBA連結：
01_EXCEL函數與VBA http://terry28853669.pixnet.net/blog/category/list/1384521
02_EXCEL VBA自動化教學 http://terry28853669.pixnet.net/blog/category/list/1384524
吳老師 2018/10/8
EXCEL,VBA,函數東吳進修推廣部,EXCEL,VBA,函數,程式設計,線上教學,excel,vba,教學,excel,vba指令教學,vba範例教學excel,,excel,vba教學視頻,excel函數教學,excel函數說明,excel函數應用
vba選取有資料的儲存格 在 Re: [算表] VBA 選取一列中含特定字元最末資料- 看板Office 的美食出口停車場
※ 引述《joshjetly ( )》之銘言：
軟體: Excel VBA
版本: 2010
各位先進大家好
在下是 VBA 新手
有批好幾頁
每頁接近萬列的資料要整理
每列約有 50~100 個儲存格
資料大致如下
A B C | D E F G H I J K L M
|
1 [7] (5) 1 | [3] (4) 13 [2] (2) 7 40 [7] (5) 1
|
2 [2] (4) 9 | [9] (6) 4 [2] (4) 8 5 16 9
|
3 [6] (3) 20 | [6] (5) 1 (8) 3 2 1 (3) 29 20
|
在下希望可以在
A 欄：找出同列中最後筆包含 "[" 的文字
B 欄：找出同列中最後筆包含 "(" 的文字
C 欄：找出同列中最後筆數字
請問該如何用 VBA Function 處理呢？
麻煩各為先進了
感激不盡！
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.67.5.101
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1504430247.A.5A6.html
各位先進大家好
以下是依法做出的 Function FindLast
--------------------
Public Function FindLast(WorkRng As Range, Optional Sign As String) As String
Dim Rng As Range
For Each Rng In WorkRng
If InStr(Rng, Sign) > 0 Then
FindLast = Rng.Text
End If
Next
End Function
--------------------
若
A1=FindLast(D1:M1,"[")
可回傳 "[7]"
但若是將 WorkRng 改為 OFFSET($D1,,,,COUNTA(1:1)-3)
則回傳數字 "0"
請問是哪裡出問題呢？
麻煩各為先進了
感激不盡！
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.67.231.14
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1504522575.A.263.html
... <看更多>