請問要如何簡化程式碼?? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問要如何簡化程式碼??

返回列表下一主題上一主題發帖

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

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 »

發表於 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

複製代碼

高中生 Rank: 3 Rank: 3

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

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

2^#

發表於 2016-3-13 00:40 | 顯示全部帖子

回復 3# 藍天麗池

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

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。

返回列表下一主題上一主題