Question

excel中vba编程循环

在A1、B1、C1、D1、E1、F1单元格里输入一个值，J1的值为B1/A1，编一个循环语句，F1输入的值/E1的值=J1，如果不等于，则F1-0.0000001，然后（F1-0.0000001）/E1=J1，如果不等于，继续（F1-0.0000001-0.0000001）/E1=J1，直到等于数值时，跳出循环，使H1=计算出来的那个值，请高手指教？

Answer 1

你这么说的话，根本就跟C1,D1单元格没啥关系

也就是求一个未知数而已

F1为可变数

B1/A1=F1/E1

那么F1=B1/A1*E1

就是这么一个结果，用不着循环

追问

没有看明白，怎么实现的，请具体详细的赐教。谢谢

追答

http://yunpan.cn/cKufNkPfLsPFe 提取码 1ed7
代码直接发不出来

Answer 2

说那么复杂干吗？其实就是方程求解n：(F1-n)/E1=B1/A1，经过方程变形：n=B1/A1*E1-F1
那么 H1=B1/A1*E1-F1

Answer 3

理论不难，只是你的描述，让人看不懂!

追问

就是F1里面输入的值除以E1等于J1的时候，返回一个值在H1；如果不等于，就F1-0.0000001后在进行计算，直到等于时，返回值到H1；E1是规定输入值；