自定义的右键菜单只能执行一次

394286425

1.    private void ThisAddIn_Startup(object sender, System.EventArgs e)
   
2.         {
   
3.             AddContextMenuStrip();
   
4. 
   
5.         }
   
6. 
   
7.         private void ThisAddIn_Shutdown(object sender, System.EventArgs e)
   
8.         {
   
9.         }
   
10. 
    
11.         private void AddContextMenuStrip()
    
12.         {
    
13.             CommandBar mzBar = Globals.ThisAddIn.Application.CommandBars["cell"];    //excel文档已有的右键菜单cell
    
14.             if (mzBar == null) { return; }
    
15. 
    
16.             foreach (CommandBarControl temp_contrl in mzBar.Controls)
    
17.             {
    
18.                 temp_contrl.Delete(false);
    
19.             }
    
20. 
    
21.             //长度自动合并
    
22.             CommandBarButton btnAutoMerge = (CommandBarButton)mzBar.Controls.Add(MsoControlType.msoControlButton, missing, missing, missing, true);
    
23.             btnAutoMerge.Tag = "btn_AutoMerge";
    
24.             btnAutoMerge.Caption = "长度自动合并";
    
25.             btnAutoMerge.Style = MsoButtonStyle.msoButtonIconAndCaption;
    
26.             btnAutoMerge.FaceId = 3277;
    
27.             btnAutoMerge.Click += new _CommandBarButtonEvents_ClickEventHandler(btnAutoMerge_Click);
    
28.         }
    
29. 
    
30.         //长度自动合并
    
31.         private void btnAutoMerge_Click(CommandBarButton Ctrl, ref bool CancelDefault)
    
32.         {
    
33.             
    
34.             MessageBox.Show("长度自动合并");
    
35.             LengthAutoMerge();
    
36.             
    
37.         }
    
38. 
    
39.         //长度自动合并
    
40.         public void LengthAutoMerge()
    
41.         {
    
42.             Excel.Application xls = Globals.ThisAddIn.Application;
    
43.             xls.ScreenUpdating = false;
    
44. 
    
45.             Excel.Workbook wb = xls.ActiveWorkbook;
    
46.             Excel.Worksheet ws = (Excel.Worksheet)wb.ActiveSheet;
    
47.             Range rng = (Range)xls.ActiveWindow.Selection;
    
48.             int topRow = rng.Row;
    
49.             int endRow = rng.Row + rng.Rows.Count - 1;
    
50.             int leftCol = rng.Column;
    
51.             int rightCol = rng.Column + rng.Columns.Count - 1;
    
52.             Dictionary<int, int> dict = new Dictionary<int, int>();
    
53.             List<int[]> lsList = new List<int[]>() { };
    
54.             for (int i = topRow; i <= endRow; i++)
    
55.             {
    
56.                 Range rngLenth = (Range)ws.Cells[i, leftCol];
    
57.                 int length = Convert.ToInt32(rngLenth.Text);
    
58.                 Range rngNum = (Range)ws.Cells[i, rightCol];
    
59.                 int num = Convert.ToInt32(rngNum.Text);
    
60.                 if (dict.ContainsKey(length))//长度已有则数量相加
    
61.                 {
    
62.                     dict[length] = dict[length] + num;
    
63.                 }
    
64.                 else//没有则添加
    
65.                 {
    
66.                     dict.Add(length, num);
    
67.                 }
    
68.             }
    
69.             var dicSort = from objDic in dict orderby objDic.Key descending select objDic;
    
70.             foreach (KeyValuePair<int, int> kvp in dicSort)
    
71.             {
    
72.                 lsList.Add(new int[] { kvp.Key, kvp.Value });
    
73.             }
    
74. 
    
75.             for (int j = 0; j < lsList.Count; j++)
    
76.             {
    
77.                 ((Range)ws.Cells[topRow + j, 16]).Value = lsList[j][1];
    
78.                 ((Range)ws.Cells[topRow + j, 17]).Value = lsList[j][0];
    
79.             }
    
80. 
    
81.             xls.ScreenUpdating = true;
    
82. 
    
83.         }

复制代码

·自定义的右键菜单点击一次后能运行，继续点击就没反应了。求解救！

394286425

以解决；添加对右键点击事件的判断。每次右键点击就重新加载一次自定义菜单

1. private void ThisAddIn_Startup(object sender, System.EventArgs e)
   
2.         {
   
3.             Excel.Application xls = Globals.ThisAddIn.Application;
   
4.             xls.SheetBeforeRightClick += new AppEvents_SheetBeforeRightClickEventHandler(SheetBeforeRight_Click);
   
5.         }
   
6. 
   
7.         private void ThisAddIn_Shutdown(object sender, System.EventArgs e)
   
8.         {
   
9.         }
   
10. 
    
11.         private void SheetBeforeRight_Click(object Sh, Microsoft.Office.Interop.Excel.Range Target, ref bool Cancel)
    
12.         {
    
13.             AddContextMenuStrip();
    
14.         }
    
15. 
    
16.         private void AddContextMenuStrip()
    
17.         {
    
18.             CommandBar mzBar = Globals.ThisAddIn.Application.CommandBars["cell"];    //excel文档已有的右键菜单cell
    
19.             if (mzBar == null) { return; }
    
20. 
    
21.             foreach (CommandBarControl tmp_contrl in mzBar.Controls)
    
22.             {
    
23.                 tmp_contrl.Delete();
    
24.             }
    
25. 
    
26.             //长度自动合并
    
27.             CommandBarButton btnAutoMerge = (CommandBarButton)mzBar.Controls.Add(MsoControlType.msoControlButton, missing, missing, missing, true);
    
28.             btnAutoMerge.Tag = "AutoMerge";
    
29.             btnAutoMerge.Caption = "长度自动合并";
    
30.             btnAutoMerge.Style = MsoButtonStyle.msoButtonCaption;
    
31.            
    
32.             btnAutoMerge.Click += new _CommandBarButtonEvents_ClickEventHandler(btnAutoMerge_Click);
    
33.         }
    
34. 
    
35.         //长度自动合并
    
36.         private void btnAutoMerge_Click(CommandBarButton Ctrl, ref bool CancelDefault)
    
37.         {
    
38.             //MessageBox.Show("长度自动合并");
    
39.             LengthAutoMerge();
    
40.         }

复制代码