返回列表 上一主題 發帖

如何快速編輯大量儲存格

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-3-12 11:05 | 只看該作者

如何快速編輯大量儲存格

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


請問大大，我接券商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

帖子
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
你打開他的範例有需要這樣才有資料嗎?

TOP

c_c_lai

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

TOP

藍天麗池

帖子
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大還是不懂，可以先大概告訴我要如何簡化程式碼嗎??

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
5#
發表於 2016-3-12 22:34 | 只看該作者
回復 2# Brandy

我是因為有更改過

TOP

c_c_lai

帖子
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欄中帶出公式應用:
  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)
試問這些代碼你要如何得知，換句話說代碼要根據哪裡才能一一求得？
無中生有？不能只有你自己知道代碼為何，程式它是無法無中生有。

TOP

藍天麗池

帖子
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大我了解了，感謝

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
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
　
　
若其它欄位的公式參數或文字不相同，可上傳較詳細內容∼∼∼
　

TOP

藍天麗池

帖子
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大可以請你幫我看看嗎??

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題