如何快速編輯大量儲存格

帖子: 34
主題: 7
精華: 0
積分: 71
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2012-11-12
最後登錄: 2022-5-2

2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

2^#

發表於 2016-3-12 11:23 | 只看該作者

回復 1# 藍天麗池
看來應該是元大的RTD，我的是開EXCEL前就要先打帳密，打完就可以連接了，我還是第一次聽到要F2+enter
你打開他的範例有需要這樣才有資料嗎?

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2016-3-12 15:42 | 只看該作者

回復 1# 藍天麗池
附上一個範例，參考看看！
多年未接觸券商系統了，尚不知你的用意。

RTD使用範例.rar (18.85 KB)

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

4^#

發表於 2016-3-12 22:31 | 只看該作者

本帖最後由藍天麗池於 2016-3-12 22:33 編輯

回復 3# c_c_lai

RTD改.rar (7.27 KB)
因為代碼很多，所以我把它分段之後用"&"連起來，之後複製貼上值，我並非直接改股票代號，所以處理起來才會這樣
變成要編輯後他才會變成數字型態

請教一下C大，我上面說的那個要如何將程式碼簡化處理到E900??

如果C大還是不懂，可以先大概告訴我要如何簡化程式碼嗎??

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

5^#

發表於 2016-3-12 22:34 | 只看該作者

回復 2# Brandy

我是因為有更改過

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2016-3-13 08:15 | 只看該作者

本帖最後由 c_c_lai 於 2016-3-13 08:22 編輯

回復 4# 藍天麗池
RTD使用範例中：
A6 = Price
C3 = $TWT
=RTD("money.excel",,C$3,$A6)
有明確的單元內容可提供替換。
如此便可從 A欄中帶出公式應用:

Sub Ex()
Dim rng As Range
' 你可以利用 For Each ~ Next 一一將公式得出。
For Each rng In Range("A5", Range("A" & Rows.Count).End(xlUp))
' Debug.Print rng.Address
' 假設公式要寫在 "O" 欄，即從 O5, O6, O7, ......., 到最後列。
rng.Offset(1, 14).Formula = "=RTD(""money.excel"",,C$3," & rng.Address & ")"
Next
End Sub

複製代碼

而在你的範例裡：
2330, 2317, 6505, .....， 1326 (假設執行到 E900， E900 是要帶入 1326)
試問這些代碼你要如何得知，換句話說代碼要根據哪裡才能一一求得？
無中生有？不能只有你自己知道代碼為何，程式它是無法無中生有。

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

7^#

發表於 2016-3-13 09:03 | 只看該作者

回復 6# c_c_lai

C大我了解了，感謝

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

8^#

發表於 2016-3-13 11:57 | 只看該作者

Ａ欄放編號，其它不用，直接在Ｅ欄下公式：

Sub TEST()
With Range("E2:E" & [A65536].End(xlUp).Row)
　　　.Formula = "=""=RTD(""""money.excel"""", ,""&A2&"",""""BestAskVolume5"""")"""
　　　.Value = .Value
　　　'.Replace "=", "=", Lookat:=xlPart　'如果還無法轉成DDE公式，再加這一行　
End With
End Sub
　
　
若其它欄位的公式參數或文字不相同，可上傳較詳細內容～～～
　

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

9^#

發表於 2016-3-21 09:45 | 只看該作者

回復 3# c_c_lai

http://forum.twbts.com/thread-16677-1-1.html
C大可以請你幫我看看嗎??