Excel 使用按钮传输数据

Excel 使用按钮传输数据,excel,forms,Excel,Forms,我正在创建一个Excel表格,列出各种规格的索赔清单。 我有一张表,其中包含不同问题的下拉值,但现在我想制作一个完整的列表,其中输入了所有规格。 我该怎么做?我想从第1页的字段B4-B6-B8-B10-B12-B14-B16-B18中获取信息,并将其插入第3页的下一行。 如何用一个简单的按钮来实现这一点?首选,或者可能带有表单已更新的消息。这就是我所做的,它可以工作:) 快速的答案是,您可以编写一个Excel宏来完成繁重的工作。这里有一个网站讨论了您的问题,甚至有一些示例代码:注意:既然您已经激

我正在创建一个Excel表格,列出各种规格的索赔清单。
我有一张表,其中包含不同问题的下拉值,但现在我想制作一个完整的列表,其中输入了所有规格。
我该怎么做?我想从第1页的字段B4-B6-B8-B10-B12-B14-B16-B18中获取信息,并将其插入第3页的下一行。

如何用一个简单的按钮来实现这一点?首选,或者可能带有表单已更新的消息。

这就是我所做的,它可以工作:)


快速的答案是,您可以编写一个Excel宏来完成繁重的工作。这里有一个网站讨论了您的问题,甚至有一些示例代码:注意:既然您已经激活了“Sheets”(“Liste”),在这种情况下,您就不需要再使用它了。因此,“Sheets”(“Liste”).Range(“A3”).Value=Range(“B4”).Value”可以变成“Range”(“A3”)=Range”(“B4”)“请查看此项,以在将来改进您的编码-+1为解决您自己的问题:-)也可以在本教程中进行介绍,以改进您将来如何构建问题。
Private Sub CommandButton1_Click()

Sheets("Liste").Activate
ActiveSheet.Range("A2").Select
ActiveCell.Offset(a2).Resize(1).EntireRow.Insert
Sheets("Liste").Range("A3").Value = Range("B4").Value
Sheets("Liste").Range("B3").Value = Range("B6").Value
Sheets("Liste").Range("C3").Value = Range("B8").Value
Sheets("Liste").Range("D3").Value = Range("B12").Value
Sheets("Liste").Range("E3").Value = Range("B14").Value
Sheets("Liste").Range("F3").Value = Range("B16").Value
Sheets("Liste").Range("G3").Value = Range("B18").Value
Sheets("Liste").Range("H3").Value = Range("B10").Value

Range("D4").Value = Range("B4").Value


Sheets("Forside").Activate

End Sub