功能区自定义菜单及单元格右键菜单

Again123456

支持老版的菜单，位置在这

效果如上

右键菜单效果如上
代码如下：


function Application_WorkbookOpen(wk)
{
        if(wk.Name==ThisWorkbook.Name){
                let wmb=Application.CommandBars.ActiveMenuBar;
                    wmb.Reset();
                let cmb1=wmb.Controls.Add({Type:msoControlButton,Temporary:true});
                let cmp1=wmb.Controls.Add({Type:msoControlPopup,Temporary:true});
                (obj=>{
                        obj.Caption="测试按钮1";
                        obj.Control.Style=3;
                        obj.Control.FaceId=446;
                        obj.OnAction="tone";
                })(cmb1);
                (obj=>{
                        obj.Caption="测试菜单1";
                        obj.OnAction="ttwo";
                })(cmp1);
        }       
}

function tone(){
        MsgBox("按钮已响应！",jsOKOnly,"信息")
}
function ttwo(){
        MsgBox("菜单已响应！",jsOKOnly,"信息")
}


function Application_SheetBeforeRightClick(Sh, rg, cancel)
{
        if(rg.Row==1 && rg.Column==1){
                let db=Application.CommandBars("cell");
                    db.Reset();
                    let dbb1=db.Controls.Add({Type:msoControlPopup,Before:1,Temporary:true});
                            dbb1.Caption="浏览内置图标";
                for (i=1;i<=2950;i++){
                    let dbb2=dbb1.Control.Controls.Add({Type:msoControlButton,Temporary:true});
                        dbb2.Caption=i;
                        dbb2.Control.FaceId=i;
            }
               
        }
}

Again123456

自定义菜单及单元格右键.zip (6.64 KB, 下载次数: 53)

2022-12-7 21:47 上传

点击文件名下载附件

可以直接下载

LIUZHU

通过这个例子，倒是学习了一招，VBA的参数可以写成命名参数，JSA的参数可以写成对象的模式。

Again123456

1. //测试如何插入代码
   
2. var fn=n=>{
   
3.     if (n==1){return 1}
   
4.     else {return fn(n-1)+10}
   
5. }

复制代码