作者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/cn.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