Question

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

大师您好！前天我的提问你的回答可能是被百度屏蔽了，答案今天才出来，我还以为真无法实现这个功能，今天看到你的答案太高兴了，非常感谢！可我不知道如何操作的，总是失败。能否我把附件发给你，有劳你帮帮我吧，谢谢！





Answer 1

先建自定义选项卡，然后建自定义组，然后将宏命令拖入该组即可。具体请看图

Answer 2

在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 3

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

追问

您好！我是要把宏命令放在选项卡里，我现在就是放选项卡的组里的，我上传的图2帮我看看有什么方法可以实现。谢谢！

Answer 4

实现不了，ribbon只有四个事件
close
dispose
load
loademage