12
返回列表 上一主題 發帖

副程式/if判斷不到/請求解惑

最高機密

帖子
10 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
10 
性別
男 
來自
台中 
註冊時間
2013-5-14 
最後登錄
2014-4-8 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-10-20 16:15 | 只看該作者

副程式/if判斷不到/請求解惑

本帖最後由 GBKEE 於 2013-10-20 16:52 編輯

這是我的資料檔
http://cht.tw/h/nmaeu
當我跑程式時，不管我輸入什麼值，程式永遠跑for a=2 to 486
並不會跑我設定的if條件，我有試著用while跑但會當機(可能不能這樣吧)
不知道哪裡出錯了，改了很久還是改不出來。
麻煩大師們幫初學者我小弟解答，感激不進

問題.JPG (33.84 KB)

問題.JPG

收藏 分享

最高機密

帖子
10 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
10 
性別
男 
來自
台中 
註冊時間
2013-5-14 
最後登錄
2014-4-8 
13#
發表於 2013-10-22 11:58 | 只看該作者
回復 12# c_c_lai


    我懂了 非常感謝你
你好喔

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
12#
發表於 2013-10-22 06:02 | 只看該作者
本帖最後由 c_c_lai 於 2013-10-22 06:05 編輯

回復 11# 最高機密
看了以下分析便不會混亂了：
  1. 假設 x，y  你的輸入值分別為 20040116，20040206

  3. x                          = "20040116"  (輸入值)
  4. y                          = "20040206"  (輸入值)
  5.                   [A2]
  6. Cells(a, 1)                = 20040109
  7. StrComp(Cells(a, 1), x, 1) = -1        '  [A2] < x
  8. StrComp(y, Cells(a, 1), 1) = 1         '  y > [A2]
  9.                   [A3]     (條件符合 - 成立)
  10. Cells(a, 1)                = 20040116
  11. StrComp(Cells(a, 1), x, 1) = 0         '  [A3] = x
  12. StrComp(y, Cells(a, 1), 1) = 1         '  y > [A3]
  13.                   [A4]     (條件符合 - 成立)
  14. Cells(a, 1)                = 20040130
  15. StrComp(Cells(a, 1), x, 1) = 1         '  [A4] > x
  16. StrComp(y, Cells(a, 1), 1) = 1         '  y > [A4]
  17.                   [A5]     (條件符合 - 成立)
  18. Cells(a, 1)                = 20040206
  19. StrComp(Cells(a, 1), x, 1) = 1         '  [A5] > x
  20. StrComp(y, Cells(a, 1), 1) = 0         '  y = [A5]
  21.                   [A6]
  22. Cells(a, 1)                = 20040213
  23. StrComp(Cells(a, 1), x, 1) = 1         '  [A6] > x
  24. StrComp(y, Cells(a, 1), 1) = -1        '  y < [A6]
  25.                   [A7]
  26. Cells(a, 1)                = 20040220
  27. StrComp(Cells(a, 1), x, 1) = 1         '  [A7] > x
  28. StrComp(y, Cells(a, 1), 1) = -1        '  y < [A7]
複製代碼
撥雲見日了嗎？

TOP

最高機密

帖子
10 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
10 
性別
男 
來自
台中 
註冊時間
2013-5-14 
最後登錄
2014-4-8 
11#
發表於 2013-10-21 22:21 | 只看該作者
回復 9# c_c_lai

If StrComp(Cells(a, 1), x, 1) >= 0 And StrComp(y, Cells(a, 1), 1) >= 0
我剛查了一下StrComp函式用來比較字串，且若第一個參數小於、等於或大於第二個參數時，依序回傳-1、0或1
StrComp(Cells(a, 1), x, 1) >= 0 這是怎麼判斷的 請教一下.
Cells(a, 1)和 x比後就有點模糊了..
你好喔

TOP

最高機密

帖子
10 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
10 
性別
男 
來自
台中 
註冊時間
2013-5-14 
最後登錄
2014-4-8 
10#
發表於 2013-10-21 13:12 | 只看該作者
回復 9# c_c_lai
太感謝你了:victory: 成功了~
你好喔

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
9#
發表於 2013-10-21 08:15 | 只看該作者
回復  luhpro

我嘗試了一下，我值隨便輸入，一樣會測試全部 似乎沒有判斷到IF
   
Public x, y
Sub ...
最高機密 發表於 2013-10-21 01:38

