在excel中如何使用VBA插入一个按钮，使其点击按钮实现在表格中单元格输入的功能，即刷新数据

在excel中如何使用VBA插入一个按钮，使其点击按钮实现在表格中单元格输入的功能，即刷新数据在excel中如何使用VBA插入一个按钮，使其点击按钮实现在表格中单元格输入的功能
创建一个按钮，其中Sheet1中A列的数据都是不同的，要求：
点击第一次按钮时，把Sheet1中A1的数据传给Sheet3（查询）中的E1
点击第二次按钮时，把Sheet1中A2的数据传给Sheet3（查询）中的E1
点击第三次按钮时，把Sheet1中A3的数据传给Sheet3（查询）中的E1
依次类推下去
点击第N次按钮时，把Sheet1中An的数据传给Sheet3（查询）中的E1
本人刚学VBA，不会写代码，哪位大神能否帮下？非常感谢各位大神！

举报该问题

其他回答

第1个回答 2018-05-15

永远都是弄到查询表的 E1?
Sub AA()
[AA1] = [AA1] + 1
MsgBox "第：" & [AA1] & "次"
Sheets("查询").[E1] = Cells([D1], "a")
End Sub追问

嗯，是的。因为要根据E1数据来查找相关数据，按老办法就是每次手动输入表1的数据，这样太麻烦了，如果添加一个按钮了就可以自动输入的

追答

你试下这个代码嘛
Sub AA()
[AA1] = [AA1] + 1
MsgBox "第：" & [AA1] & "次"
Sheets("查询").[E1] = Cells([AA1], "a")
End Sub

追问

哪个代码？

追答

Sub AA()
[AA1] = [AA1] + 1
MsgBox "第：" & [AA1] & "次"
Sheets("查询").[E1] = Cells([AA1], "a")
End Sub
复制到 sheet1 ，不要复制到查询这个表

追问

复制之后不能用，无法运行按钮宏，这是怎么回事？

追答

你是不是EXCEL版本？
你按钮指定这个宏了？

追问

是Microsoft Office Excel2007版的按钮宏

追答

我都是测试了
才发上来的代码
复制到 sheet1 ，不要复制到 sheet名为查询这个表

实在不行，发到邮箱。

追问

你看我复制的代码，哪里出现问题了？

你看我复制的代码，哪里出现问题了

？

追答

手机上看不清，AA1单元格是否有数据？宏安全性设置为低。

追问

弄好了。非常谢谢大神！想问下，如何记录每次点击查询之后得到的结果？这个结果属于动态变量，随着每点击一次按钮，结果就不一样，现在想自动记录这样的结果并保存到对应的位置，例如：第一次点击按钮就是表1中A1，得到的结果就自动保存到A1对应的B1,C1,D1。A2对应的B2,C2,D2。依次类推

追答

例如：第一次点击按钮就是表1中A1，得到的结果就自动保存到A1对应的B1,C1,D1。A2对应的B2,C2,D2。依次类推。

没明白

追问

大神，可以加QQ吗？

本回答被提问者采纳

第2个回答 2018-05-15

插入一个按钮控件，把下面的代码贴进去，注意你的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表格，按钮计数才会重置为零追问

谢谢大神！想问下，如何记录每次点击查询之后得到的结果？这个结果属于动态变量，随着每点击一次按钮，结果就不一样，现在想自动记录这样的结果并保存到对应的位置，例如：第一次点击按钮就是表1中A1，得到的结果就自动保存到A1对应的B1,C1,D1。A2对应的B2,C2,D2。依次类推

本回答被网友采纳

第3个回答 2018-05-15

留下企鹅吧看你的问题描述一直传给E1干嘛追问

点击按钮一次就输入一个数据，每次点击按钮，E1的数据都不一样的

追答

点击按钮加1.xls