Question

我正在制作一张Excel表格，列出各种规格的索赔清单我有一张包含不同问题的下拉值的工作表，但现在我想制作一个输入所有规格的完整列表。
我该怎么做呢？我想从表1中的字段B4 - B6 - B8 - B10 - B12 - B14 - B16 - B18获取信息，并将它们插入到表3中的下一个可用行中。
如何通过一个简单的按钮完成？首选或可能包含表单已更新的消息。

Answer 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

使用按钮传输数据

1 个答案: