Question

需要帮助才能完成特定的复制和粘贴。我有一个活跃的客户列表，它总是在更新。当工作完成后，我必须准备一张发票。我试图在我的活动客户工作簿上创建一个按钮没有成功，该按钮将复制我选择的客户名称，可能通过突出显示列c中的单元格，然后将该名称传输到单元格B3中名为invoice的模板。模板已经使用Vlookup设置，并且函数可以根据客户名称填充所有信息。我希望按钮复制我选择的单元格不是整列或行。这段代码可以吗？

Answer 1

这两个建议都假设您在客户工作簿/工作表中选择了单元格...按钮代码可能如下所示：

Sub Copy_Cust()
    Workbooks("Invoice").Sheets("Sheet1").Range("B1") = ActiveCell
End Sub

或

Sub Copy_Cust2()
    Selection.Copy
    Workbooks("Invoice").Sheets("Sheet1").Range("B1").PasteSpecial
    Application.CutCopyMode = False
End Sub

VBA按钮从一个工作簿复制到另一个工作簿

1 个答案: