PTT數位生活區 / Visual_Basic

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

看板Visual_Basic作者 (more)時間5年前 (2019/12/09 22:18), 5年前編輯推噓1(1推 0噓 2→)
留言3則, 1人參與, 5年前最新討論串1/1
小弟寫了一個程式 是將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
推
12/09 22:33, 5年前 , 1F
Worksheet_Change 這個事件應該就是只有在唯獨那個sheet
12/09 22:33, 1F
→
12/09 22:33, 5年前 , 2F
發生變動才會啟動吧，如果你事件是放在sheet1，那sheet3
12/09 22:33, 2F
→
12/09 22:33, 5年前 , 3F
有新資料就和該事件無關吧。
12/09 22:33, 3F
‣ 更多 cos145 的文章
文章代碼(AID): #1TxbUnYQ (Visual_Basic)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 cos145 的文章
文章代碼(AID): #1TxbUnYQ (Visual_Basic)