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://webptt.com/m.aspx?n=bbs/Accounting/M.1551101245.A.32D.html