一個關於VBA自動即時繪製股票圖的問題

twispin

我的活頁簿有兩個工作表，一個是美元指數、另一個是台指期
"美元指數"工作表的model如下，"台指期"的內容一模一樣，只是把"美元指數"換成"台指期"
兩個工作表都是每隔十秒去記錄數據，然後把數據畫成圖
基本上記錄數據和畫圖都沒有問題
但很奇怪的是，我"同時啟動"兩個工作表的巨集時，為的是兩個工作表同時記錄各自的數據、畫各自的圖
可是我的畫面停在"美元指數"工作表他會正常運作，在這個同時"台指期"工作表的巨集卻暫停記錄數據和畫圖
那麼如果畫面停在"台指期"，他會開始正常運作，可是"美元指數"卻暫停運作了
總之只有我畫面上的工作表會正常運作，另一個就會暫停
而運作的這個也有點怪，程式中明明是10秒紀錄一次，會變成5秒就紀錄一次!!
除非我一次只執行一個工作表的巨集才會正常...
請問是哪裡出了問題?謝謝!

1. Dim Total_Num As Integer
   
2. 
   
3. Private Sub Workbook_Open()
   
4. 
   
5.     Total_Num = 0     '設定初值
   
6.     Sheets("美元指數").Select   '設定一開啟要使用的工作表名稱
   
7.     Range("L14").Select         '設定一開始的儲存格位置
   
8.     Call 紀錄美元指數設定
   
9.    
   
10.     End Sub
    
11.     Private Sub 紀錄美元指數設定()
    
12.   Total_Num = Total_Num + 1 '每執行一次就+1
    
13.   If Total_Num <= 18000 Then   
    
14.     Application.OnTime Now + TimeValue("00:00:10"), "紀錄美元指數"  '每10秒紀錄一次
    
15.   End If
    
16.   End Sub
    
17. 
    
18. Sub 紀錄美元指數()
    
19. '
    
20. ' 紀錄1 Macro
    
21. ' iamtwispin 在 2015/4/11 錄製的巨集
    
22. '
    
23. ' 快速鍵: Ctrl+o
    
24.     'Real
    
25.      x = 24 '內盤
    
26.      While Cells(x, 2).Value <> ""
    
27.          x = x + 1
    
28.      Wend
    
29.      Cells(x, 2).Value = Cells(23, 2).Value
    
30.      
    
31.      x = 24 '外盤
    
32.      While Cells(x, 3).Value <> ""
    
33.          x = x + 1
    
34.      Wend
    
35.      Cells(x, 3).Value = Cells(23, 3).Value
    
36.      
    
37.    
    
38.     Call 紀錄美元指數設定
    
39. 
    
40. 
    
41. End Sub

複製代碼

twispin

不過如果切換到另一個活頁簿的話
會出現錯誤訊息
於是我又把workbooks("XX.xls")加進去
讓它更精準的定位
就可以囉~

twispin

可以了~
感謝GB大

GBKEE

回復 1# twispin
試試看

1. Sub 紀錄美元指數()
   
2.     Dim x As Integer
   
3.      With Sheets("美元指數") '不管畫面(ActiveSheet [作用中的工作表])在哪裡
   
4.         x = 24 '內盤
   
5.         While .Cells(x, 2).Value <> ""
   
6.             x = x + 1
   
7.         Wend
   
8.         .Cells(x, 2).Value = .Cells(23, 2).Value
   
9.         x = 24 '外盤
   
10.         While .Cells(x, 3).Value <> ""
    
11.             x = x + 1
    
12.         Wend
    
13.         .Cells(x, 3).Value = .Cells(23, 3).Value
    
14.      End With
    
15.     Call 紀錄美元指數設定
    
16. End Sub

複製代碼