[發問] 如何將DEE連結到Excel的資料,依照想要的時間記錄下來.

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 2010-11-14 18:59 | 只看該作者

本帖最後由 GBKEE 於 2010-11-14 19:01 編輯

回復 1# aries
成交價的變動一分鐘以內, 可能就有變化,或幾分鐘都沒變化.所以應設計為成交價有變動,時紀錄下來.
看盤軟體,傳回成交價的變動時,會引發工作表的重算Calculate
請依照下列步驟試試看
1指令- 工具-選項-計算 - 計算方式勾選 [自動] 如圖

2請將程式碼複製到VBA視窗的 Sheet1物件裡

Private Sub Worksheet_Calculate() '這是Sheet1預設的重算觸動事件程式
Static i%
'Static 陳述式在程序層次中用來宣告變數並配置儲存空間。以 Static 陳述式宣告的變數，在程式執行期間，會一直保留內容。
With Sheet2.Cells(Rows.Count, i + 1).End(xlUp).Offset(1).Resize(1, 3)
If .Cells(1, 3).Offset(-1) <> [C2] Then '成交價有異動時的條件成立時
.Value = [A2:C2].Value '將Shse1的日期,時間,成交價記錄到Sheet2
End If
If .Row = 100 Then i = i + 3 '到第100列時右移3欄
End With
End Sub

複製代碼

3於開盤前開啟檔案試試看

帖子: 18
主題: 1
精華: 0
積分: 39
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-3
最後登錄: 2016-7-2

3^#

發表於 2010-11-15 08:45 | 只看該作者

回復 2# GBKEE

謝謝 GBKEE 板主大大的解答,我試試看.

帖子: 18
主題: 1
精華: 0
積分: 39
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-3
最後登錄: 2016-7-2

4^#

發表於 2010-11-16 13:09 | 只看該作者

本帖最後由 aries 於 2010-11-16 13:12 編輯

回復 2# GBKEE

版主大大,我開啟檔案執行巨集之後,出現執行階段錯誤'13': 型態不符合,
偵錯之後,跳出程式碼顯示這段
If .Cells(1, 3).Offset(-1) <> [C2] Then '成交價有異動時的條件成立時
然後我在程式碼要點擊偵錯,或執行的時候,發現程式有開始在跑了.Excel檔案有開始在記錄了.
我就關閉檔案再重新開始,還是一樣出現執行階段錯誤的訊息.
這是哪裡的問題呢?
再麻煩大大了

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2010-11-16 13:18 | 只看該作者

If .Cells(1, 3) 把中間那個"."刪了！

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

6^#

發表於 2010-11-16 15:56 | 只看該作者

回復 4# aries
給你的程式碼執行沒有錯誤啊請附上你的檔案看看
回復 5# oobird
If .Cells(1, 3) 把中間那個"."刪了！
你所要刪的"." 是 With Sheet2.Cells(Rows.Count, i + 1).End(xlUp).Offset(1).Resize(1, 3)範圍的.Cells(1, 3).Offset(-1)
刪掉後的程式碼 If Cells(1, 3).Offset(-1) <> [C2] Then 依然會產生應用程式或物件定義上的錯誤

帖子: 18
主題: 1
精華: 0
積分: 39
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-3
最後登錄: 2016-7-2

7^#

發表於 2010-11-16 20:03 | 只看該作者

本帖最後由 aries 於 2010-11-16 20:09 編輯

回復 5# oobird
   刪掉之後,在程式碼底下執行,就直接出現 GBKEE大大說的錯誤訊息了.

回復 6# GBKEE

   附上執行之後的檔案.
   另外,其中有些記錄到第99列就跳行,有些又可以到第100列,不知是什麼問題.
   再麻煩大大了.
   謝謝各位大大的幫忙.

紀錄.rar (12.32 KB)

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2010-11-16 22:59 | 只看該作者

可能重新佈署一下會好一點
新增一般模組
輸入程式碼

Public i%
Sub auto_open()
With Sheet2
k = .[IV1].End(xlToLeft).Column
i = IIf(k = 1, 0, k - 3)
If i = 0 Then .[A1:C1].Value = Sheet1.[A1:C1].Value
End With
End Sub

複製代碼

Sheet1模組

Private Sub Worksheet_Calculate() '這是Sheet1預設的重算觸動事件程式
Dim A As Range
'Static 陳述式在程序層次中用來宣告變數並配置儲存空間。以 Static 陳述式宣告的變數，在程式執行期間，會一直保留內容。
With Sheet2
Set A = .Cells(65536, i + 1).End(xlUp).Offset(1).Resize(, 3)
If A.Row > 100 Then i = i + 3: .Cells(1, i + 1).Resize(, 3) = [A1:C1].Value '到第100列時右移3欄
Set A = .Cells(65536, i + 1).End(xlUp).Offset(1).Resize(, 3)
If A.Cells(1, 3).Offset(-1) <> [C2] Then '成交價有異動時的條件成立時
A.Value = [A2:C2].Value '將Shse1的日期,時間,成交價記錄到Sheet2
End If
End With
End Sub

複製代碼

紀錄.zip (10.81 KB)

學海無涯_不恥下問

帖子: 18
主題: 1
精華: 0
積分: 39
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-3
最後登錄: 2016-7-2

9^#

發表於 2010-11-17 18:01 | 只看該作者

回復 8# Hsieh

感謝Hsieh版主大大,重新用過的程式碼,就都會固定到100列就換行,還有自己會增加標題列,很方便.

不過,在開啟檔案執行巨集之後,還是會出現執行階段錯誤'13': 型態不符合的視窗,我按偵錯之後,進入程式碼,
顯示 If A.Cells(1, 3).Offset(-1) <> [C2] Then '成交價有異動時的條件成立時這段碼底色會反黃.
而我如果不按偵錯,直接按結束,程式還是有開始執行,是可以使用的.

另外,如果這個錯誤訊息不容易解決,各位大大就不用在麻煩了.我猜測會不會是電腦或軟體的問題,而跟程式碼沒有關係.
反正原來的問題,已經有解決了.

再次感謝各位大大的幫忙指教.

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2010-11-17 18:03 | 只看該作者

本帖最後由 Hsieh 於 2010-11-17 18:13 編輯

此時的DDE是否還未傳入數據造成A2:C2出現錯誤值所致

Private Sub Worksheet_Calculate() '這是Sheet1預設的重算觸動事件程式
Dim A As Range
'Static 陳述式在程序層次中用來宣告變數並配置儲存空間。以 Static 陳述式宣告的變數，在程式執行期間，會一直保留內容。
With Sheet2
Set A = .Cells(65536, i + 1).End(xlUp).Offset(1).Resize(, 3)
If A.Row > 100 Then i = i + 3: .Cells(1, i + 1).Resize(, 3) = [A1:C1].Value '到第100列時右移3欄
Set A = .Cells(65536, i + 1).End(xlUp).Offset(1).Resize(, 3)
If IsError([C2].Value) Then Exit Sub
If A.Cells(1, 3).Offset(-1) <> [C2] Then '成交價有異動時的條件成立時
A.Value = [A2:C2].Value '將Shse1的日期,時間,成交價記錄到Sheet2
End If
End With
End Sub

複製代碼

學海無涯_不恥下問