Question

如何给Excel自定义选项卡添加宏命令

Answer 1

在CommandBars(1)上添加，然后就跑会到加载项选项卡上。以下是我的一些实例

1）在sheet1的A:G列我放了一些按钮的基础信息，以便调用

2）添加按钮的过程如下

Sub egAddButtons()

On Error Resume Next

Dim I As Integer, bar As CommandBar, sht As Worksheet

Set sht = ThisWorkbook.Sheets(1)

Set bar = Application.CommandBars(1)

For I = 1 To 17

With bar.Controls.Add(msoControlButton, , , , True)

.OnAction = sht.Range("A1").Offset(I, 3).Value

.Style = msoButtonIconAndCaption

.FaceId = sht.Range("A1").Offset(I, 4).Value

.Caption = sht.Range("A1").Offset(I, 1).Value

.Tag = "NewButton"

End With

Next

Set sht = Nothing

Set bar = Nothing

End Sub

3）删除按钮的过程

Sub egDeleteButtons()

On Error Resume Next

Dim bar As CommandBar, ctl As CommandBarControl

Set bar = Application.CommandBars(1)

With bar

For Each ctl In bar.Controls

If ctl.Tag = "NewButton" Then

ctl.Visible = False

ctl.Delete

End If

Next

End With

Set bar = Nothing

Set ctl = Nothing

End Sub

Answer 2

这个不太好说明白，我录了个GIF，自已看，总体意思就是先建自定义选项卡，然后建自定义组，然后将宏命令拖入该组即可。具体请看图

Answer 3

压根不能实现，必须要点击下级菜单才可以跳转

Answer 4

陶生经商归来，酒醉后显出原形。子才得知真相后，对黄英更加感激关爱。