返回列表 上一主題 發帖

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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 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
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 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

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
返回列表 上一主題