[已解决]如何使所查找的内容所在的工作表显示颜色

byhdch

如何使所查找的内容所在的工作表显示颜色

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-8-28 17:10

方法：
1.先画一个COMMAND按钮
2.然后在按钮的单击事件里写入：

1. Private Sub CommandButton1_Click()
   
2. Dim sFind As String
   
3. Dim iSh As Integer
   
4. Dim c
   
5. sFind = InputBox("请输入需要查找的内容：", "查找各表内容", "甲")
   
6. For iSh = 1 To Sheets.Count
   
7.    
   
8.     With Sheets(iSh)
   
9.         .Tab.ColorIndex = -4142
   
10.         Set c = .UsedRange.Find(sFind)
    
11.         If Not c Is Nothing Then
    
12.             .Tab.ColorIndex = 3
    
13.         End If
    
14.     End With
    
15. Next
    
16. End Sub

复制代码

跳转到最佳答案楼层

放浪形骸

如附件所示： 8.28.如何使所查找的内容所在的工作表显示颜色.zip (12.6 KB, 下载次数: 7)

2011-8-28 17:09 上传

点击文件名下载附件

放浪形骸

方法：
1.先画一个COMMAND按钮
2.然后在按钮的单击事件里写入：

1. Private Sub CommandButton1_Click()
   
2. Dim sFind As String
   
3. Dim iSh As Integer
   
4. Dim c
   
5. sFind = InputBox("请输入需要查找的内容：", "查找各表内容", "甲")
   
6. For iSh = 1 To Sheets.Count
   
7.    
   
8.     With Sheets(iSh)
   
9.         .Tab.ColorIndex = -4142
   
10.         Set c = .UsedRange.Find(sFind)
    
11.         If Not c Is Nothing Then
    
12.             .Tab.ColorIndex = 3
    
13.         End If
    
14.     End With
    
15. Next
    
16. End Sub

复制代码