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

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

請問要如何簡化程式碼??

以下程式碼是我用巨集錄製的，只錄到E10，我要將以下巨集執行到E900，但又不可能一直複製下去，請教大大以下程式碼要如何簡化，讓他可以執行到E900

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

樓主熱帖

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

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

本帖最後由 lpk187 於 2016-3-12 23:33 編輯

回復 1# 藍天麗池

Public Sub ex()
Dim arr, i%
arr = Sheets("工作表2").Range("A2:A9") '先把股票編號放某一工作表的A欄，然後使其成為陣列 arr
With Sheets("工作表1")
For i = 1 To UBound(arr)
.Cells(i+1, 5) = "=RTD(""money.excel"", ," & arr(i, 1) & ",""BestBidVolume2"")"
Next
End With
End Sub

複製代碼

TOP

藍天麗池

中學生 Rank: 2

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

3^#

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

回復 2# lpk187

大大，謝謝，可是為什麼陣列就可以我用&卻不行??

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2016-3-13 00:40 | 只看該作者

回復 3# 藍天麗池

我在想，可能是你的&用錯了，也不一定要陣列才是方法，也有其他方法，例如用For Each ...
何不PO不出你原來的&怎麼使用，讓各位大大解惑！

TOP

藍天麗池

中學生 Rank: 2

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

5^#

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

回復 4# lpk187

RTD改.rar (7.27 KB)

這是我的附件，請大大看看

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

6^#

發表於 2016-3-13 14:39 | 只看該作者

回復 5# 藍天麗池

H2 =A2&B2&C2&D2&E2&F2&G2
顯示 =RTD("money.excel", ,"2330","BestAskVolume5")
這只是文字顯示並非公式

公式應該輸入如下，看看這樣可以執行嗎?
H2 =RTD("money.excel", ,D2,"BestAskVolume5")

下拉複製公式

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

藍天麗池

中學生 Rank: 2

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

7^#

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

本帖最後由藍天麗池於 2016-3-13 15:19 編輯

回復 6# ML089

這樣可以，問題是如果我要將代號放在裡面要如何做呢??
這是公式，我只要按F2+Enter就會變成公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

8^#

發表於 2016-3-13 16:54 | 只看該作者

回復 7# 藍天麗池

這是公式的方法

若是你要F2+ENTER的方法
就是原來你的方法，H2 =A2&B2&C2&D2&E2&F2&G2
在整個選取來複製，再另外一欄I2 選擇性貼上 - 值。
再整個選取I欄， CTRL-H 取代，選取目標輸入 =，取代成輸入 =，就全部轉成你要的公式。
不用一個一個 F2+ENTER，太辛苦了

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP