excel中怎么使用VBA插入一个按钮 使其点击按钮实现在某单元格输入的功能
最新回答
风微甜
2024-10-16 07:08:36
步骤如下：
1.开发工具，插入，按钮
2.拖动绘制按钮，在弹框中选择，新建
3.在新界面中输入如下代码
4.这样，每次点击按钮，就会在选中单元格中输入内容了
梦幻的心爱
2024-10-16 05:16:31
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
人家有伞，我有大头。
2024-10-16 07:56:02
照这样，如果按3，是不是在A3中输入3？那你准备做多个按钮？
追问
你有Q不我发断代码给你看看
追答
371903662
清淡夏未央
2024-10-16 07:21:59
？
追问
是这样的 问题是输入要横向移动 比如我按该按钮在A1单元格输入1 我按2按按钮 他会自动在A2单元格输入2
追答
按你说的，A1 A2 A3......，那是纵向啊，，搞好了，给我QQ，发给你
如图，看看是不是这个效果
追问
244460821
热门标签
