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

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

2^# 跳轉到 »

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

複製代碼

靜思自在 : 不怕事多，只怕多事。