Board logo

標題: 副程式/if判斷不到/請求解惑 [打印本頁]
作者: 最高機密    時間: 2013-10-20 16:15     標題: 副程式/if判斷不到/請求解惑

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

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

回復 1# 最高機密
很煩人的雲端下載須點廣告,但一直點廣告,就是不可下載,討論區裡可將檔案用壓縮檔上傳
副程式中找不到X,Y的變數,須於主程式式的模組中的頂端 PUBLIC X,Y 設為公用變數
  1. IF 主程式模組.X > CELLS(A,1) OR CELLS(A,1)<=主程式模組.Y
複製代碼
作者: 最高機密    時間: 2013-10-20 18:50

回復 2# GBKEE

謝謝你的指點
我加了你那段後，他說要設定物件?是要再加哪些程式碼嗎?
作者: c_c_lai    時間: 2013-10-20 19:15

回復 3# 最高機密
  1. Public X, Y

  3. Sub trend()
  4.     X = InputBox("輸入第一天")
  5.     Y = InputBox("輸入最後一天")
  6.     For a = 2 To 486
  7.         If X > Cells(a, 1) And Cells(a, 1) <= Y Then
  8.             Call aa(a)
  9.         End If
  10.     Next a
  11. End Sub
複製代碼
作者: 最高機密    時間: 2013-10-20 19:20

回復 4# c_c_lai

感謝你的協助
我試過了，還是一樣跑出全部:'(
他沒有判斷到@@
作者: luhpro    時間: 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
複製代碼
[attach]16398[/attach]
作者: 最高機密    時間: 2013-10-20 23:43

回復 6# luhpro


    OK 我嘗試看看 謝謝你
作者: 最高機密    時間: 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
作者: c_c_lai    時間: 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
複製代碼
作者: 最高機密    時間: 2013-10-21 13:12

回復 9# c_c_lai
太感謝你了:victory: 成功了~
作者: 最高機密    時間: 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比後就有點模糊了..
作者: c_c_lai    時間: 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]
複製代碼
撥雲見日了嗎？
作者: 最高機密    時間: 2013-10-22 11:58

回復 12# c_c_lai


    我懂了 非常感謝你



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)