案例EXCELVBA解决查找选定单元格内容

案例EXCELVBA解决查找选定单元格内容摘要
写这个程序，是因为⼯作原因，我们单位每个⽉需要统计规上企业税收情况，⽽税收由税务部
门提供数据，涉及企业上千家，规上企业只有80家左右，虽然EXCEL提供了查找功能，但每次都要输⼊关键字进⾏查找，在两个⽂档中来回切换，费时费⼒，通过本程序，可以在数据源⼯
作表中快速查找选定单元格内容。

问题描述：
有A⽂档，⽤来统计80家左右的规上企业数字；
有B⽂档，是税务部门提供的上千家企业缴费情况。

⽬的：在A⽂档中，选定某个企业名称，点击⾃定义的查找铵钮，⽴马在B⽂档中找到该企业缴税数据。

省去输⼊关键字和来回切换⽂档的的⿇烦。

操作⽅法：
1。

假定A⽂档中，⽤来统计规上企业税收的表格名称为“1⽉”，先将B⽂档中的数据全部复制到A ⽂档中的⼀个新⼯作表中来，重命名为“sjy”，即数据源。

2。

编写⼀个查找程序，如下。

Sub 查找选定单元格内容()
Dim mm
mm = ActiveCell.Value
Sheets('sjy').Activate
Dim rng
Set rng = edRange.Find(What:=mm)
If Not rng Is Nothing Then
Rows(rng.Row & ':' & rng.Row).Select
Else
Rows('1:1').Select
MsgBox '没找到'
End If
End Sub
3。

再编写⼀个⼯具箱，程序如下：
Sub auto_Open()
Call CreateToolBar
End Sub
Sub CreateToolBar()
Dim ArrCaption(), ArrAction(), ArrFaceID(), ArrToolTip()
Dim i As Integer
ArrCaption = Array('查找', '功能⼆', '功能三')
ArrAction = Array('查找选定单元格内容', 'Action_Query', 'Action_MonthEnd')
ArrToolTip = Array('查找选定单元格内容', '待定', '待定')
ArrFaceID = Array(8, 25, 984)
With mandBars.Add(Name:='⼯具箱', temporary:=True)
For i = 0 To 2
With .Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = ArrCaption(i)
.OnAction = ArrAction(i)
.FaceId = ArrFaceID(i)
.Style = msoButtonIconAndCaptionBelow
.TooltipText = ArrToolTip(i)
End With
Next
.Visible = True
End With
End Sub
Sub 打开⼯具箱()
mandBars('⼯具箱').Visible = True
End Sub
Sub 关闭⼯具箱()
mandBars('⼯具箱').Visible = False
End Sub
4。

在Thisworkbook下，再编写⼀个⼯具箱操作程序，如下：
Private Sub Workbook_Open()
MenuBars(xlWorksheet).Menus.Add Caption:='⼯具箱操作'
MenuBars(xlWorksheet).Menus('⼯具箱操作').MenuItems.Add '打开⼯具箱', OnAction:='打开⼯具箱'
MenuBars(xlWorksheet).Menus('⼯具箱操作').MenuItems.Add '关闭⼯具箱', OnAction:='关闭⼯具箱'
End Sub
注：2、3步骤中的程序放在模块中，4步骤程序放在Thisworkbook下。

保存好，重启A⽂档，则可以看到有⼀个⼯具箱出现，在“4⽉”⼯作表中，选要查找的企业名称单元格，点击⼯具箱中的查找，⽴马就们跳转到“sjy”⼯作表中，找到的数据被整⾏选定了，如果没有找到，则会弹出提⽰框。

回忆⼈⽣
分享快乐。