帖子: 77
主題: 19
精華: 0
積分: 115
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2025-5-13

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-12-25 15:17 | 只看該作者

[發問] dde匯入數值後進行複製問題

[版主管理留言]

Hsieh(2011-12-25 16:08): 檔案上傳並無等級限制

把91個dde匯入數值以按鈕動作複製出91x2(182)個數值出來時間需要9秒，如Hsieh版主所言"不會吧!"，想知道複製大量動態數值於另一儲存格內是否一定這樣耗時？還是製作方式及公式上錯誤，由於還未夠權限上傳文件，只能以文字敘述方式表達，請諒!

樓主熱帖

ribbits

中學生 Rank: 2

帖子: 17
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2012-1-14
最後登錄: 2016-9-4

14^#

發表於 2012-1-15 10:18 | 只看該作者

回復 2# mustang

DDE訊號一般都是從劵商軟體上用EXCEL欄位擷取來的，平時以代碼呈現連通時會依現況顯現出數據，但在準確精度上效能極差!!!!
因同步去樣不同劵商時會發生顯示數據有落差，不知這是不是台灣才獨有現象，在國外DDE是老舊協定早被淘汰不用了!!

無奈這一般國內散戶能取得的訊號唯一依據，所以只能硬著頭皮取來用了!

以康和全多賺為例開啟看盤軟體後在上方找(輔助工具欄A)按左鍵滑動去啟動MS EXCEL產生空白欄位後再以滑鼠擷取報價欄去貼上就能產生DDE碼!

PS:絕對不可自行開啟EXCEL做擷取這樣無法取樣!!還有全多賺常常會當機要小心

TOP

ribbits

中學生 Rank: 2

帖子: 17
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2012-1-14
最後登錄: 2016-9-4

13^#

發表於 2012-1-15 10:02 | 只看該作者

回復 6# Hsieh

所以若將DDE訊號轉入資料庫再回授運算
這樣是否會讓系統效能有效提升呢?

TOP

笨小孩

中學生 Rank: 2

帖子: 77
主題: 19
精華: 0
積分: 115
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2025-5-13

12^#

發表於 2011-12-27 18:09 | 只看該作者

成功了，謝謝Hsieh版主和register313網友幫忙。

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

11^#

發表於 2011-12-27 09:07 | 只看該作者

回復 9# 笨小孩

Sub 按鈕0_Click()
For i = 1 To 7
Cells(1, i * 4 - 2).Resize(26, 1) = Cells(1, i * 4).Resize(26, 1).Value
Next i
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 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^#

發表於 2011-12-27 08:46 | 只看該作者

回復 9# 笨小孩

Sub 按鈕0_Click()
Application.Calculation = xlCalculationManual
For i = 1 To 26
Cells(i, "B").Value = Cells(i, "D").Value
Cells(i, "F").Value = Cells(i, "H").Value
Cells(i, "J").Value = Cells(i, "L").Value
Cells(i, "N").Value = Cells(i, "P").Value
Cells(i, "R").Value = Cells(i, "T").Value
Cells(i, "V").Value = Cells(i, "X").Value
Cells(i, "Z").Value = Cells(i, "AB").Value
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

複製代碼

學海無涯_不恥下問

TOP

笨小孩

中學生 Rank: 2

帖子: 77
主題: 19
精華: 0
積分: 115
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2025-5-13

9^#

發表於 2011-12-27 01:46 | 只看該作者

回復 5# register313

copy test.rar (17.85 KB)

請高手們看看有方法把複製時間減小嗎？謝謝

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 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^#

發表於 2011-12-26 08:17 | 只看該作者

回復 7# 笨小孩

關閉重算再執行複製
Application.Calculation = xlCalculationManual

複製完成重新設定自動重算
Application.Calculation = xlCalculationAutomatic

學海無涯_不恥下問

TOP

笨小孩

中學生 Rank: 2

帖子: 77
主題: 19
精華: 0
積分: 115
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2025-5-13

7^#

發表於 2011-12-26 00:25 | 只看該作者

回復 6# Hsieh

明自Hsieh版主解釋使用大量陣列公式會損耗電腦資源導致運作緩慢，我也償試把文件拿到朋友家跑1155 i3/3M快取電腦做實驗，可把複製時間降至4秒完成，

現想如完全不使用格式化條件，只使用儲存格公式來製作我想做到的用途，公式上能製作嗎？複製時間上能縮短嗎？

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 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兔年全勤獎章

6^#

發表於 2011-12-25 22:13 | 只看該作者

回復 4# 笨小孩
檔案上傳原則
在活頁簿內任何格式設定、公式都會影響運算速度
尤其在用了大量陣列公式時(並非只有用CTRL+SHIFT+ENTER為輸入方式)
VBA也並非就一定能提升速度

學海無涯_不恥下問

TOP