虚拟货币计算器

2023-06-08 10:58:12 发布在百科0

Bitget下载

注册下载Bitget下载，邀请好友，即有机会赢取 3,000 USDT

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

《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

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