返回列表 上一主題 發帖

[發問] 迴圈

freeffly

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

熱烈參與勳章好學求知勳章
1# 跳轉到 »
發表於 2013-1-31 11:26 | 顯示全部帖子
回復 2# bowwow1975


    從代碼看改這樣會不會比較快
   A<B+1 則為B-1 否則為A
    跳過中間的慢慢+1
字典兩各字 還真難理解

TOP

freeffly

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

熱烈參與勳章好學求知勳章
2#
發表於 2013-1-31 11:32 | 顯示全部帖子
回復  bowwow1975


    從代碼看改這樣會不會比較快
   A
freeffly 發表於 2013-1-31 11:26



    剛剛想了想這樣與你的答案有差距
   不過從這各方向應該會很接近你要的
   就是跳過慢慢+1的方式
   現在正再撈系統資料等一下再幫你試
   給你一個方向
   B跟A的差距取整數直接加應該就比你迴圈快
字典兩各字 還真難理解

TOP

freeffly

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

熱烈參與勳章好學求知勳章
3#
發表於 2013-1-31 11:50 | 顯示全部帖子
回復 2# bowwow1975
你要的結果是這樣嗎
這樣應該就不會很久
  1. Sub EE()
  2.     If [r1] < [x1] Then
  3.         [r1] = [r1] + Application.RoundUp([x1] - [r1], 0)
  4.     End If



  8. End Sub
複製代碼
字典兩各字 還真難理解

TOP

freeffly

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

熱烈參與勳章好學求知勳章
4#
發表於 2013-2-1 10:21 | 顯示全部帖子
回復 6# bowwow1975


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

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題