excel中怎么使用VBA插入一个按钮 使其点击按钮实现在某单元格输入的功能

Question

比如 我要在A1单元格中输入1 A2单元格输入1 A3单元格输入2 A4单元格输入1 怎么编辑按钮1 和按钮2 使其按顺序A1-AN格中一次横向输入

Answer 1

步骤如下：

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

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

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

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

Answer 2

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追问

不对啊

追答

这个图与上面的说明不一致呀！
试试
Sub 按钮1()
Cells(1, Range("iv1").End(xlToLeft).Column + 1) = "〇"
End Sub

Sub 按钮2()
Cells(1, Range("iv1").End(xlToLeft).Column + 1) = "⊙"
End Sub

追问

谢谢就是这样了 能帮我解决多一个吗 如果我想在 B1单元格开始又该怎么样了 C1单元格呢

追答

现在的就是从B1开始的。
如果要从C1开始，用下面的代码。
Sub 按钮1()
Cells(1, Range("iv1").End(xlToLeft).Column + 1 + IIf(Range("iv1").End(xlToLeft).Column < 3, 1, 0)) = "〇"
End Sub

Sub 按钮2()
Cells(1, Range("iv1").End(xlToLeft).Column + 1 + IIf(Range("iv1").End(xlToLeft).Column < 3, 1, 0)) = "⊙"
End Sub

本回答被提问者采纳

Answer 3

如我按该按钮在A1单元格输入1 我按2按按钮 他会自动在A2单元格输入2
照这样，如果按3，是不是在A3中输入3？那你准备做多个按钮？追问

你有Q不我发断代码给你看看

追答

371903662

Answer 4

不是很明白你的意思，是不是说，按按钮1输入1，按按钮2就输入2
？追问

是这样的 问题是输入要横向移动 比如我按该按钮在A1单元格输入1 我按2按按钮 他会自动在A2单元格输入2

追答

按你说的，A1 A2 A3......，那是纵向啊，，搞好了，给我QQ，发给你

如图，看看是不是这个效果

追问

244460821