《VBA之Excel应用》是非常经典的，是我推出的第七套教程，定位于初级。这套教程从简单的录制宏开始讲解，一直到个人所得税窗体美国的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册计算器，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家美国能掌握利用。今日讲解的内容是“VBA之EXCEL应用”的第十七章 “用户窗体（Userform）的实例应用”的第6节：VBA货币换算计算器

第六节 货币换算计算器的制作（一）

我们这讲的内容将制作一个货币转换计算器，通过这个计算器可以实现货币的自由转换，我们这讲的例企业所得税子仍是窗体的实际操作，这个操作中我们将数组的应用结合窗体的应用，让大家更为熟练地应用之前学到的各种知识。

1 货币转换计算器的应用场景

我们总是会讲到汇率，特别是在做外贸的时候计算器，汇率的转换更是经常要做的，对于汇率而言，一个是月初的汇率，往往作为外贸企业的核算基准，在月初人民银行公布外汇牌价的时候，我们可以把这个牌价最为我们整个月度计算的基准，在整个月度间执行这个汇率，在各个币种间进行汇率的转换。如下表：

为美元，人民币，日元间的相互转换，这个值是2020年11月19日的值，我们以此为基准，构建一个汇率转换器，可以得美元出给出的币种值间的转换。对于给出的值，只要个人所得税给出对应的币种就可以求出需要得出的币种换算后的值。

2 实现货币转换计算器的思路分析

为了实现货币转换，我们整理一下过程思路：

1）建立一个窗口，这种窗口中有两个列表框，代表转换前的币种和转换后的币种。

2）在窗口中建立两个文本框，代表转换前的值和转换后的值。

3）建立一个命令按钮来执行上述转换的操作。

4）在窗体的加载事件中要在两个列表框中加载各个币种。

5）在点击命令按钮时，要将工作表中的汇率转换基准值写入数组，这个数组的写入要对应汇率间的转换，然后在计算时，根据用户在列表框中的选择来判断这个基准数值的取值，也就是币种间汇率的转换值。

以上就是实现货币转换计算器的思路分析，下面的内容中我们要一步步地实现，大家要在理解的基础上灵活运用。

3 实现货币转换器的窗体搭建及控企业所得税件属性的设置

我们看下面的窗体：

上面的窗体中，我们布局了两个标签，两个列表框，两个文本框，一个命令按钮。我们看各个控件的属性：

这个窗体上的控件其实我们只有三个属性需要设置:一个是Caption这个属性是控件在窗体上的显示值；一个是Font属性，这个属性是控件的字体设置，我们采用地是下面截图的设置：

还有一个属性是ForeColor属性，这个属性是控件字体或显示值的颜色，我们选的是美元蓝色：如下截图：

上面的属性设置完成后，我们就完成了窗体的搭建。

今日内容回向：

1） 窗体的加载事件需要实现哪些工作？

2） 数组的值是如何与窗体加载关联的？

本讲内容参考程序文件：工作簿17.xlsm