標題: [發問] 如何將更新的DDE資料逐一記錄至另一Sheet內~~VBA新手 [打印本頁]

---

作者: andre    時間: 2011-6-13 23:50     標題: 如何將更新的DDE資料逐一記錄至另一Sheet內~~VBA新手

請教大大，如何將A2~E4會更新的DDE資料逐一記錄至另一Sheet內

代號        名稱        價格        單量
1101(A2)        台泥        10        100
1102        亞泥        9        50
1103        嘉泥        8        30(D4)

---

作者: ginbow    時間: 2011-6-14 19:12

本帖最後由 ginbow 於 2011-6-14 19:20 編輯

雖然我之道是用calculate 可是畢竟每次跳動 不是固定的
不知道是不是要用指定儲的方式
好像有可以指定範圍的 Worksheets(1).Rows(2).calculate
可是不太會用 希望有大大能點攜

---

作者: abcdefgp06    時間: 2011-6-20 13:57

試試以下方法

Sub data_download()
With Sheet1
ar1 = Array([A2], [B2], [C2], [D2])
ar2 = Array([A3], [B3], [C3], [D3])
ar3 = Array([A4], [B4], [C4], [D4])
End With

With Sheet2
.[A65536].End(xlUp).Offset(1, 0).Resize(, 3) = ar1
.[A65536].End(xlUp).Offset(1, 0).Resize(, 3) = ar2
.[A65536].End(xlUp).Offset(1, 0).Resize(, 3) = ar3
End With
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)