如何重新计算VBA用户表单中文本框中的值？

Question

我正在创建示例文本框A，B，C，D和E.

C = A + B

D = A / C

E = B / C

当我手动更改D和E中的值时，有没有办法可以获得A和B中的更改值？

提前致谢。

Answer 1

在您的用户表单中添加以下代码：

Private Sub D_Change()
   On error resume next
   A = cdbl(D)*cdbl(C)
   B = cdbl(E)*cdbl(C)
end sub

Private Sub E_Change()
   on error resume next
   A = cdbl(D)*cdbl(C)
   B = cdbl(E)*cdbl(C)
end sub