12
返回列表 上一主題 發帖

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

aries

帖子
18 
主題
1 
精華
0 
積分
39 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-11-3 
最後登錄
2016-7-2 
11# 跳轉到 »
發表於 2010-11-18 10:06 | 只看該作者
回復 10# Hsieh


  感謝Hsieh版主大大,真的是這個問題,更新程式碼後已經解決了.
  真是非常感謝大大的幫忙.

TOP

Hsieh

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

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出現錯誤值所致
  1. Private Sub Worksheet_Calculate() '這是Sheet1預設的重算觸動事件程式
  2.     Dim A As Range
  3.     'Static 陳述式  在程序層次中用來宣告變數並配置儲存空間。以 Static 陳述式宣告的變數，在程式執行期間，會一直保留內容。
  4.      With Sheet2
  5.      Set A = .Cells(65536, i + 1).End(xlUp).Offset(1).Resize(, 3)
  6.      If A.Row > 100 Then i = i + 3: .Cells(1, i + 1).Resize(, 3) = [A1:C1].Value '到第100列時右移3欄
  7.      Set A = .Cells(65536, i + 1).End(xlUp).Offset(1).Resize(, 3)
  8.      If IsError([C2].Value) Then Exit Sub
  9.        If A.Cells(1, 3).Offset(-1) <> [C2] Then   '成交價有異動時的條件成立時
  10.             A.Value = [A2:C2].Value                '將Shse1的日期,時間,成交價記錄到Sheet2
  11.        End If
  12.     End With
  13. End Sub
複製代碼
學海無涯_不恥下問

TOP

aries

帖子
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   '成交價有異動時的條件成立時 這段碼底色會反黃.
而我如果不按偵錯,直接按結束,程式還是有開始執行,是可以使用的.

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

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

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
8#
發表於 2010-11-16 22:59 | 只看該作者
可能重新佈署一下會好一點
新增一般模組
輸入程式碼
  1. Public i%
  2. Sub auto_open()
  3. With Sheet2
  4. k = .[IV1].End(xlToLeft).Column
  5. i = IIf(k = 1, 0, k - 3)
  6. If i = 0 Then .[A1:C1].Value = Sheet1.[A1:C1].Value
  7. End With
  8. End Sub
複製代碼
Sheet1模組
  1. Private Sub Worksheet_Calculate() '這是Sheet1預設的重算觸動事件程式
  2.     Dim A As Range
  3.     'Static 陳述式  在程序層次中用來宣告變數並配置儲存空間。以 Static 陳述式宣告的變數，在程式執行期間，會一直保留內容。
  4.      With Sheet2
  5.      Set A = .Cells(65536, i + 1).End(xlUp).Offset(1).Resize(, 3)
  6.      If A.Row > 100 Then i = i + 3: .Cells(1, i + 1).Resize(, 3) = [A1:C1].Value '到第100列時右移3欄
  7.      Set A = .Cells(65536, i + 1).End(xlUp).Offset(1).Resize(, 3)
  8.        If A.Cells(1, 3).Offset(-1) <> [C2] Then   '成交價有異動時的條件成立時
  9.             A.Value = [A2:C2].Value                '將Shse1的日期,時間,成交價記錄到Sheet2
  10.        End If
  11.     End With
  12. End Sub
複製代碼
紀錄.zip (10.81 KB)
學海無涯_不恥下問

TOP

aries

帖子
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)

TOP

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   依然會產生應用程式或物件定義上的錯誤

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
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) 把中間那個"."刪了！

TOP

aries

帖子
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檔案有開始在記錄了.
   我就關閉檔案再重新開始,還是一樣出現執行階段錯誤的訊息.
   這是哪裡的問題呢?  
   再麻煩大大了

TOP

aries

帖子
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 板主大大的解答,我試試看.

TOP

GBKEE

帖子
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物件裡
  1. Private Sub Worksheet_Calculate() '這是Sheet1預設的重算觸動事件程式
  2.     Static i%
  3.     'Static 陳述式  在程序層次中用來宣告變數並配置儲存空間。以 Static 陳述式宣告的變數，在程式執行期間，會一直保留內容。
  4.      With Sheet2.Cells(Rows.Count, i + 1).End(xlUp).Offset(1).Resize(1, 3)
  5.         If .Cells(1, 3).Offset(-1) <> [C2] Then   '成交價有異動時的條件成立時
  6.             .Value = [A2:C2].Value                '將Shse1的日期,時間,成交價記錄到Sheet2
  7.         End If
  8.         If .Row = 100 Then i = i + 3     '到第100列時右移3欄
  9.     End With
  10. End Sub
複製代碼
3於開盤前開啟檔案 試試看

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
12
返回列表 上一主題