天天股票(宏信证券开户)

别人的事，与我无关。这是人际关系中最根本的鸿沟。混杂鸿沟的人，要么是蠢，要么是坏，要么是又蠢又坏。我自己的事，也与别人无关。我自己做决议，自己负职责，不需求别人恩准，不需求别人评判，也不把职责推脱给别人。一个成年人，在不违法、不阻碍别人的前提下，尽量去做自己喜爱的事。别人无权置喙。己所不欲，勿施于人；己所欲，也勿施于人。天下太平。。

股票000880,股票000880

《VBA之Excel使用》是十分经典的，是我推出的第七套教程，定坐落初级。这套教程从简略的录制宏开端解说，一直到窗体的建立，内容丰富，实例很多。咱们能够十分简单的把握相关的常识，这套教程共三册，十七章，都是咱们在使用EXCEL作业进程中需求把握的常识点，期望咱们能把握使用。今天解说的内容是“VBA之EXCEL使用”的第十七章 “用户窗体（Userform）的实例使用”：VBA钱银换算核算器代码

长城证券app？长城证券app

炒股需求哪些常识,炒股需求哪些常识

第七节 钱银换算核算器的制造（二）

在上节中，咱们完成了窗体的建立，这讲咱们解说窗体的代码及代码的履行作用。

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

你是对的，我也没错。这个世界上本来存在彻底相反的正确。咱们走在不同的道路上，却沐浴着相同的向阳，相同的风。两厢情愿的事，谈不上有多不品德。对两厢情愿的事横加批评、干与，才不品德。