EXCEL外部資料每分鐘自動紀錄更新過的值(求幫助)
- 帖子
- 3
- 主題
- 1
- 精華
- 0
- 積分
- 9
- 點名
- 0
- 作業系統
- VISTA
- 軟體版本
- office2007
- 閱讀權限
- 10
- 註冊時間
- 2011-10-6
- 最後登錄
- 2011-10-27
|
EXCEL外部資料每分鐘自動紀錄更新過的值(求幫助)
每天我都會從外部資料讀取，想請問一下怎樣子可以讓每分鐘的資料值自動往下紀錄可以讓我作出曲線圖。
1.希望能將記錄表這表單每分鐘讀取的外部資料,的A6到Z6這排數字,以貼上值不是貼上公式的方式表現在A11到Z11一直往下自動記錄到A280到Z280
2.希望能判斷外部資料有更新,才往下自動記錄,以減少同樣資料再重複記錄
3.希望在09:00點開盤時才開始自動輸入13:30會自動結束自動記錄
希望有人能為我解惑，感謝!
範例檔附上
 2011buysell.rar (53.52 KB)
|
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2011-10-7 16:20
| 只看該作者
回復 1# zz8825252
2.希望能判斷外部資料有更新,才往下自動記錄,以減少同樣資料再重複記錄
外部資料有更新 不一定是每分鐘的變動只有一筆的,
這是ThisWorkbook的程式碼 檔案開啟時執行的程序
- Private Sub Workbook_Open()
- Run "Sheet2.TheRecord" '執行 "紀錄表" ->Sheet2的TheRecord程序
- End Sub
這是 "紀錄表" 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
|
|
|
|
|
|
|
|
發表於 2011-10-6 15:56
| 
