[發問] 求救 有關nested loop

drgv11

想寫一個計數的VBA
情況是這樣的

下載 (12.94 KB)

2016-5-7 09:23

求幫忙看看
第一個loop 寫了是這樣
一開cells(1,1) 及 cells(2,1)是不知多少的
我先假設是某一數值 (下面的算式是隨便寫的 是不正確的)


Cells(3,1)=cells(1,1)*4-1
Cells(4,1)=cells(2,1)/6
do until Abs(Cells(4,1)-Cells(3,1)) <=0.0005
if Cells(4,1)-Cells(3,1) >0.0005 then cells(2,1)=cells(2,1)+0.0001
cells(3,1)=Cells(1,1)*4-1
Cells(4,1)=Cells(2,1)/6
loop
Cells(5,1)=cells(3,1)-2
Cells(6,1)=cells(4,1)/3
之後想寫 如果do until Abs(Cells(7,1)-Cells(6,1)) <=0.0005 如果不是的話 cells(1,1) 會再加0.00001
這時cells(2,1)已不一開始自己assume 的數值 它會再由0開始試 試到Abs(Cells(4,1)-Cells(3,1)) <=0.0005

應該如果寫
(抱歉 說得不是很白明
總之情況是如上圖所示)
簡易一點的話應該是  內面的loop如果滿足條件的話 會去外面的loop
直到2個loop同時滿足條件

謝謝