- 帖子
- 6
- 主題
- 3
- 精華
- 0
- 積分
- 9
- 點名
- 0
- 作業系統
- window
- 軟體版本
- 7
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2015-11-29
- 最後登錄
- 2016-5-7
|
想寫一個計數的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同時滿足條件
謝謝 |
|
發表於 2016-5-7 09:45
| 
