Lv,Gucci,Lv包包,Lv錢夾,Lv手錶,Lv目錄,Gucci公仔包,Lv購物包,Lv水桶包,Lv批發,愛美仕名牌購物

EXCEL VBA．模擬〔股票DDE公式〕之〔監視．閃色警示．自動記錄〕
　　　　　　　　　　　　　　　　　　　　　　　　　＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
範例檔簡介：
■資料結構：
　１．儲���格〔A2:V2〕為〔股票DDE公式〕連結區，範例暫以〔亂數公式〕
　　　權充，請依各人系統自行設置公式。
　２．儲存格〔A11:W11〕為每二分鐘〔自動記錄〕資料區，記錄間隔時間
　　　可自行在程式碼中更改，〔開盤．收盤〕時間也須依實用修改。
　３．程式執行方式：
　　　＞〔開盤前〕開啟檔案，自動等待至〔開盤時間〕一到，開始執行。
　　　＞〔盤中〕開啟檔案，立即進入自動記錄。
　　　＞程式執行中，可〔暫停〕，也可〔重新啟動〕。
　　　＞上兩種，在〔收盤時間〕一到，〔自動停止〕執行。
　　　＞〔收盤後〕開啟檔案，不執行任何動作，可將全部記錄複製到其他
　　　　工作表留存〔歷史資料〕，或進行其他自設的〔數據分析〕。
　　　＞利用〔格式化條件〕，可以〔顯目提示〕各種〔數據的變化〕。
　
■程式碼：本段為〔自動記錄〕主程式，其他相關程式，請參考範例。
　Sub 自動記錄()
　If uMode = 0 Then Exit Sub
　'↓收盤時間以後不執行 
　If Time > TimeValue(EndTime) Then
　　Sht1.[W4] = "已過收盤"
　　uMode = 0
　　Exit Sub
　End If
　'↓當前時間（時間碼錶） 
　Sht1.[W2] = Time
　'↓每２分鐘記錄，若為５分鐘則改為 Mod 5
　If Second(Time) = 0 And Minute(Time) Mod 2 = 0 Then
　　　xRow = Sht1.[A65536].End(xlUp).Row + 1
　　　If xRow < 11 Then xRow = 11
　　　Sht1.Range("A" & xRow & ":V" & xRow).Value = Sht1.[A2:V2].Value
　　　Sht1.Range("W" & xRow).Value = Time
　　　'↓讓最新資料保持在可見視窗中 
　　　If ActiveSheet.Name = Sht1.Name And xRow > 20 Then
　　　　　ActiveWindow.ScrollRow = xRow - 12
　　　End If
　　　ThisWorkbook.Save
　　　Beep
　End If
　'↓每一秒遞迴執行本主程式一次 
　Application.OnTime Now + TimeValue("00:00:01"), "自動記錄"
　End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜範例檔１＞DDE監視．記錄．閃色：
＜範例檔２＞儲存格閃色：
LV超3A名牌購物網