終於了解你指的問題在哪裡，字串比較最好使用 StrComp() 涵示較宜。
我將 If 的判斷移至入口處，不然每一次迴圈都要無端演練 24 次 (For b = 9 To 32)，
請全部貼至 Module1 或 原本之表單內 (可以將 Module1 內的 Public x,y 移除)
程式段我都已將它對位好了，以方便偵錯與閱覽。
  1. Public x, y

  3. Sub trend()
  4.     x = InputBox("輸入第一天")
  5.     y = InputBox("輸入最後一天")
  6.     If x = "" Or y = "" Then Exit Sub
  7.    
  8.     For a = 2 To 486
  9.         Call aa(a)
  10.     Next a
  11. End Sub

  13. Sub aa(ByVal a As Integer)
  14.     If StrComp(Cells(a, 1), x, 1) >= 0 And StrComp(y, Cells(a, 1), 1) >= 0 Then
  15.         For b = 9 To 32
  16.             If Cells(a, b) >= Cells(a - 1, b) Then
  17.                 Cells(a, b + 25) = Cells(a + 2, 2) - Cells(a + 1, 2)
  18.             Else
  19.                 Cells(a, b + 25) = Cells(a + 1, 2) - Cells(a + 2, 2)
  20.             End If
  21.             c = Cells(a, b + 25)
  22.             D = D + c
  23.             Cells(489, b + 25) = D
  24.             e = Cells(1, b + 25)
  25.             Cells(488, b + 25) = e
  26.         Next
  27.         c = 0
  28.         Cells(1, b + 25) = Cells(1, b)
  29.     End If
  30. End Sub
複製代碼

TOP

最高機密

帖子
10 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
10 
性別
男 
來自
台中 
註冊時間
2013-5-14 
最後登錄
2014-4-8 
8#
發表於 2013-10-21 01:38 | 只看該作者
回復 6# luhpro

我嘗試了一下，我值隨便輸入，一樣會測試全部 似乎沒有判斷到IF
   
Public x, y
Sub trend()
  x = InputBox("輸入第一天")
  y = InputBox("輸入最後一天")
  For a = 2 To 486
    Call aa(a)
  Next a
End Sub

Sub aa(ByVal a As Integer)
  For b = 9 To 32
    If x > Cells(a, 1) And Cells(a, 1) <= y Then
      If Cells(a, b) >= Cells(a - 1, b) Then
      Cells(a, b + 25) = Cells(a + 2, 2) - Cells(a + 1, 2)
      Else
      Cells(a, b + 25) = Cells(a + 1, 2) - Cells(a + 2, 2)
      End If
    End If
    c = Cells(a, b + 25)
    D = D + c
    Cells(489, b + 25) = D
    e = Cells(1, b + 25)
    Cells(488, b + 25) = e
  Next
  c = 0
  Cells(1, b + 25) = Cells(1, b)
End Sub

股票與關鍵字 1021.rar (41.54 KB)

你好喔

TOP

最高機密

帖子
10 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
10 
性別
男 
來自
台中 
註冊時間
2013-5-14 
最後登錄
2014-4-8 
7#
發表於 2013-10-20 23:43 | 只看該作者
回復 6# luhpro


    OK 我嘗試看看 謝謝你

TOP

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
6#
發表於 2013-10-20 21:12 | 只看該作者
本帖最後由 luhpro 於 2013-10-20 21:18 編輯

回復 5# 最高機密
你誤會了.

2# 所說 須於主程式式的模組中的頂端 PUBLIC X,Y 設為公用變數 意思是變數要在 Model 中以 Public 來定義:
以下程式放在 Model 模組中 :
  1. Public x, y
複製代碼
另你的 If x > Cells(a, 1) <= y Then 則要改為

If x > Cells(a, 1) And Cells(a, 1) <= y Then

底下以你 1# 的程式為例修改 :
  1. Sub trend()
  2.   x = InputBox("輸入第一天")
  3.   y = InputBox("輸入最後一天")
  4.   For a = 2 To 486
  5.     Call aa(a)
  6.   Next a
  7. End Sub

  9. Sub aa(ByVal a As Integer)
  10.   For b = 9 To 32
  11.     If x > Cells(a, 1) And Cells(a, 1) <= y Then
  12.       Cells(a, b + 25) = Cells(a + 2, 2) - Cells(a + 1, 2)
  13.     Else
  14.       Cells(a, b + 25) = Cells(a + 1, 2) - Cells(a + 2, 2)
  15.     End If
  16.     c = Cells(a, b + 25)
  17.     d = d + c
  18.     Cells(489, b + 25) = d
  19.     e = Cells(1, b + 25)
  20.     Cells(488, b + 25) = e
  21.   Next
  22.   c = 0
  23.   Cells(1, b + 25) = Cells(1, b)
  24. End Sub
複製代碼
專題範本0917 (改)-a.zip (45.87 KB)

TOP

最高機密

帖子
10 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
10 
性別
男 
來自
台中 
註冊時間
2013-5-14 
最後登錄
2014-4-8 
5#
發表於 2013-10-20 19:20 | 只看該作者
回復 4# c_c_lai

感謝你的協助
我試過了，還是一樣跑出全部:'(
他沒有判斷到@@

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
12
返回列表 上一主題