excel 能套用公式吗

来源：百度知道 编辑：UC知道 时间：2024/05/23 17:41:59
比如说有这么一条式子 X=A+B+C
XABC各对应一个格子，现任意输入其中三个，系统自动算出另外一个
可以吗？
如何实现，vba代码是什么？

当然可以了，最基本的VBA功能

'在表中设一个方框,并指定此宏,便于点击运行
'设"Sheet1"的A1,B1,C1,D1为ABCX
Sub 四变量计算()
Set A = ThisWorkbook.Sheets("Sheet1").Range("A1")
Set B = ThisWorkbook.Sheets("Sheet1").Range("B1")
Set C = ThisWorkbook.Sheets("Sheet1").Range("C1")
Set X = ThisWorkbook.Sheets("Sheet1").Range("D1")
On Error GoTo Err
If A = "" And B <> "" And C <> "" And X <> "" Then
A.Value = X - C - B
ElseIf A <> "" And B = "" And C <> "" And X <> "" Then
B.Value = X - C - A
ElseIf A <> "" And B <> "" And C = "" And X <> "" Then
C.Value = X - A - B
ElseIf A <> "" And B <> "" And C <> "" And X = "" Then
X.Val