步骤如下:
1.开发工具,插入,按钮
2.拖动绘制按钮,在弹框中选择,新建
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
如我按该按钮在A1单元格输入1 我按2按按钮 他会自动在A2单元格输入2
照这样,如果按3,是不是在A3中输入3?那你准备做多个按钮?
不是很明白你的意思,是不是说,按按钮1输入1,按按钮2就输入2
?