//鼠标右键事件,单鼠标右键时触发 function Workbook_SheetBeforeRightClick(Sh, rg, cancel) { // 获取Application对象中的CommandBars对象,参数"Cell"表示右键菜单。 let cb = Application.CommandBars("Cell"); cb.Reset(); // 重置右键菜单。 let cc=cb.Controls.Add(msoControlPopup) //设置一级菜单 cc.Caption="合并拆分" //设置一级菜单名称 ar=['合并单元格','拆分单元格']; // 定义一个数组,用于存放二级菜单名称。 ar.forEach((a)=>{ // 使用forEach方法遍历数组ar。 with(cc.Control.Controls.Add()){ // 添加二级菜单,使用with语句简化代码。 OnAction = a; // 设置二级菜单选项的点击事件处理函数。 Caption = a; // 设置二级菜单选项的标题。 } }) } // 合并单元格函数。该函数用于合并当前选定的单元格。 function 合并单元格(){ Selection.Merge(); // 合并选中的单元格。 } // 取消合并单元格函数。该函数用于取消当前选定的单元格的合并状态。 function 拆分单元格(){ Selection.UnMerge(); //对选择单元格取消合并 } |