[發問] 請先進們協助偵錯

mnsmrtl

1. Sub Pattern(Rng As Range, xCode, xDate As Range)
   
2.     Dim H As Range, L As Range, C As Range, rh As Range, rl As Range
   
3.     Dim Tf1 As Boolean, Tf2 As Boolean
   
4.     Dim i, j, k, th, tl, sw
   
5.     i = 0: j = 0: k = 0
   
6.     th = 0: tl = 0: sw = 0
   
7.     Do While i < 8 '取6個點
   
8.         Set H = grabData("高", xCode, xDate).Offset(0, j)
   
9.         Set L = grabData("低", xCode, xDate).Offset(0, j)
   
10.         Set C = grabData("收", xCode, xDate).Offset(0, j)
    
11.         If j > 300 Then Exit Do '限制資料庫範圍
    
12.         If C <> "" Then
    
13.             k = k + 1 '計數
    
14.             If k = 1 Then GoSub RefreshHL
    
15.             Tf1 = sw >= 0 And C < tl * 0.9
    
16.             Tf2 = sw <= 0 And C > th * 1.1
    
17.             If Tf1 Or Tf2 Then
    
18.                 GoSub MoveAndSwitch
    
19.                 GoSub WriteDataIn
    
20.                 GoSub RefreshHL
    
21.             Else
    
22.                 Set rh = IIf(H > rh, H, rh)
    
23.                 Set rl = IIf(L < rl, L, rl)
    
24.                 th = IIf(H < th, H, th)
    
25.                 tl = IIf(L > tl, L, tl)
    
26.                 GoSub WriteDataIn
    
27.             End If
    
28.         End If        
    
29.         Debug.Print sw & "_" & j & "_" & k & "_" & i
    
30.         j = j + 1
    
31.     Loop
    
32. Exit Sub

複製代碼

在do while迴圈內，debug.print的結果，j都是從102開始，不知道是哪裡錯了
請大家幫忙看看
謝謝大家

a5007185

建議你先用「監看式」追蹤，
因為你程式裡面還有其他程序參雜其中，
我把其他程序拿掉後並沒有發現異狀。

mnsmrtl

1. Sub Ac抓警示()
   
2.     Call GetAlarm(1)
   
3. End Sub
   
4. 
   
5. Sub GetAlarm(Nd)
   
6.     Dim xRow%, xCode, xDate As Range, i, j, writeIn As Range
   
7.     Call A關閉
   
8.     xRow = Sheets("基本").[A1].End(xlDown).Row
   
9.     For i = 2 To xRow
   
10.         With Sheets("基本")
    
11.             xCode = .Cells(i, "A")
    
12.             Set writeIn = .Range(.Cells(i, "C"), .Cells(i, "T")) '型態高低    寫入資料範圍
    
13.         End With
    
14.         Set xDate = Sheets("收").Cells(1, 3).Offset(0, Nd - 1) '根據參數修改起始天數
    
15.         Call Pattern(writeIn, xCode, xDate)
    
16.     Next i
    
17.     Call A開啟
    
18. End Sub
    
19. 
    
20. Function grabData(Sht$, xCode, xDate As Range) '從資料庫抓取數據
    
21.     Dim matC, matD
    
22.     With Sheets(Sht)
    
23.         matC = WorksheetFunction.Match(xCode, .Columns(1), 0)
    
24.         matD = WorksheetFunction.Match(xDate, .Rows(1), 0)
    
25.         Set grabData = .Cells(matC, matD)
    
26.     End With
    
27. End Function
    
28. 
    
29. Function fbdate(Rng As Range) '按儲存格找「日期」
    
30.     Set fbdate = Sheets(Rng.Worksheet.Name).Cells(1, Rng.Column)
    
31. End Function
    
32. 
    
33. Sub Pattern(Rng As Range, xCode, xDate As Range)
    
34.     Dim H As Range, L As Range, C As Range, rh As Range, rl As Range
    
35.     Dim Tf1 As Boolean, Tf2 As Boolean
    
36.     Dim i, j, k, th, tl, sw
    
37.     Rng.ClearContents
    
38.     i = 0: j = 0: k = 0
    
39.     th = 0: tl = 0: sw = 0
    
40.     Do While i < 8 '取6個點
    
41.         Set H = grabData("高", xCode, xDate).Offset(0, j)
    
42.         Set L = grabData("低", xCode, xDate).Offset(0, j)
    
43.         Set C = grabData("收", xCode, xDate).Offset(0, j)
    
