希望各位大咖可以帮我，单元格里写运算方程式VBA自动按要求运算

pepelolo

最近比较迷这一块，但是以自己的能力实在不知道如何实现此功能。希望各位大佬可以帮助我

栗子.rar (10 KB, 下载次数: 14)

2018-9-10 15:08 上传

点击文件名下载附件
附件文档

pepelolo

实现的功能类似于 一些财务软件自定义运算的功能。用VBA我想了很久都想不出来解决办法

zopey

Sub 按钮1_Click()
Dim arr, k0
k0 = [a1].End(4).Row - 1
arr = [a2].Resize(k0, 3)

Dim brr()
ReDim brr(1 To k0, 1 To 1)

str0 = [h1]
For i = 1 To k0
   A = arr(i, 1)
   B = arr(i, 2)
   C = arr(i, 3)
   
   str2 = Replace(str0, "A", arr(i, 1))
   str2 = Replace(str2, "B", arr(i, 2))
   str2 = Replace(str2, "C", arr(i, 3))
   brr(i, 1) = Evaluate(str2)
Next

[J2].Resize(k0, 1) = brr
End Sub

zopey

见附件，先将公式的变量A、B、C 替换为具体的数值，再行计算。

例子2.zip (15.73 KB, 下载次数: 12)

2018-9-10 17:46 上传

点击文件名下载附件

pepelolo

zopey 发表于 2018-9-10 17:48
见附件，先将公式的变量A、B、C 替换为具体的数值，再行计算。

强悍呀，大佬，简单明了。Evaluate这个函数要好好学学了。没想到这么棒，第一次听说。非常感谢，非常感谢