如何用EXCEL VBA自動每日外匯行情
這是在東吳大學進修推廣部的VBA進階課上課的範例，
颱風天剛好同學在家練習如何用EXCEL VBA自動每日外匯行情，
因為用人工處理需要先連結網頁，
因為外匯資料分別在兩個不同表格裡，需要分別複製貼上兩次，
再貼到EXCEL中，共有十多種外匯資料需要匯入，
因此若能自動化處理，將大大節省時間，
如何做？可以先參考：如何批次下載股市資料到EXCEL中之1 [連結]
先錄製再簡單修改程式即可，
其實錄完最重要還是修改網址、匯入的儲存格位置與網頁中第幾個表格就差不多了，
由於有上下兩個表格，應此要重複兩次程式，
其他修改字型與格式表教基本，
最後記得就是改為共用程序，再傳遞網址與匯入位置即可完成。
結果畫面：
上課內容：
01_每日皆需要匯入外匯行情
02_建立下載清單工作表
03_錄製從WEB下載資料巨集
04_建立擷取外匯資料程序
05_擷取兩次表格並分左右
06_調整欄寬與改變字體顏色
程式碼：
vba 儲存格位置 在 [問題] Excel VBA 判斷儲存格是否空白- 看板Office - 批踢踢實業坊 的美食出口停車場
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Excel
版本:2010
想寫一個巨集是判斷某a儲存格的相對位置（1，0）之b儲存格內容是否空白
如果是，則b儲存格相對位置（-1，3）輸入"是空白"
如果不是，則繼續找下一欄直到最後一個有字元的儲存格《用錄的，使用END+↓》，已此儲存格相對位置（0，3）輸入"非空白"
以下是我的巨集，不知道為什麼無論b儲存格是否空白，If判斷結果都是執行Else。
請先進們幫忙指點迷津
謝謝各位
*手機排版，傷眼請見諒
----
sub a()
sub a()
ActiveCell.Offset(1,0).Range("A1").Select
If Range("A1") = "" Then
ActiveCell.Offset(-1,3).Range("A1").Select
ActiveCell.FormulaR1C1 = "是空白"
ActiveCell.Offset(1,0).Range("A1").Select
Else
Selection.End(xlDown).Select
ActiveCell.Offset(0,3).Range("A1").Select
ActiveCell.FormulaR1C1 = "非空白"
End of
End sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 110.28.76.101
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1504883260.A.5F2.html
※ 編輯: cksmark129 (111.184.97.121), 09/09/2017 18:54:05
... <看更多>