請教如何將DDE資料貼上sheet2的儲存格

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

1^# 跳轉到 »

發表於 2014-12-22 16:13 | 顯示全部帖子

回復 1# Apple007

將以下貼至Sheet1的物件類別模組中

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 3 And .Value > 100 Then
Target.Offset(, -2).Resize(, 3).Copy Sheets("sheet2").[e65535].End(xlUp).Offset(1, -2)
End If
End With
End Sub

複製代碼

2^#

發表於 2014-12-24 15:40 | 顯示全部帖子

回復 3# Apple007

您是指資料是整批匯入的嗎??

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。