用EXCEL做一个计算程序？

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、2单元格，然后选中1、2个单元格，右下角出现黑色十字，接着双击左键，后边的单元格就全部填充完毕了。