图片引用

free丶lin

jiaxinl 发表于 2019-6-14 15:23
If Not Sheet2.[A:A].Find(x, , , 1) Is Nothing Then Sheet2.[A:A].Find(x, , , 1).Offset(, 4).Cop ...

老师改完可以增加列，但是不能调换列的顺序，这是哪里出错了呢

jiaxinl

free丶lin 发表于 2019-6-14 15:28
老师改完可以增加列，但是不能调换列的顺序，这是哪里出错了呢

如果是左边的，就在前加-  负号

free丶lin

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. If Target.Column = 2 Then '如果A1单元格有变化,则
   
4. Application.ScreenUpdating = False
   
5. Dim s As Shape, x As Range
   
6. For Each s In Sheet1.Shapes
   
7.     If s.Type = 13 Then s.Delete
   
8. Next s
   
9. For Each x In Sheet1.Range("B2", [B1048576].End(3))
   
10.     If Not Sheet2.[B:B].Find(x, , , 1) Is Nothing Then
    
11.         Sheet2.[B:B].Find(x, , , 1).Offset(, 1).Copy x.Offset(, 1)
    
12.         Sheet2.[B:B].Find(x, , , 1).Offset(, 2).Copy x.Offset(, 2)
    
13.         Sheet2.[B:B].Find(x, , , 1).Offset(, 3).Copy x.Offset(, 3)
    
14.         Sheet2.[B:B].Find(x, , , 1).Offset(, 4).Copy x.Offset(, 4)
    
15.         Sheet2.[B:B].Find(x, , , 1).Offset(, 5).Copy x.Offset(, 5)
    
16.         Sheet2.[B:B].Find(x, , , 1).Offset(, 6).Copy x.Offset(, 6)
    
17.         Sheet2.[B:B].Find(x, , , 1).Offset(, 7).Copy x.Offset(, 7)
    
18.     End If
    
19. Next x
    
20. Application.ScreenUpdating = True
    
21. End If
    
22. End Sub
    
23. 
    
24. 
    

复制代码

老师这个是哪里错了呢

free丶lin

jiaxinl 发表于 2019-6-14 16:56
如果是左边的，就在前加-  负号

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. If Target.Column = 2 Then '如果A1单元格有变化,则
   
4. Application.ScreenUpdating = False
   
5. Dim s As Shape, x As Range
   
6. For Each s In Sheet1.Shapes
   
7.     If s.Type = 13 Then s.Delete
   
8. Next s
   
9. For Each x In Sheet1.Range("B2", [B1048576].End(3))
   
10.     If Not Sheet2.[B:B].Find(x, , , 1) Is Nothing Then
    
11.         Sheet2.[B:B].Find(x, , , 1).Offset(, 1).Copy x.Offset(, 1)
    
12.         Sheet2.[B:B].Find(x, , , 1).Offset(, 2).Copy x.Offset(, 2)
    
13.         Sheet2.[B:B].Find(x, , , 1).Offset(, 3).Copy x.Offset(, 3)
    
14.         Sheet2.[B:B].Find(x, , , 1).Offset(, 4).Copy x.Offset(, 4)
    
15.         Sheet2.[B:B].Find(x, , , 1).Offset(, 5).Copy x.Offset(, 5)
    
16.         Sheet2.[B:B].Find(x, , , 1).Offset(, 6).Copy x.Offset(, 6)
    
17.         Sheet2.[B:B].Find(x, , , 1).Offset(, 7).Copy x.Offset(, 7)
    
18.     End If
    
19. Next x
    
20. Application.ScreenUpdating = True
    
21. End If
    
22. End Sub
    
23. 
    
24. 
    

复制代码

老师这个是哪里错了呢

Ada2020

很强大，学习

Ada2020

jiaxinl 发表于 2019-6-14 16:56
如果是左边的，就在前加-  负号

厉害，羡慕

princewc

正在研究中，感谢分享

是是是啊啊碍事w

jiaxinl 发表于 2017-6-26 15:07
请查收动态图和附档

不用宏能完成不，网上有些用照相机功能

CANXIANLONG0821

jiaxinl 发表于 2017-6-28 08:33
用了宏，放在了“引用”工作表中具体的代码及注释
如下：
Private Sub Worksheet_Change(ByVal Target  ...

好想收藏这个，没找到收藏

pilotf1

jiaxinl 发表于 2017-6-28 08:33
用了宏，放在了“引用”工作表中具体的代码及注释
如下：
Private Sub Worksheet_Change(ByVal Target  ...

不错不错，收下了。