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

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

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

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

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

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

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

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

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

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

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

4）在窗以体的加载事件中要在两个列企业所得税表框中加载各个币种。

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

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

3 计算实现货币转换器的窗体搭建及控件属性的设置

我们看下面的窗体：

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

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

还有一个属性是F计算器oreColor属性，这个属性是控件字体或显示值的颜色，我们选的是蓝色：如下截图：

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

今日内容回向：

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

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

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