2,506
社区成员
发帖
与我相关
我的任务
分享求Excel下拉菜单链接代码!!!
就像数据有效性那样的下拉菜单,但要能像普通单元格那样,每一下拉项都能链接到其它Sheet的数据
菜鸟求助!!!
菜鸟求助!!!
...全文
请发表友善的回复…
发表回复
zsj1101 2006-12-04
- 打赏
- 举报
新加菜單在excel單元格的右鍵菜單中
Sub CreatMe()
Dim cmb As CommandBarControl
Set cmb = Application.CommandBars("cell").Controls.Add(Type:=msoControlButton)
With cmb
.BeginGroup = True
.Caption = "選擇中Sheets1"
'.FaceId = 11
.OnAction = "comp"
End With
end sub
public Function comp()
sheets(1).select
end sub
Sub CreatMe()
Dim cmb As CommandBarControl
Set cmb = Application.CommandBars("cell").Controls.Add(Type:=msoControlButton)
With cmb
.BeginGroup = True
.Caption = "選擇中Sheets1"
'.FaceId = 11
.OnAction = "comp"
End With
end sub
public Function comp()
sheets(1).select
end sub
