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