返回列表 上一主題 發帖

[發問] 迴圈

bowwow1975

帖子
38 
主題
14 
精華
0 
積分
66 
點名
0  
作業系統
Win7 
軟體版本
Excel2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-16 
最後登錄
2013-9-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-31 10:21 | 顯示全部帖子

[發問] 迴圈

請教各位大大~~

我現在有一個值要跟另一個值比較，
假設 A 值輸入之後，會產出 B 值~~~
但是最終結果 A 要相近於 B，也就是迴圈計算~~

但是我好像不能用
  1.   With Sheet8
  2.   If .Range("r21").Value < .Range("x21").Value Then
  3.   .Range("r21").Value + 1
  4.   End If
  5. End With
複製代碼
那個加號好像不允許~~~那我還有其他方法嗎？

感謝大大們！
收藏 分享

bowwow1975

帖子
38 
主題
14 
精華
0 
積分
66 
點名
0  
作業系統
Win7 
軟體版本
Excel2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-16 
最後登錄
2013-9-3 
2#
發表於 2013-1-31 10:52 | 顯示全部帖子
好像試出來了
  1.   With Sheet8
  2.   Do While .Range("r21") < .Range("x21")
  3.   .Range("r21") = .Range("r21") + 1
  4.   Loop
  5.   
複製代碼
但是運算好慢~~~

TOP

bowwow1975

帖子
38 
主題
14 
精華
0 
積分
66 
點名
0  
作業系統
Win7 
軟體版本
Excel2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-16 
最後登錄
2013-9-3 
3#
發表於 2013-1-31 14:35 | 顯示全部帖子
回復 5# freeffly

果然算很快，但是值超出太多了~~

一般一開始的時候 r1 =65000, x1 =100000
最後負迴授後兩者都會會平穩在 93300 左右！

但是你的方法 r1 超出了 100000，來到 11185，x1 則是 86295..........

雖然我不太懂你的程式，但我想可能需要改一些值微調~~~~
可是，我不會調................

TOP

bowwow1975

帖子
38 
主題
14 
精華
0 
積分
66 
點名
0  
作業系統
Win7 
軟體版本
Excel2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-16 
最後登錄
2013-9-3 
4#
發表於 2013-1-31 14:45 | 顯示全部帖子
回復 6# bowwow1975
  1.   If .Range("r21") < .Range("x21") Then
  2.         .Range("r21") = .Range("r21") + Application.RoundUp((.Range("x21") - .Range("r21")) / 1.6538, 0)
  3.     End If
複製代碼
改為這樣就比較好了~~~~但是，除以 1.6538 的值就會有點 case by case！

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題