萌新提问

我如朝露降人间

萌新提问： 请问大佬们这为什么运行一直转圈圈，是写错了还是自己脑回路有问题呀 谢谢

webber04

    For i = 1 To n
       Do
       i = 1
       Loop Until 0.68 <= (Sheets(1).Cells(i, 1).Value - Sheets(1).Cells(i, 2).Value) / Sheets(1).Cells(i, 2).Value * 100 <= 0.74
  Next i

这句语句是个死循环，不知道楼主想要达到什么目的，代码可以修改一下

我如朝露降人间

webber04 发表于 2022-5-11 09:54
For i = 1 To n
       Do
       i = 1

一开始写的i = i+1,然后运行的时候就崩溃了 想着是不是计算量太大了 就改成了 i=1
不好意思  萌新不太懂 让大佬见笑了

我如朝露降人间

webber04 发表于 2022-5-11 09:54
For i = 1 To n
       Do
       i = 1

是要让CD两列生成在0.68-0.74 b列在530-599 因为ab两列单位是克是不能带小数，所以第一张表的反推公式不符合要求..麻烦大佬了

webber04

我如朝露降人间 发表于 2022-5-11 10:43
是要让CD两列生成在0.68-0.74 b列在530-599 因为ab两列单位是克是不能带小数，所以第一张表的反推公式不 ...

C列用公式=RANDBETWEEN(0.68,0.74)不行吗？

我如朝露降人间

webber04 发表于 2022-5-11 10:59
C列用公式=RANDBETWEEN(0.68,0.74)不行吗？

第一个工作表就是这样的  比如C列随机生产了7.24   B列560，公式计算的A列是600.544 但AB两列只能是整数，如果四舍五入601  C就会变 而且跳动会很大 变成7.32

webber04

我如朝露降人间 发表于 2022-5-11 11:05
第一个工作表就是这样的  比如C列随机生产了7.24   B列560，公式计算的A列是600.544 但AB两列只能是整数 ...

还是没理解楼主意思，楼主能否把需求再完整的说明一下，就是每列的要求是什么，最终的需求是什么

我如朝露降人间

webber04 发表于 2022-5-11 11:17
还是没理解楼主意思，楼主能否把需求再完整的说明一下，就是每列的要求是什么，最终的需求是什么

谢谢您 已解决 不好意思 现在才回复