[已解决]谢谢爱疯老师，双击指定列中的任意单元格后，在其它单元格内以红色标识出来

lhj323323

老师：
需求如题，请问怎么写，谢谢了。

最佳答案

月排行榜 / 总排行榜

爱疯

2011-4-30 12:11

双击同色2.rar (14.05 KB, 下载次数: 25)

2011-4-30 12:10 上传

点击文件名下载附件
是这样吗

跳转到最佳答案楼层

tony3

回复 lhj323323 的帖子

你可以看看这个，对你有帮助。

我单击某一个单元格后，该单元格的内容自动复制到红色区域

爱疯

双击同色2.rar (14.05 KB, 下载次数: 25)

2011-4-30 12:10 上传

点击文件名下载附件
是这样吗

殘剑

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. Dim c As Range
   
3. If Target.Count > 1 Then Exit Sub
   
4. If Target.Row > 2 Then
   
5.     If Target.Column = 6 Or Target.Column = 14 Then
   
6.         With Columns(Target.Column)
   
7.             .Interior.ColorIndex = xlNone
   
8.             Target.Interior.ColorIndex = 6
   
9.             Cancel = True
   
10.             Set c = Columns(Target.Column).Find(Target, , , 1)
    
11.             If Not c Is Nothing Then
    
12.                 Do
    
13.                     c.Interior.ColorIndex = 6
    
14.                     Set c = .FindNext(c)
    
15.                 Loop While Not c Is Nothing And c.Address <> Target.Address
    
16.             End If
    
17.         End With
    
18.     End If
    
19. End If
    
20. End Sub

复制代码

lhj323323

回复 殘剑 的帖子

残剑老师：
您写的程序，没有测试成功：
比如A营业部在F列和N列都有几处出现过的话，当我用鼠标选择其中一个营业部双击后，只能在同列的几处显示，跨列的记录则没有显示。

雨雪霏

跟帖学习了

lhj323323

回复 tony3 的帖子

谢谢指点。