如何设置宏，计算多列数据对应的比值！

PhantomFox · 发表于 2019-12-19 11:09

本帖最后由 PhantomFox 于 2019-12-19 11:11 编辑

如图，先有左边8行数据a、b，c值及c/a比值的计算公式如右侧。
希望点击计算后，左列数据依次带入到右边的公式内，每次计算完，返回对应的C和C/a比值，如遇左列数据空值，则不计算。烦请高手指点。

白冰930 · 发表于 2019-12-19 11:27

示例（1）.zip (16.7 KB, 下载次数: 5)
是这样的效果吗？

iwangyi · 发表于 2019-12-19 13:24

Sub CC()
N = [A65536].End(xlUp).Row
For I = 3 To N
If Cells(I, "B") = "" Then Exit For
Cells(I, "D") = 2 * Cells(I, "B") - 0.1 * Cells(I, "C")
Cells(I, "E") = Cells(I, "D") / Cells(I, "B")
Next
End Sub

iwangyi · 发表于 2019-12-19 13:26

附件参考****

PhantomFox · 发表于 2019-12-19 21:37

白冰930 发表于 2019-12-19 11:27
是这样的效果吗？

大概是这个意思，但是希望能在此基础上改进下，以满足需求：
1、每次点击计算时，把原来的数据清除，然后重新填充计算。
2、其实不是在VBA里面计算，实际过程是要先把第1行的a、b值填入到右面的计算栏中，让后面的表格自己算出来C和C/a值后，把这个值再copy到对应的左边数据的计算结果中。然后依次类推。
不知道这样能不能实现。

PhantomFox · 发表于 2019-12-19 21:44

iwangyi 发表于 2019-12-19 13:26
附件参考****

大概是这个意思，但是希望能在此基础上改进下，以满足需求：
1、每次点击计算时，把原来的数据清除，然后重新填充计算。
2、其实不是在VBA里面计算，实际过程是要先把第1行的a、b值填入到右面的计算栏中，让后面的表格自己算出来C和C/a值后，把这个值再copy到对应的左边数据的计算结果中。然后依次类推。
不知道这样能不能实现。

白冰930 · 发表于 2019-12-20 13:54

PhantomFox 发表于 2019-12-19 21:37
大概是这个意思，但是希望能在此基础上改进下，以满足需求：
1、每次点击计算时，把原来的数据清除，然 ...

这样有什么实际用途吗？没太明白你的意思

		自动登录	找回密码
密码			免费注册

[求助] 如何设置宏，计算多列数据对应的比值！

评分

评分

最新热点 /1