Question

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

在excel中如何使用VBA插入一个按钮，使其点击按钮实现在表格中单元格输入的功能创建一个按钮，其中Sheet1中A列的数据都是不同的，要求：
点击第一次按钮时，把Sheet1中A1的数据传给Sheet2中的C3
点击第二次按钮时，把Sheet1中A2的数据传给Sheet2中的C3
点击第三次按钮时，把Sheet1中A3的数据传给Sheet2中的C3
依次类推下去
点击第N次按钮时，把Sheet1中An的数据传给Sheet2中的C3

Answer 1

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表格，按钮计数才会重置为零

Answer 2

考点是静态变量，代码如下：

Option Explicit

Sub x()
    Static x
    x = x + 1
    Sheets("sheet2").Range("c3") = Sheets("sheet1").Cells(x, 1)
End Sub

追问

非常感谢大神的解答。通过Sheet2中C3的查找并计算后得到D4、D5、D6、D7四个数据的结果，现在想每按一次按钮时，得到的结果自动保存到Sheet1中An单元格对应的Bn、Cn、Dn、En单元格中。这是动态变量的，请教大神这个代码怎么弄？能否和上个代码合并在一起？本人是初学者

追答

真的没明白你的意思，感觉你是不是走错了方向，除非有毛病的老师，一般不会有需要这么弄的任务。

追问

大神，你还在吗？

追答

根本看不清楚你的代码，可以像我那样规范的文本么

追问

我按照你的规范代码输入之后就显示编译错误！语法错误！

追答

一、我的代码是从程序里面复制出来的，不可能有错误！！！！
二、现在你输入的代码报错了，我相信，你要粘贴你的代码，我才可以帮你看看你哪里输入错误了！！！
你的图片看不清楚，要么你粘贴你的代码，要么你粘贴我的代码到你的程序里面。

追问

这是我复制的代码，不知道哪里出现问题了

这是我复制的代码，不知道哪里出现问题了

追答

sub x()这一行的x修改一下，例如改为xxx

追问

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

追答

点击按钮之后的结果，应该就是单元格内容，或者你的变量，单元格内容使用Range或者Cells就可以获取

追问

大神，可以加QQ吗？

追答

请【百度云盘】（一个使用百度帐号登录的可以对话和传文件的应用软件）联系

请【百度云盘】（一个使用百度帐号登录的可以对话和传文件的应用软件）联系