怎么用EXCEL表格制作框架结构迭代法计算

1.打开 Excel 2010 ，依次单击“插入”--“SmartArt”。

2.单击“层次结构”--选择一种层次结构，如红色方框内的层次结构。

3.在红色方框处的文本框边框位置处单击--出现如红色方框中的选中样式后--按Delete键，即可删除该文本框。

4.在红色方框处的文本框边框位置处单击，选中后，依次单击“添加形状”--“在后面添加形状”或“在前面镇拿芦添加形状御带”，即可添加文本框。

5.在红色方框处的文本框边框位置处单击，选中该文本框后，依次单击“添加形状”--“在下方添加形状”，即可在红色方框下方添加一个文本框，同理，再添加一个文本框。按住ctrl键，单击这三个文本框的边框位置，把这三个文本框都选中，然后单击“布局”--“标准”，即可得到如图所示的组织框架。

6.在文本框中单击鼠标或选中文本框后，单击右键--“编辑文字敏段”，即可输入文字。最后得到如图所示的组织结构图。

你要的是下面的代码吗：

Option Explicit

Private Sub CommandButton1_Click()

Dim A1 As Single, A2 As Single

A1 = CSng(TextBox1.Value)

A2 = CSng(TextBox2.Value)

Label3.Caption = (A1 - A2) / A1 * 100

End Sub

Private Sub TextBox1_Change()

On Error Resume Next'防止一开始为空时出错

If (TextBox1.Value) = Empty Or CSng(TextBox1.Value) = "0" Then 'A1 不能为空或 0

CommandButton1.Locked = True'锁住“计亮并算”键

Else

If Not (TextBox2.Value = Empty) Then' A1 是不为 0 的数字且 A2 也不空

CommandButton1.Locked = False '解锁 “春颂计算”键

End If

End If

Label3.Caption = Empty

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Not ((KeyAscii >47 And KeyAscii <58) Or KeyAscii = 46) Or Not (IsNumeric(TextBox1.Value &Chr(KeyAscii))) Then

KeyAscii = 8'防止输出的不是数字

End If

End Sub

Private Sub TextBox2_Change()

On Error Resume Next'防止一开始为空时出错

If (TextBox1.Value) = Empty Or CSng(TextBox1.Value) = "0" Then 'A1 不能为空或 0

CommandButton1.Locked = True'锁住“计算”敬森迹键

Else

If Not (TextBox2.Value = Empty) Then' A1 是不为 0 的数字且 A2 也不空

CommandButton1.Locked = False '解锁 “计算”键

End If

End If

Label3.Caption = Empty

End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Not ((KeyAscii >47 And KeyAscii <58) Or KeyAscii = 46) Or Not (IsNumeric(TextBox2.Value &Chr(KeyAscii))) Then

KeyAscii = 8'防止输出的不是数字

End If

End Sub

Private Sub UserForm_Initialize()

TextBox1.Value = Empty

TextBox2.Value = Empty

Label3.Caption = Empty

CommandButton1.Locked = True

End Sub

1、对Excel单元格中的数据进行计算，一般都是使用公式来进行的。但是对单元格区域中的数据进行求和、求平均值、计数或求最值等计算时，可以直接在Excel程序的状态栏中查看键迅到结果。

2、启动Excel 并打开工作簿，在工作表中选择数据区域，默认情况下，状态栏将显示选择数据的平均值、计数和求和值。

3、在状态栏上右击，在快捷菜单中勾选相应磨亮旅的选项，则计算结果将添加到状态栏中。这里勾选“最小值”选项，状态栏上将瞎凳显示选择数据的最小值。

---