模块中
Dim arr() As New 类1
Sub zid()
On Error Resume Next
Dim x, copup As CommandBarPopup, copup1 As CommandBarButton, m
Application.CommandBars("CELL").Controls("工作表").Delete
ReDim arr(1 To 1)
Set copup = Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup, before:=1) '添加到最上的位置
With copup
.Caption = "工作表"
.BeginGroup = True '添加分组线
End With
For m = 1 To ActiveWorkbook.Worksheets.Count
Set copup1 = copup.Controls.Add(before:=m) '添加到最上的位置
With copup1
.Caption = ActiveWorkbook.Worksheets(m).Name
.FaceId = m
.Style = msoButtonCaption '图标和文字的显示
k = k + 1
ReDim Preserve arr(1 To k)
Set arr(k).cbar = copup1
End With
Next m
End Sub
类模块(名子为: 类1)
Option Explicit
Public WithEvents cbar As CommandBarButton
Private Sub cbar_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Sheets(cbar.Caption).Select
End Sub
工作簿1.zip
(16.07 KB, 下载次数: 65)