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

收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2013-10-20 17:05 | 只看該作者
回復 1# 最高機密
很煩人的雲端下載須點廣告,但一直點廣告,就是不可下載,討論區裡可將檔案用壓縮檔上傳
副程式中找不到X,Y的變數,須於主程式式的模組中的頂端 PUBLIC X,Y 設為公用變數
  1. IF 主程式模組.X > CELLS(A,1) OR CELLS(A,1)<=主程式模組.Y
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

最高機密

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

謝謝你的指點
我加了你那段後，他說要設定物件?是要再加哪些程式碼嗎?

專題範本0917 (改).rar (41.46 KB)

TOP

c_c_lai

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

最高機密

帖子
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

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 
7#
發表於 2013-10-20 23:43 | 只看該作者
回復 6# luhpro


    OK 我嘗試看看 謝謝你

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

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 
10#
發表於 2013-10-21 13:12 | 只看該作者
回復 9# c_c_lai
太感謝你了:victory: 成功了~
你好喔

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
12
返回列表 上一主題