1.Alt+F11,将你设计的计算器VB代码输入
2.Application.Selection是你当前选中的Excel单元格
3.假设计算结果保存在TextBox1中,则Application.Selection=TextBox1.Text
下面是个简单示例(只用了1、2、3、+、=、CE几个键,按“=”后计算结果自动保存到选定的单元格内)
Dim A As Integer
Private Sub CommandButton1_Click()
TextBox1.Text = TextBox1.Text + "2"
End Sub
Private Sub CommandButton2_Click()
A = A + Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub CommandButton3_Click()
TextBox1.Text = A + Val(TextBox1.Text)
Application.Selection = TextBox1.Text
End Sub
Private Sub CommandButton4_Click()
TextBox1.Text = TextBox1.Text + "3"
End Sub
Private Sub CommandButton5_Click()
TextBox1.Text = TextBox1.Text + "1"
End Sub
Private Sub CommandButton6_Click()
A = 0
TextBox1.Text = ""
End Sub