vba怎样读取选定单元格内容_|案例|EXCEL VBA解决查找选定单元格内容

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 Application.CommandBars.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 打开工具箱()

Application.CommandBars('工具箱').Visible = True

End Sub

Sub 关闭工具箱()

Application.CommandBars('工具箱').Visible = False

End Sub