如何快速編輯大量儲存格

藍天麗池

下載 (316.23 KB)

2016-3-12 11:07

請問大大，我接券商RTD的資料，我弄好後出現如上圖那樣，之後要在每個儲存格內按F2+Enter才有辦法連接到券商那邊，才會出現數字，但因為資料很多，要如何做才能執行大量且快速的編輯儲存格呢??

上圖有數字的部分是已經執行F2+Enter，公式部分是還沒有執行

Sub 巨集1()
'
' 巨集1 巨集
'

'
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,2330,""BestBidVolume2"")"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,2317,""BestBidVolume2"")"
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,6505,""BestBidVolume2"")"
    Range("E5").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,2412,""BestBidVolume2"")"
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,1303,""BestBidVolume2"")"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,1301,""BestBidVolume2"")"
    Range("E8").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,2882,""BestBidVolume2"")"
    Range("E9").Select
    ActiveCell.FormulaR1C1 = "=RTD(""money.excel"", ,1326,""BestBidVolume2"")"
    Range("E10").Select
End Sub

上述程式碼是我用巨集錄製，目前是執行到E10，要如何簡化讓程式碼能夠執行到E900呢??

Brandy

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

c_c_lai

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

下載次數: 7

2016-3-12 15:39

藍天麗池

回復 3# c_c_lai

下載 (94.44 KB)

2016-3-12 22:27

RTD改.rar (7.27 KB)

下載次數: 4

2016-3-12 22:29

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

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

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

藍天麗池

回復 2# Brandy

我是因為有更改過

c_c_lai

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

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

複製代碼

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

藍天麗池

回復 6# c_c_lai

C大我了解了，感謝

准提部林

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

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
　
　
若其它欄位的公式參數或文字不相同，可上傳較詳細內容～～～
　

藍天麗池

回復 3# c_c_lai

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