excel vba 怎么加按钮

EXCEL2010中的VBA已编程完。关闭VBA代码窗口。

在标题栏开发工具，选择插入选项卡，点表单控件，点第一按钮，拖动鼠标，再放开，会出现指定宏对话框，再选择所需的宏名。按确定。

步骤如下：

1.开发工具，插入，按钮

2.拖动绘制按钮，在d框中选择，新建

3.在新界面中输入如下代码

4.这样，每次点击按钮，就会在选中单元格中输入内容了

A1到AN是横向输入？应该是纵向呀！

Sub 按钮1()

Cells(Range("a65536").End(xlUp).Row + 1, 1) = 1

End Sub

Sub 按钮2()

Cells(Range("a65536").End(xlUp).Row + 1, 1) = 2

End Sub

插入一个按钮控件，把下面的代码贴进去，注意你的button的名字替换掉Private Sub CommandButton1_Click()中的CommandButton1

Option Explicit

Public buttonClickCount As Integer

Private Sub CommandButton1_Click()

buttonClickCount = buttonClickCount + 1

Worksheets("Sheet3").Cells(1, 5).value = Worksheets("Sheet1").Cells(buttonClickCount, 1).value

'MsgBox (buttonClickCount)

End Sub

注意每次重新打开excel表格，按钮计数才会重置为零

---