44.         If j > 300 Then Exit Do '限制資料庫範圍
    
45.         If C <> "" Then
    
46.             k = k + 1 '計數
    
47.             If k = 1 Then GoSub RefreshHL
    
48.             Tf1 = sw >= 0 And C < tl * 0.9
    
49.             Tf2 = sw <= 0 And C > th * 1.1
    
50.             If Tf1 Or Tf2 Then
    
51.                 GoSub MoveAndSwitch
    
52.                 GoSub WriteDataIn
    
53.                 GoSub RefreshHL
    
54.             Else
    
55.                 Set rh = IIf(H > rh, H, rh)
    
56.                 Set rl = IIf(L < rl, L, rl)
    
57.                 th = IIf(H < th, H, th)
    
58.                 tl = IIf(L > tl, L, tl)
    
59.                 GoSub WriteDataIn
    
60.             End If
    
61.         End If
    
62.         Debug.Print H.Column
    
63.         j = j + 1
    
64.     Loop
    
65. Exit Sub
    
66. MoveAndSwitch:
    
67.     i = i + 1
    
68.     sw = IIf(sw >= 0, -1, 1)
    
69.     Return
    
70. WriteDataIn:
    
71.     If i < 7 And i > 0 Then
    
72.         Rng(i) = IIf(sw = 1, rh, rl)
    
73.         Rng(i + 6) = fbdate(IIf(sw = 1, rh, rl))
    
74.         Rng(i + 12) = k
    
75.     End If
    
76.     Return
    
77. RefreshHL:
    
78.     Set rh = H
    
79.     Set rl = L
    
80.     th = H
    
81.     tl = L
    
82.     Return
    
83. End Sub

複製代碼

因為檔案壓縮後也是超過1MB，所以我把有用到的程式碼集中放一起再貼一次
對於變數J，在其他程序沒有做什麼動作
檔案內，是各股票的每日開盤四價及成交量
如圖

下載 (74.02 KB)

2018-9-3 15:33

監看式的部分，我要再查一下資料，看怎麼用…謝謝樓上指點

上傳到MEGA空間了，大約15M，網址如下
https://mega.nz/#!uTZkGI4K!XtnUzYtIyzsHBFPNF4hGrcroUtzdO8UthkdFSorPVxk

a5007185

回復 3# mnsmrtl

監看式的方式如下圖，

下載 (66.36 KB)

2018-9-3 16:28

但我測試下來並沒有發現任何異狀，
我無法重現你的問題。

下載 (24.29 KB)

2018-9-3 16:28

mnsmrtl

不知道哪出了問題，我版本是2007，不知道跟這有沒有關係

下載 (56.38 KB)

2018-9-3 16:54

a5007185

回復 5# mnsmrtl

監看是針對變數做監看，
所以如果你想要監看你圖中的訊息的話，
你需要把Debug.Print 去掉

mnsmrtl

回復 6# a5007185

經修改後，我發現程式有執行，但是debug.Print未顯示
不知道是哪出了問題，謝謝樓上指導

a5007185

回復 7# mnsmrtl


原程式碼不需要更動，
我的意思是說你在進行監看的時候，
需要把Debug.Print去掉。

下載 (202.66 KB)

2018-9-4 14:16

mnsmrtl

回復 8# a5007185

哇哦，還讓您做影片，真不好意思
監看式問題已解決，不過在即時運算視窗內，依然只顯示102之後
但寫入儲存格的部分，確實有100以內的
可能是顯示問題，或是記憶體不足吧…？

網路上的文章是有提過，有可能因為值不存在，所以沒顯示出來
或許是其中一個變數到102之後才有？

總之，比對儲存格的內容之後，我發現程序的邏輯也不太對，所以整個都修改了
目前已沒有問題，謝謝您的幫助，感恩

a5007185

回復 9# mnsmrtl

我想你程式應該都是正常運作的，
只不過因為「即時運算」容納不了這麼多資料，
所以把一部分資料吃掉了。

下載 (54.92 KB)

2018-9-5 15:32

我寫了簡易的迴圈，
讓他吐出250行資料，
拉到頂只剩下52行，
我的推測是「即時運算」最多能夠容納200行資料，
剛剛的測試當中加上底下空白2行，恰好就是200行，
以上給你做個參考。

另外建議你可以利用F8的功能逐步執行程式在搭配「監看式」，
這樣你就可以了解整個程式每個變數的運作了。
希望以上可以幫助到你。