EXCEL外部資料每分鐘自動紀錄更新過的值(求幫助)

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

1^# 跳轉到 »

發表於 2011-10-7 16:20 | 顯示全部帖子

回復 1# zz8825252
2.希望能判斷外部資料有更新,才往下自動記錄,以減少同樣資料再重複記錄
外部資料有更新不一定是每分鐘的變動只有一筆的,
這是ThisWorkbook的程式碼檔案開啟時執行的程序

複製代碼

這是 "紀錄表" Sheet2的程式碼
紀錄表中資料區公式數值有改變時會啟動這 Worksheet_Calculate 工作表預設事件

Option Explicit
Public Record As String, Rng As Range
Private Sub Worksheet_Calculate()
Dim Trng As Range
If Record <> Join(Application.Transpose(Application.Transpose(Rng)), "") And Time >= #9:00:00 AM# And Time <=
#1:30:00 PM# Then
Set Trng = Cells(Rows.Count, "a").End(xlUp) 'A欄底部列往上有資料的位置
If Trng <> "" Then Set Trng = Trng.Offset(1)
Trng.Resize(, Rng.Columns.Count) = Rng.Value
End If
TheRecord
End Sub
'''''這也是是 "紀錄表" Sheet2的程式碼
Private Sub TheRecord()
Set Rng = [A6:Z6] '紀錄表中的資料
Record = Join(Application.Transpose(Application.Transpose(Rng)), "") '組合資料區的文字
If Time < #9:00:00 AM# Then Range("A11", Range("A11").End(xlDown)).Resize(, Rng.Columns.Count) = ""
End Sub

複製代碼

靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。