从工作表中的一个单元格计算公式,然后将结果粘贴到另一个工作表中的另一个单元格中

时间:2018-09-06 08:37:00

标签: vba excel-vba

我知道如何编写公式,但不知道如何使公式从一张纸移到另一张纸

基本上,想法是用户在一张工作表中键入数据,然后他们从同一Excel的另一张工作表中获得公式的结果

1 个答案:

答案 0 :(得分:1)

假设公式=C6/C9放在单元格C10中。

如果要使用VBA,则可以将以下代码放在具有公式的工作表下,并指定要放入结果的工作表,如下所示:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet: Set ws = Sheets("Sheet2")
'declare and set the worksheet the data is to be copied into, amend the sheet name as required
If Target.Address = "$C$6" Or Target.Address = "$C$9" Then 'if anything changes in C6 or C9 in this sheet
    ws.Range("E5").Value = Target.Parent.Range("C10") 'copy the value from cell C10 in this sheet to Sheet2 in cell E5
End If
End Sub

您也可以在没有VBA的情况下执行此操作,您还可以在E2单元格的Sheet2中输入以下内容,并获得相同的结果: =Sheet1!C10

或者您甚至可以在Sheet2 E5中输入要计算为的实际公式:

=Sheet1!C6/Sheet1!C9