开发环境基于VSTO,具体配置:visual studio 2010,VB .Net,excel 2007,文档级别的定制程序. 在Ribbon工具栏中有2个功能按钮,它们是否可用取决于worksheet(sheet1)中的内容. button1需要在sheet1中存在某个关键字(比如“默认勾选”)的时候可用,在sheet1初始化和内容变更事件中添加代码,下面的Ribbon1.Button1是我项目中的工具栏和按钮名称 Public Function checkRow() As Bool…
我们项目管理有两个工作薄,一个里面有多个表,每天建一个,记录当天项目,另一个工作薄,有多个表,其中一个是所有项目汇总. 以前都是第一个工作薄一个表做完,再复制粘贴到第二个工作薄的汇总表中. 写了个VBA宏完成这个工作. Sub CopyToOtherBook() ' ' copyToOtheBook Macro ' 宏由 cuianzhu 录制,时间: 2013-6-18 ' ' Dim fname As String Dim maxLine As Integer Dim maxLineS As…