Excel开发学习笔记：根据工作表worksheet内容控制按钮的状态

开发环境基于VSTO，具体配置：visual studio 2010，VB .Net，excel 2007，文档级别的定制程序。

在Ribbon工具栏中有2个功能按钮，它们是否可用取决于worksheet（sheet1）中的内容。

button1需要在sheet1中存在某个关键字(比如“默认勾选”)的时候可用，在sheet1初始化和内容变更事件中添加代码，下面的Ribbon1.Button1是我项目中的工具栏和按钮名称

     Public  Function checkRow()  As  Boolean  
         Dim findCheck  As Excel.Range = findLastCell( " 默认勾选 ")  ' findLastCell的定义见之前的blog  
         If (findCheck  Is  Nothing)  Then  
             Return  False  
         Else  
             Return  True  
         End  If  
     End Function  
      
     Private  Sub Sheet1_Change(Target  As Microsoft.Office.Interop.Excel.Range)  Handles  Me.Change  
        Globals.Ribbons.Ribbon1.Button1.Enabled = checkKpiRow()  
     End Sub  
      
     Private  Sub Sheet1_Startup()  Handles  Me.Startup  
        Globals.Ribbons.Ribbon1.Button1.Enabled = checkKpiRow()  
     End Sub 

 

button2需要当用户选中sheet1中某个关键字单元格(比如“名称”)的时候可用，在sheet1初始化、SelectionChange事件、工作表激活事件中添加代码

     Private  Function isSelectNameCell()  As  Boolean  
         With Application  
             If (.ActiveCell.Value  Is  Nothing)  Then  
                 Return  False  
             End  If  
             If (.ActiveCell.Value.ToString =  " 名称 ")  Then  
                 Return  True  
             End  If  
              
             Return  False  
         End  With  
     End Function  
      
     Private  Sub Sheet1_Startup()  Handles  Me.Startup  
        Globals.Ribbons.Ribbon1.Button2.Enabled = isSelectNameCell()  
     End Sub  
      
     Private  Sub Sheet1_SelectionChange(Target  As Microsoft.Office.Interop.Excel.Range)  Handles  Me.SelectionChange  
        Globals.Ribbons.Ribbon1.Button2.Enabled = isSelectNameCell()  
     End Sub  
      
     Private  Sub Sheet1_ActivateEvent()  Handles  Me.ActivateEvent  
        Globals.Ribbons.Ribbon1.Button2.Enabled = isSelectNameCell()  
     End Sub 

 

转载于:https://www.cnblogs.com/pop-lar/p/4696485.html