货币换算计算器(VBA货币换算计算器代码)

各位老铁们，大家好，今天由我来为大家分享货币换算计算器，以及VBA货币换算计算器代码的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！

【分享成果，随喜正能量】别人的事，与我无关。这是人际关系中最基本的边界。混淆边界的人，要么是蠢，要么是坏，要么是又蠢又坏。我自己的事，也与他人无关。我自己做决定，自己负责任，不需要他人恩准，不需要他人评判，也不把责任推卸给他人。一个成年人，在不违法、不妨碍他人的前提下，尽量去做自己喜欢的事。他人无权置喙。己所不欲，勿施于人；己所欲，也勿施于人。天下太平。。

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

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

PrivateSubCommandButton1_Click()

Dimrates(0To2,0To2)AsDouble,iAsInteger,jAsInteger

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

IfListBox1.ListIndex=iAndListBox2.ListIndex=jThenTextBox2.Value=TextBox1.Value*rates(i,j)

PrivateSubUserForm_Initialize()

TextBox2.Value=ThisWorkbook.Sheets("Sheet3").Cells(6,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

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

IfListBox1.ListIndex=iAndListBox2.ListIndex=jThenTextBox2.Value=TextBox1.Value*rates(i,j)

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

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

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

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

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

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

今日内容回向：

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

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

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

【分享成果，随喜正能量】你是对的，我也没错。这个世界上原本存在完全相反的正确。我们走在不同的道路上，却沐浴着一样的朝阳，一样的风。两厢情愿的事，谈不上有多不道德。对两厢情愿的事横加批判、干涉，才不道德。

关于货币换算计算器的内容到此结束，希望对大家有所帮助。