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

作者: cos145 (more)   2019-12-09 22:18:23
小弟寫了一個程式
是將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
這兩行
但沒甚麼頭緒修改
想請問各位前輩怎修改了
感謝
作者: newton41 (Newton)   2019-12-09 22:33:00
Worksheet_Change 這個事件應該就是只有在唯獨那個sheet發生變動才會啟動吧,如果你事件是放在sheet1,那sheet3有新資料就和該事件無關吧。

Links booklink

Contact Us: admin [ a t ] ucptt.com