EXCEL使用技巧〔VBA下〕.ppt

Thank you！ EXCEL 使用技巧 研发流程管理部 自动生成多极序列的例子 导入批注 自动生成多极序列的例子 部门以及各部门下的项目均可以修改，修改后自动更新定义的名字 为了使用方便，这里专门用一个表存放部门和部门下的数据。这个表不妨叫做序列源数据表 自动生成多极序列的例子 这里列举出来的部门会自动更新 自动生成多极序列的例子 这里列举出来的项目也会自动更新 可选方案（可行性分析） 当修改部门时，或部门下面的项目时（包括增加、修改、删除），excel会自动调用一个过程已更新定义的名字； 如何让excel自动调用这个过程呢？ 使用Change事件？？ 太平凡了，会影响用户体验 使用Deactivate事件？？ 是个不错的选择，但细节还是需要仔细设计一下，例如只有修改了sheet中的数据才调用 实现方案（设计） 1、当序列源数据表去激活（ Deactivate事件）时调用刷新名字定义的过程（Worksheet_Deactivate）； 2、为了进一步提高效率，只有在真正修改了表中的数据后才更新，所以还需要监视表是否被修改； 3、当表激活时，置修改标记为假，当修改表数据之后，更改为真； 4、为了名字冲突，更新名字的方式为，首先删除所有的名字，然后重新生成； excel的两个关键的函数 ActiveWorkbook.Names.Add ActiveWorkbook.Names(i).Delete Google上有哪些信誉好的足球投注网站出来的 函数分解 Private Sub Worksheet_Activate() Private Sub Worksheet_Change(ByVal Target As Range) Private Sub Worksheet_Deactivate() Function RefreshAllNames(tag As String, stratr As Integer, stratc As Integer) As Integer Function DelAllNames(tag As String) As Integer Function GetRows(stratr As Integer, c As Integer) As Integer Function GetStart(stratr As Integer, stratc As Integer) As Integer 具体实现的代码分析（见附件） 导入批注 位置、问题所在文档内容、问题的描述、发现问题时间、评审人员、所用的时间，都是从word文档中导出来的 实现方案（设计） 1、打开一个文件； 2、逐一轮询每一条批准，获取必要的信息； 3、将获取的信息填写到excel表中相应的位置； excel的两个关键的函数 Application.GetOpenFilename ActiveWorkbook.Names(i).Delete Google上有哪些信誉好的足球投注网站出来的 Comments(i).Author Comments(i).Date Comments(i).Range.Text Comments(i).Scope.Text Comments(i).Scope.Paragraphs(1).Range.Text Comments(i).Scope.Start/end Comments(i).Scope.Paragraphs(1).Range.Start/end 批注的几个重要属性 Google上有哪些信誉好的足球投注网站出来的 Comments(i).Author Comments(i).Date Comments(i).Range.Text Comments(i).Scope.Text Comments(i).Scope.Paragraphs(1).Range.Text Comments(i).Scope.Start/end Comments(i).Scope.Paragraphs(1).Range.Start/end 函数分解 Sub Reviewer() Function OpenReviedWordFile(DisplayInf As String) As String Function GetComments(UserFlag As Boolean) As Long Sub GetCommentInformation(i As Long) Sub GetCommentListInformation(i As Long) Sub GetCommentParagraphInformation(i As Long) Sub WriteThisComment(i As Long) Function SumWorktimeForComments(j A