返回列表 上一主題 發帖

[發問] 如何將更新的DDE資料逐一記錄至另一Sheet內~~VBA新手

andre

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
win7 
軟體版本
win7 
閱讀權限
10 
性別
男 
註冊時間
2011-6-13 
最後登錄
2011-6-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-13 23:50 | 只看該作者

[發問] 如何將更新的DDE資料逐一記錄至另一Sheet內~~VBA新手

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

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

ginbow

帖子
28 
主題
4 
精華
0 
積分
54 
點名
0  
作業系統
windows xp pro 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
台南市 
註冊時間
2010-5-5 
最後登錄
2016-6-8 
2#
發表於 2011-6-14 19:12 | 只看該作者
本帖最後由 ginbow 於 2011-6-14 19:20 編輯

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

TOP

abcdefgp06

帖子
10 
主題
5 
精華
0 
積分
16 
點名
0  
作業系統
windows XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
註冊時間
2010-7-23 
最後登錄
2011-7-3 
3#
發表於 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

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題