[發問] 求救有關nested loop

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

求幫忙看看
第一個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同時滿足條件

謝謝

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

4^#

發表於 2016-5-7 23:36 | 只看該作者

回復 1# drgv11
手動輸入 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(2,1) 為正數,
且 Cells(4,1)-Cells(3,1) >0.0005 則
第1個迴圈將成為無限迴圈.

證明 :
設 Cells(1,1)=A , Cells(2,1)=B 且  Cells(4,1)-Cells(3,1) >0.0005
則
Cells(3,1)=A*4-1
Cells(4,1)=B/6
Cells(4,1)-Cells(3,1)
=B/6-(A*4-1)
=B/6-4A+1 > 0.0005
依程式下一輪 cells(2,1)=B+0.0001
Cells(4,1)-Cells(3,1)
=(B+0.0001)/6+4A+1 > B/6-4A+1 => 只會越來越大
所以 Cells(4,1)-Cells(3,1) <= 0.0005 永遠不會成立.
得證.

註 : 我不是數學家, 證明步驟非正規, 請見諒.

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

3^#

發表於 2016-5-7 14:45 | 只看該作者

直接求解就可以了
非要用回圈嗎 ?

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

2^#

發表於 2016-5-7 13:41 | 只看該作者

回復 1# drgv11

Sub test()
Do
[a1] = InputBox(1) 'assume [a1]
[a2] = InputBox(1) 'assume [a2]
Do
      Cells(2, 1) = Cells(2, 1) + 0.0001    'ReAssume [a2]
      Cells(3, 1) = Cells(1, 1) * 4 - 1    'calculate [a3]
      Cells(4, 1) = Cells(2, 1) / 6          'calculate [a4]
      [a5] = Abs(Cells(4, 1) - Cells(3, 1)) '可觀察計算過程
      '如果[a5]愈來愈大,則不可能跳出迴圈, 請按 ESC, 重設[a1],[a2]的值,
      '或 [a3],[a4]計算公式
Loop Until [a5] <= 0.0005
'若直接寫成 Loop Until Abs(Cells(4, 1) - Cells(3, 1)) <= 0.0005
'則無法觀察計算過程
Cells(5, 1) = Cells(3, 1) - 2
Cells(6, 1) = Cells(4, 1) / 3
'
[a7] = Abs(Cells(5, 1) - Cells(6, 1)) <= 0.0005 '可觀察計算結果
'此處 Abs(Cells(7, 1) - Cells(6, 1)) <= 0.0005 應是樓主Cells(5, 1)筆誤?
Loop Until [a7] <= 0.0005
End Sub

TOP