[已解决]自動檢測該格的字元與其他B欄的字元交換位置

ioi_chan

請問利用vba， 在B欄中任意一格輸入CCC後, 除了自身有CCC的這一格外，會自動檢測該格的字元與其他B欄的字元交換位置，請看附件。

感謝各位老師的幫忙，謝謝！

最佳答案

月排行榜 / 总排行榜

france723

2017-5-26 18:33

ioi_chan 发表于 2017-5-26 14:06
B欄的每個單元格的內容字元是唯一的，不會重複, 所以只會替換一個

代码如下 ：

1. Dim Ad
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. Application.EnableEvents = False
   
4. If Target.Column <> 2 Or Target.Count > 1 Then Exit Sub
   
5. Ad = Target
   
6. Application.EnableEvents = True
   
7. End Sub
   
8. Private Sub Worksheet_Change(ByVal Target As Range)
   
9. If Target.Column <> 2 Or Target.Count > 1 Then Exit Sub
   
10. Application.EnableEvents = False
    
11. Dim y, ar, i
    
12. y = Range("B65536").End(3).Row
    
13. ar = Range("a1:b" & y)
    
14.     For i = 1 To UBound(ar)
    
15.         If i <> Target.Row Then
    
16.             If Target = ar(i, 2) Then
    
17.                 Cells(i, 2) = Ad
    
18.             End If
    
19.         End If
    
20.     Next i
    
21. Application.EnableEvents = True
    
22. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

有多个相同内容的单元格时，交换哪一个，是最上面的吗，还是全部替换？

ioi_chan

大灰狼1976 发表于 2017-5-26 13:32
有多个相同内容的单元格时，交换哪一个，是最上面的吗，还是全部替换？

B欄的每個單元格的內容字元是唯一的，不會重複, 所以只會替換一個

大灰狼1976

下班了，明天再看吧。

france723

ioi_chan 发表于 2017-5-26 14:06
B欄的每個單元格的內容字元是唯一的，不會重複, 所以只會替換一個

代码如下 ：

1. Dim Ad
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. Application.EnableEvents = False
   
4. If Target.Column <> 2 Or Target.Count > 1 Then Exit Sub
   
5. Ad = Target
   
6. Application.EnableEvents = True
   
7. End Sub
   
8. Private Sub Worksheet_Change(ByVal Target As Range)
   
9. If Target.Column <> 2 Or Target.Count > 1 Then Exit Sub
   
10. Application.EnableEvents = False
    
11. Dim y, ar, i
    
12. y = Range("B65536").End(3).Row
    
13. ar = Range("a1:b" & y)
    
14.     For i = 1 To UBound(ar)
    
15.         If i <> Target.Row Then
    
16.             If Target = ar(i, 2) Then
    
17.                 Cells(i, 2) = Ad
    
18.             End If
    
19.         End If
    
20.     Next i
    
21. Application.EnableEvents = True
    
22. End Sub

复制代码

ioi_chan

老師，假設隔壁的C欄有字元，請問怎樣寫才可以將C欄也一起作相對應的互換？
觸發點也是B欄的任何一單元格.
再次謝謝老師的幫忙！

france723

ioi_chan 发表于 2017-5-27 06:27
老師，假設隔壁的C欄有字元，請問怎樣寫才可以將C欄也一起作相對應的互換？
觸發點也是B欄的任何一單元格. ...

把数组ar宣告到C列，然后每个比对即可(从代码12行开始)。
小修改你应该可以自己完成。

ioi_chan

france723 发表于 2017-5-27 16:20
把数组ar宣告到C列，然后每个比对即可(从代码12行开始)。
小修改你应该可以自己完成。

已經作出修改， 並完成c欄作變更對象。謝謝老師