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

第七节 货币换算计算器的制作（二）

在上节中，我们完成了窗体的搭建，这讲我们讲解窗体的代码及代码的执行效果。

4 实现货币转换计算器的代码

我们看下面的代码：

1）命令按钮的点击事件

Private Sub CommandButton1_Click()

Dim rates(0 To 2, 0 To 2) As Double, i As Integer, j As Integer

k = 3

rates(0, 0) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(0, 1) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(0, 2) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(1, 0) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(1, 1) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(1, 2) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(2, 0) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(2, 1) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(2, 2) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

For i = 0 To 2

For j = 0 To 2

If ListBox1.ListIndex = i And ListBox2.ListIndex = j Then TextBox2.Value = TextBox1.Value * rates(i, j)

Next j

Next

End Sub

2）窗体的加载事件

Private Sub UserForm_Initialize()

With ListBox1

.AddItem "美元"

.AddItem "人名币"

.AddItem "日元"

End With

With ListBox2

.AddItem "美元"

.AddItem "人名币"

.AddItem "日元"

End With

ListBox1.ListIndex = 1

ListBox2.ListIndex = 0

TextBox1.Value = 1

TextBox2.Value = ThisWorkbook.Sheets("Sheet3").Cells(6, 3)

End Sub

代码的部分截图：

5 代码的讲解

1） k = 3

rates(0, 0) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(0, 1) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(0, 2) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(1, 0) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(1, 1) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(1, 2) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(2, 0) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(2, 1) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

rates(2, 2) = ThisWorkbook.Sheets("Sheet3").Cells(k, 3): k = k 1

以上代码将窗体的汇率基准值添加到数组中。

2）For i = 0 To 2

For j = 0 To 2

If ListBox1.ListIndex = i And ListBox2.ListIndex = j Then TextBox2.Value = TextBox1.Value * rates(i, j)

Next j

Next

上述代码计算货币的转换，并将转换后的值写入textbox2文本框中。

3） With ListBox1

.AddItem "美元"

.AddItem "人名币"

.AddItem "日元"

End With

With ListBox2

.AddItem "美元"

.AddItem "人名币"

.AddItem "日元"

End With

以上代码在列表框1和2中加载三个项，供用户选择。

6 代码的运行效果

下面我们看代码的运行效果，我们点击“汇率换算”按钮，这个按钮要关联上useform3窗体的显示：

Sub mynzB()

UserForm3.Show

End Sub

2）点击后会出现汇率转换的窗口：

3）我们在第一个文本框中录入数值，并在两个文本框中分别选择转换前和装换后的币种：

4）点击转换：

以上就实现了美元和日元间的转换。

今日内容回向：

1） 上述代码过程是否清楚呢？

2） 上述代码中有一个漏洞，就是最好在币种选择时实现第二个文本框清零，代码该如何实现呢？

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