使用VBA記錄股市每分鐘的交易記錄
其實也是一個很簡單的程式，但是看起來就不像是高手寫的，因為一直跳來跳去 假設工作表2是DDE的資料，將DDE的資料每分鐘copy到工作表1 Dim i As Single '宣告變數i Dim Workday As Integer '宣告變數Workday Private Sub workbook_open() '當這個excel檔案打開時，執行以下程序 Workday = Application.Evaluate("WEEKDAY(TODAY())-1") '算出今天是一星期中的第幾天，並將數值存入Workday If Workday >= 1 And Workday <= 5 Then '判斷是否為工作天 If Format(Time, "hh:mm:ss") >= "09:00:00" And Format(Time, "hh:mm:ss") <= "13:31:00" Then '判斷是否為盤中 Call a '執行程序a Else Application.OnTime TimeValue("00:09:00"), "ThisWorkBook.a" '如果不是在盤中則等待明天九點開盤 End If End If End Sub Private Sub a() '宣告一個程序a i = 2 '將i預設為2,因為資料是由第2行開始貼上 Call b '執行程序b End Sub Private Sub b() '宣告一個程序b Range("Stock200").Rows("2:201").Copy ...