[VBA ] Excel自動排序資料 卡關

[cos145 (more)]

小弟寫了一個程式

是將book1中的Sheet2的資料貼到Sheet1時

自動根據B欄數值由小到大排序整欄資料

程式碼如下

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If

End Sub

但是，將Sheet1資料貼到同在book1中的book3時

此巨集就不會執行

我是覺得應是首兩行的問題

也就是
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
這兩行

但沒甚麼頭緒修改

想請問各位前輩怎修改了

感謝



--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 39.10.62.63 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1575901105.A.89A.html
※ 編輯: cos145 (39.10.62.63 臺灣), 12/09/2019 22:18:45
推 newton41: Worksheet_Change 這個事件應該就是只有在唯獨那個sheet
→ newton41: 發生變動才會啟動吧，如果你事件是放在sheet1，那sheet3
→ newton41: 有新資料就和該事件無關吧。