如何编写vba函数来实现单变量求解？

Range("I29").GoalSeek Goal:=33, ChangingCell:=Range("I6")

Range("I29").GoalSeek—搭野—目标单知核喊元格

Goal:=33——氏差目标值

ChangingCell:=Range("I6")——可变单元格

我看LZ你自身也挺有研究喊橡手精神的，不如我发个网址给你，我估计你花如裤半小时就能明白，其实VBA入门很简单郑嫌。

http://xiaozu.renren.com/xiaozu/214788/356883696

---