如何用EXCEL VBA自動每日外匯行情
這是在東吳大學進修推廣部的VBA進階課上課的範例，
颱風天剛好同學在家練習如何用EXCEL VBA自動每日外匯行情，
因為用人工處理需要先連結網頁，
因為外匯資料分別在兩個不同表格裡，需要分別複製貼上兩次，
再貼到EXCEL中，共有十多種外匯資料需要匯入，
因此若能自動化處理，將大大節省時間，
如何做？可以先參考：如何批次下載股市資料到EXCEL中之1 [連結]
先錄製再簡單修改程式即可，
其實錄完最重要還是修改網址、匯入的儲存格位置與網頁中第幾個表格就差不多了，
由於有上下兩個表格，應此要重複兩次程式，
其他修改字型與格式表教基本，
最後記得就是改為共用程序，再傳遞網址與匯入位置即可完成。
結果畫面：
上課內容：
01_每日皆需要匯入外匯行情
02_建立下載清單工作表
03_錄製從WEB下載資料巨集
04_建立擷取外匯資料程序
05_擷取兩次表格並分左右
06_調整欄寬與改變字體顏色
程式碼：
vba儲存格位置 在 [問題] VBA 輸入儲存格位置- 看板Office - 批踢踢實業坊 的推薦與評價
(若是和其他不同軟體互動之問題 請記得一併填寫)
Excel2016
目前小弟剛學習VBA
主要需求是要做出散布圖
但因為每次資料撈出來的總數據是隨機的
目前想到可用inputbox 得到座標，進而作出圖
小弟想到方法是如下
Sub xx()
Dim x, data_rng As Range
x = InputBox("請輸入座標:")
data_eng = x
Range("A1:x").Select
End Sub
但這方法沒會出現偵錯，想請問要怎麼修正
另外
小弟希望可以從數列中找到最大值的儲存格位置
同時又可以放進RANGE裡面，因為功力完全不夠，完全沒有概念
希望有大大可以拯救
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.248.248.191 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1628575808.A.5FA.html
感謝s大教學
找尋最大值的目的是為了要編輯散布圖的XValues 還有 Values
舉例來說:
ActiveChart.FullSeriesCollection(1).XValues = "=工作表2!$B$1:$B$80"
Values部分希望可以取代為 "=工作表2! A1:X"
x=搜尋出來的最大值
目前是卡在這裡
※ 編輯: kjes924308 (59.125.159.46 臺灣), 08/10/2021 15:46:00
s大，不好意思
小弟真的太菜了
搜尋部分
Dim rng as range
set rng = Sheets("工作表5").[A1:A10]
x=Application.Max(rng).address
請問這樣編寫是哪邊出嗎
※ 編輯: kjes924308 (59.125.159.46 臺灣), 08/10/2021 16:06:43
請問s大
如果我在excel的儲存格A1輸入"A160"
要怎麼讓"A160"變成可使用的變數呢?
舉例來說希望作圖可A2:A160
但這"A160"是由儲存格內的字串所得到的
※ 編輯: kjes924308 (59.125.159.46 臺灣), 08/10/2021 16:12:45
Range("A1") 這個方法有成功了!!
感謝大大
※ 編輯: kjes924308 (59.125.159.46 臺灣), 08/10/2021 16:39:34
... <看更多>