插入一个控件按钮该按钮的代码如下:Private Sub CommandButton1_Click()Dim a As Longa = Int(InputBox("输入数字"))ActiveCell.Value = aEnd Sub