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 的推薦與評價
爬文發現想用VBA 中尋找最後一列非空白位置並選取範圍
參考了S大的說明可用迴圈if判斷的方式尋找到最後一列的位置
但完整程式碼該怎麼套以選取範圍新手還試不出來
可以請版上高手稍微示範一下嗎？
感謝!!
目前的程式碼如下：
Dim myRange As Range
For i = myRange.Row To 1 Step -1
If Range("A" & i) <> "" Then Exit For
Next
Set myRange = ThisWorkbook.Sheets("資料產出").Range("a2",
ActiveSheet.Range("a1".)Range("A" & i).End(xlToRight).End(xlToRight).End(xlToRight))
myRange.Select
End Sub
※ 引述《supisces (被~~~切~~~八~~~段)》之銘言：
: 軟體: Excel
: 版本: 2010
: Google 後查到以下程式碼可以找到最後一列的位置
: =============================================================
: Dim myRange As Range
: Set myRange = ThisWorkbook.Sheets(1).Range("B65536").End(xlUp) '表示在B欄
: 的最後一列
: myRange.Select
: Debug.Print myRange.Value
: Debug.Print myRange.Address
: Debug.Print myRange.Row
: Debug.Print myRange.Column
: MsgBox "值 : " & vbTab & myRange.Value & vbCr & _
: "位置: " & vbTab & myRange.Address & vbCr & _
: "列數: " & vbTab & myRange.Row & vbCr & _
: "行數: " & vbTab & myRange.Column & vbCr
: Set myRange = Nothing
: ==============================================================
: 但是經測試後發現,
: 這個方式並不管儲存格是否為空白.
: 如果最後一列的儲存格中有公式,
: 但是結果為空白,
: 請問該如何寫 VBA?
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.24.150.75
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1524972052.A.FE0.html
我是想選取一個範圍
我的想法是先尋找A欄中最個一個非空白的值儲存格
再往右選取到最右邊那欄
現在主要卡在判斷尋找最後一個非空白值的儲存格後
該怎麼套用的選取的範圍
感謝!
※ 編輯: nash30113 (114.24.150.75), 04/29/2018 11:39:25
目前套用會選到有公式的空白儲存格
所以才會用S大的建議套用if的判斷式
但不知道判斷後該怎麼套進選取範圍
實例如附檔 我想選取檔案中Sheets"資料產出"非空白儲存格範圍(如A2:C6)
檔案連結：https://goo.gl/jtLdXw
※ 編輯: nash30113 (114.24.150.75), 04/29/2018 12:01:53
... <看更多>