bowwow1975

中學生 Rank: 2

帖子: 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，也就是迴圈計算~~

但是我好像不能用

With Sheet8
If .Range("r21").Value < .Range("x21").Value Then
.Range("r21").Value + 1
End If
End With

複製代碼

那個加號好像不允許~~~那我還有其他方法嗎？

感謝大大們！

樓主熱帖

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

9^#

發表於 2013-2-1 10:21 | 只看該作者

回復 6# bowwow1975

我是依你一開始發問的去弄的
不過看你後面改的就不知道你要的是什麼了
同樣由A走到B
可以走直線是最好的
可以用跳一步就到更好

字典兩各字還真難理解

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

8^#

發表於 2013-2-1 09:27 | 只看該作者

回復 6# bowwow1975
你應該把你回授相關的式子列出來
就是r1 , x1 是怎麼到 93300 的

TOP

bowwow1975

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 66
點名: 0
作業系統: Win7
軟體版本: Excel2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-16
最後登錄: 2013-9-3

7^#

發表於 2013-1-31 14:45 | 只看該作者

回復 6# bowwow1975

If .Range("r21") < .Range("x21") Then
.Range("r21") = .Range("r21") + Application.RoundUp((.Range("x21") - .Range("r21")) / 1.6538, 0)
End If

複製代碼

改為這樣就比較好了~~~~但是，除以 1.6538 的值就會有點 case by case！

TOP

bowwow1975

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 66
點名: 0
作業系統: Win7
軟體版本: Excel2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-16
最後登錄: 2013-9-3

6^#

發表於 2013-1-31 14:35 | 只看該作者

回復 5# freeffly

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

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

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

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

TOP

freeffly