藍天麗池

回復 29# GBKEE

G大跟你請教一下，我有一個程式因為excel裡面的資料比較多，需要一直更新，但畫面會一直閃爍，我在網路上找了一下，說是要貼上下面的兩段程式碼，但我不確定貼在哪哩，請G大跟我說一下，感謝

Application.ScreenUpdating = False
Application.ScreenUpdating = True

我有幾段程式貼出來給G大看，在麻煩您跟我說一下，感謝

以下是sheet4

1. Private Sub CommandButton1_Click()
   
2.     Dim pTick As TTick
   
3.     Dim I As Integer
   
4.     I = 1
   
5.     Sheet4.Range("g1:g2").Clear
   
6.     Sheet4.Range("a3:f3").Clear
   
7.     Sheet4.Range("a5:k90000").Clear
   
8.       While Sheet4.Cells(2, I) <> ""
   
9.         Status = SKQuoteLib_RequestTicks(I, Sheet4.Cells(2, I))
   
10.         I = I + 1
    
11.     Wend
    
12. End Sub
    
13. Private Sub Worksheet_Change(ByVal Target As Range)
    
14.     Application.EnableEvents = False
    
15.     If Not Intersect(Target, [B5:B90000]) Is Nothing Then
    
16.         Range("H" & Target.Row).Formula = "=INT(RC[-6]/100)"
    
17.       
    
18.      ElseIf Not Intersect(Target, [F5:F90000]) Is Nothing Then
    
19.         Range("I" & Target.Row).Formula = "=IF(RC[-6]=-9999.99,R[-3]C[-4],IF(RC[-4]=RC[-6],-RC[-3],IF(RC[-4]=RC[-6]-1,-RC[-3],IF(RC[-4]=RC[-6]-2,-RC[-3],IF(RC[-4]=RC[-6]-3,-RC[-3],IF(RC[-4]=RC[-6]-4,-RC[-3],IF(RC[-4]=RC[-6]-5,-RC[-3],IF(RC[-4]=RC[-5],RC[-3],IF(RC[-4]=RC[-5]+1,RC[-3],IF(RC[-4]=RC[-5]+2,RC[-3],IF(RC[-4]=RC[-5]+3,RC[-3],IF(RC[-4]=RC[-5]+4,RC[-3],IF(RC[-4]=RC[-5]+5,RC[-3],RC[-3])))))))))))))"
    
20.      ElseIf Not Intersect(Target, [C5:C90000]) Is Nothing Then
    
21.         Range("J" & Target.Row).Formula = "=IF(RC[-1]>0,RC[-4],R1C)"
    
22.      ElseIf Not Intersect(Target, [D5:D90000]) Is Nothing Then
    
23.         Range("K" & Target.Row).Formula = "=IF(RC[-2]<0,RC[-5],R1C[-1])"
    
24.    End If
    
25.    Application.EnableEvents = True
    
26.         
    
27. 
    
28. End Sub

複製代碼

以下是thisworkbook

1. Option Explicit
   
2. 
   
3. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
4. Application.RTD.ThrottleInterval = 2000
   
5. Application.Calculation = xlCalculationAutomatic
   
6. End Sub
   
7. 
   
8. Private Sub Workbook_Open()
   
9. Const StartTime As Date = "08:45:00"
   
10. 
    
11. Application.RTD.ThrottleInterval = 0
    
12. Application.Calculation = xlCalculationManual
    
13. 
    
14. Application.OnTime StartTime, "mySchedule"
    
15. End Sub

複製代碼

以下是模組2

1. Option Explicit
   
2. Dim NextTime As Date
   
3. 
   
4. Sub RecordPrice()
   
5. Calculate
   
6. End Sub
   
7. 
   
8. Sub mySchedule()
   
9. Const StopTime As Date = "14:30:00"
   
10. 
    
11. NextTime = Now + TimeValue("00:00:02")
    
12. If TimeValue(NextTime) <= StopTime Then
    
13.    Application.OnTime EarliestTime:=TimeValue(NextTime), Procedure:="mySchedule"
    
14. End If
    
15. Call RecordPrice
    
16. End Sub
    
17. 
    
18. Sub Macro1()
    
19. Sheet4.Range("g1:g2").Clear
    
20. Sheet4.Range("a3:f3").Clear
    
21. Sheet4.Range("a5:i90000").Clear
    
22. 
    
23. End Sub

複製代碼

原則上只用到這幾個，在請G大跟我說上面那兩行加在哪裡可以讓畫面不再閃爍

藍天麗池

回復 29# GBKEE
G大，情況就大概像影片中的樣子，會一直閃個不停
http://youtu.be/HkWukKMe2_A

GBKEE

回復 32# 藍天麗池
試試看

1. Sub RecordPrice()
   
2.     Application.ScreenUpdating = False
   
3.     Calculate
   
4.     Application.ScreenUpdating = True
   
5. End Sub

複製代碼

藍天麗池

回復 33# GBKEE


    感謝G大

藍天麗池

回復 33# GBKEE

G大不好意思又來請教你了
    http://forum.twbts.com/viewthread.php?tid=13250&extra=