DDE記錄每分鐘資料

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-3-8 10:14 | 只看該作者

各位大大，我想要記錄dde每分鐘變更的資料，需要麻煩各位大大的指導，感恩感恩。

問題.rar (11.92 KB)

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-3-9 17:44 | 只看該作者

回復 1# jimmy121212

Option Explicit
'檔案開啟時自動執行的程式 '請複製到ThisWorkbook 的模組
Private Sub Workbook_Open() 'ThisWorkbook 的預設事件
Dim E As Range
With Sheets("SHEET1").Range("C3:C303") 'With : 每分鐘的範圍 [儲存格]物件中
.Offset(, 1).Resize(, 3) = "" '清理先前舊資料
For Each E In .Cells '每分鐘的範圍內處理時間
If E >= Time Then Application.OnTime E, "ThisWorkbook.EX"
'[儲存格] 時間大於等於現在時間
'OnTime 方法安排一個程序在將來的特定時間執行 (既可為某個日期的指定時間，也可為指定的時間之後)。
Next
End With
End Sub
Sub Ex() '記錄dde每分鐘變更的資料 '請複製到ThisWorkbook 的模組
Dim Rng As Range, F As Range
With Sheets("SHEET1")
Set Rng = .Range("D2:F2") '要記錄的資料範圍
' 每分鐘的範圍中尋找現在的時間
Set F = .Range("C3:C303").Find(Format(Time, "hh:mm"), LookIn:=xlValues)
'Not F Is Nothing :找到後在 ,[現在的時間],Offset(0, 1): 右移一欄 Resize(1, 3): 擴充1列3欄的範圍 = 要記錄的資料
If Not F Is Nothing Then F.Offset(0, 1).Resize(1, 3) = Rng.Value '
End With
End Sub

複製代碼

3^#

發表於 2012-3-28 16:03 | 只看該作者

真想下載!!

靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。