藍天麗池

回復 16# GBKEE


    G大感謝你，G大請教一下裡面好像沒有看到時間的設定，之前有設定從8:45開始到13:45結束，這次沒看到，是已經寫在裡面了嗎?

藍天麗池

回復 18# GBKEE


    G大我修改完成了感謝你的幫助，感激不盡

藍天麗池

策略王報價.rar (59.39 KB)

下載次數: 5

2014-12-10 23:55

回復 18# GBKEE


    請問G大有遇過這種情況嗎??裡面的表單(登入、接收資料...)都不能點，是不是有設定到什麼?

藍天麗池

回復 21# GBKEE

G大，不是券商的問題，我昨天下午還可以用，但昨天開teamview後表單的部分就無法點擊，我在想是不是程式有衝到，上網查了一下不知道是否是activeX控制項的問題，所以才想說來請教G大，因為我不是只有那個檔案不行，是所有檔案的表單都無法點擊

藍天麗池

回復 21# GBKEE


    G大，請教一下如果我在附件這個程式要加入每秒向下滾動一列要怎麼加呢?? 分析.rar (88.77 KB)

下載次數: 6

2014-12-22 23:25

感謝

藍天麗池

回復 21# GBKEE


    G大，可以順便幫小弟看一下這個附件嗎?? 委買賣(群益)Rev.rar (18.06 KB)

下載次數: 4

2014-12-23 15:48

小弟試著寫，本來功能設定是B2-K2其中的值大於700就記錄，但不知道發生甚麼問題，卻無法執行，值沒有到700也記錄，在麻煩G大幫忙指教一下

藍天麗池

回復 26# GBKEE

G大感謝你等等來試試看

藍天麗池

回復 26# GBKEE

G大，之前的程式測試過後可以了，但是另一個請教一下G大如果我在附件這個程式要加入每秒向下滾動一列要怎麼加呢?? 分析.rar (88.77 KB)

下載次數: 6

2014-12-24 22:12

其他的我還可以試著寫寫看，但這種的就...，還望G大幫忙一下，不好意思G大總是麻煩你

藍天麗池

回復 29# GBKEE

G大是下面那樣，謝謝你

藍天麗池

回復 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大跟我說上面那兩行加在哪裡可以讓畫面不再閃爍