VBA如何依照所選擇年份幣別設定網址
網誌圖文版：
http://www.b88104069.com/archives/4371
上一節透過定義月份變數的方式，將期間固定為一到十二月，一次下載2015年度各個月份
的美元匯率。除了特定年度及幣別，實務上有時需要下載不同年度、不同幣別的歷史匯率
資料，甚至是一次下載許多年度和幣別的資料，以VBA程式碼而言，亦即關於歷史匯率還
有兩個關鍵變數：年度及幣別。透過定義變數的方式，再搭配For…Next的迴圈設計，視
情況也許需要加上條件判斷，便可以達到自由選擇年度及幣別的功能。這一節先詳盡說明
條件判斷語法，接著以先前章節介紹過的Application.InputBox方法，於對話方塊輸入幣
別。
一、稍加修改上一節批次取得匯率的程式碼，重點說明條件判斷的程式寫法。
說明如下：
Sub IfFunction()
編寫名稱為「IfFunction」的巨集程式碼。
Dim i As Integer, Month, WebAddress, DesCell As String
Dim是宣告變數，其中i為整數（Integer），Month、WebAddress、DesCell為文字（
String），如果省略，VBA會自動將出現的變數設定為萬用類型（Variant）。在電腦的記
憶體倉庫裡，每種變數類型佔用的空間不同，萬用類型所佔用空間當然是最多的，因此要
養成宣告變數的習慣，一來避免降低Excel執行效率，二來寫長程式必須結構嚴謹，明確
宣告變數便是嚴謹的要求之一。
For i = 1 To 12
設置1到12的迴圈，如前面文章所述，這裡其實省略了「step 1」，因為對執行效率沒有
影響，以整數為迴圈是一般用法，所以毋須像Dim宣告變數那麼嚴謹。
If i < 10 Then
這個應該蠻容易理解，「If+條件+Then」是VBA規範寫法，如圖所示，一定要換行之後，
再寫滿足條件時的執行程式，然後換行「Else」，接著再換行寫否則時的執行程式，最後
也一定不能漏掉換行「End If」，在VBA編寫條件判斷程式，一定要照這樣的規矩走，不
然程式無法順利被讀取執行，Excel會跳錯。
Month = "0" & CStr(i)
滿足i<10條件時，將文字變數Month前面加一個零，這個套用Cstr函數，「CStr(i)」用意
是將整數類型的變數i轉換成特定文字，前面「"0"」是加雙引號表示文字，和Excel資料
編輯列相同用法。例如在迴圈i=1的情況下，這裡的Month便是文字「01」，依照迴圈和條
件式跑下來，Month會從「01」一直跳到「09」。
Else
在整個條件語句結構，這裡是表示條件不滿足、否則的時候要怎麼做。
Month = CStr(i)
當「i<10」不成立時，設定Month為轉換成文字的i變數，因為一開始的迴圈是「For i =
1 To 12」，這裡的結果便是「10」、「11」、「12」，分別會於第10次、第11次、第12
次迴圈時賦值。
End If
結束If判斷句。
WebAddress = "URL;http://rate.bot.com.tw/xrt/quote/2015-" & Month & "/USD"
設定文字變數WebAddress，在固定的網址中間，套用一個文字變數Month。順著迴圈跑「
For i = 1 To 12」，便是2015年1到12月的匯率網址。
DesCell = Cells((1 + (i - 1) * 25), 1).Address
設定文字變數DesCell，搭配迴圈為工作表座標（1,1）、（26,1）、（51,1）等，「
.Address」意思是取儲存格的參照。於此再複習一次，VBA的標準語法為「物件.屬性」或
「物件.方法」，這裡的物件為Cells，屬性為其參照。
Cells(i, 1).Value = Month
Cells(i, 2).Value = DesCell
Cells(i, 3).Value = WebAddress
依照迴圈順序，將三個文字變數的值，顯示於工作表。
Next i
執行變數i的下一次迴圈。
End Sub
結束程式。
二、執行結果如圖所示。
三、整理台灣銀行的幣別資料如圖片所示，在這裡選擇比較常見的15種幣別。
四、修改程式碼如圖所示。Dim多增加了變數Year及Currence的宣告，多了兩行引用「
Application.InputBox」方法定義變數，其中「Type:=2」為輸入文字、「Type:=8」為儲
存格參照，關於不同Type型態的說明，可參考第三章第三節「新增工作表視窗」第一步驟
的圖片。另外也依照變數設定，更改網址定義：「WebAddress =
"URL;http://rate.bot.com.tw/xrt/quote/"& Year & "-" & Month & "/" & Currence」
。
五、執行Currence巨集程序，首先於跳出來的視窗中，直接輸入「四位數西元年份」，範
例是輸入「2016」。
六、「選擇儲存格參照」為「B3」（港幣HKD），顯示於視窗即為「幣別!B3」。
七、如圖片所示，成功列出2016年HKD的歷史匯率網址。
這一節成功設置了年份和幣別的選擇，然而僅僅是在工作表上體現儲存格參照和網址，用
意在於瞭解如何適當地定義變數，下一節即以此為基礎，進一步取得批次網頁資料並修改
格式。
本文內容取自《人人做得到的網路資料整理術》，博客來書店網址：
http://www.books.com.tw/products/0010775391。
延伸閱讀：
VBA如何批次取得網頁資料
http://www.b88104069.com/archives/4366
VBA如何取得網頁資料時自動整理格式
http://www.b88104069.com/archives/4362
Excel如何取得台灣銀行匯率
http://www.b88104069.com/archives/4348
--
周末，我們繼續Excel：精華區=>21.心得=>5.其他=>3.office
會計人的Excel小教室： https://www.facebook.com/acctexcel
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 183.209.121.217
※ 文章網址: https://www.ptt.cc/bbs/Accounting/M.1551101245.A.32D.html