作者cos145 (more)
看板Visual_Basic
標題[VBA ] Excel自動排序資料 卡關
時間Mon Dec 9 22:18:23 2019
小弟寫了一個程式
是將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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1575901105.A.89A.html
※ 編輯: cos145 (39.10.62.63 臺灣), 12/09/2019 22:18:45
1F：推 newton41: Worksheet_Change 這個事件應該就是只有在唯獨那個sheet 12/09 22:33
2F：→ newton41: 發生變動才會啟動吧，如果你事件是放在sheet1，那sheet3 12/09 22:33
3F：→ newton41: 有新資料就和該事件無關吧。 12/09 22:33