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

帖子: 19
主題: 3
精華: 0
積分: 56
點名: 0
作業系統: Vista
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-2-18
最後登錄: 2023-6-12

2^#

發表於 2011-12-25 20:41 | 只看該作者

回復 1# 笨小孩

大哥請問一下 DDE 如何使用如何取得

感謝您

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

3^#

發表於 2011-12-25 20:57 | 只看該作者

回復 2# mustang

我的dde匯入是由一間付費數據公司提供的，提取方法是在可見頁面上，在任何需要提取的數值上按mouse選取獲取dde，然後貼上excel便可使用。

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

4^#

發表於 2011-12-25 21:36 | 只看該作者

煩了Hsieh版主指導上傳文件是不受權限限制的，人如其ID沒錯吧！哈哈...

複製耗時及損耗電腦資源問題是在A1和C1作值比較時，在B1(同時使用了182個)以下公式：

=IF(ISBLANK(C1)," ",IF(C1<=A1,A1-C1," "))

再在B1使用格式化的條件製作了以下3條公式：

條件一：=$C1/$B1>0.499(紅填滿儲存格)
條件二：=$C1/$B1>0.299(籃填滿儲存格)
條件三：=$C1/$B1>0.199(黃填滿儲存格)

我償試把B2所有公式清除，複製1秒內可完成，我想我是製作上失敗了，現想請教各excel高人有更好的方法解決我這個問題嗎？謝謝...

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

5^#

發表於 2011-12-25 21:57 | 只看該作者

回復 4# 笨小孩

附上 "excel檔案" 才能真正知道問題所在

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

6^#

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

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

學海無涯_不恥下問

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

7^#

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

回復 6# Hsieh

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

學海無涯_不恥下問

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

9^#

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

回復 5# register313

copy test.rar (17.85 KB)

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

複製代碼

學海無涯_不恥下問