怎样在EXCEL中插入一个按钮，实现对数据的简单控制？

实现A1+1很简单

把下面代码复制进工作表的宏代码框

然后选择 开发工具--插入按钮--选择“A1加1()”这个宏即可

Sub A1加1()

Range("A2").Select

Dim i

i = Range("a1")

Range("a1") = i + 1

End Sub

首先点文件->选项

出现界面如下

首先在自定义功能区添加开发工具

activex控件第一个是按钮

然后创建一个按钮

保证设计模式是绿色底的，就是激活了设计模式，这个时候按钮只是一张图片不会触发。

双击这个图片。

Private Sub CommandButton1_Click()

    If IsNumeric(Replace(ThisWorkbook.ActiveSheet.Cells(1, 1).Value, Chr(34), "")) Then

        ThisWorkbook.ActiveSheet.Cells(1, 1).Value = Chr(34) & (CDbl(Replace(ThisWorkbook.ActiveSheet.Cells(1, 1).Value, Chr(34), "")) + 1) & Chr(34)

    ElseIf IsNumeric(ThisWorkbook.ActiveSheet.Cells(1, 1).Value) Then

        ThisWorkbook.ActiveSheet.Cells(1, 1).Value = ThisWorkbook.ActiveSheet.Cells(1, 1).Value + 1

    End If

End Sub

-1同理

可以实现，你搞来玩？