【分享成果，随喜正能量】人生最难得“心安”二字。所谓“心安”，就是心里没有后悔的事、没有亏心的事、没有想不开的事，不为名所累，不为利所役，清清白白做人，干干净净做事。如果患得患失，心浮气躁，人生就会疲惫不堪、了无生气。唯有保持一颗宁静的心，不眼热权势，不艳羡富贵，活得纯粹、活得自然，才能求得一个心安。

《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

【分享成果，随喜正能量】人生无常，心安便是归处。人生的道路上，有选择，有放弃，有挫折，有担当，有成功，有失败。时间过滤了记忆中的那些伤痛与不悦，也沉淀了喜乐与疯狂。而这些曾经的美好回忆，伴随着我一路走来，经历了人生的风风雨雨。