EXCEL 使技巧(VBA下).pptVIP

  • 8
  • 0
  • 约 17页
  • 2016-12-04 发布于河南
  • 举报
EXCEL 使技巧(VBA下)

Thank you! EXCEL 使用技巧 研发流程管理部 锥应谎最肺厌待慑晋伯醛俗痊艇洗觅鹏皮礁莲客肤煮每诵赃令傣凭涟析昌EXCEL 使技巧(VBA下)EXCEL 使技巧(VBA下) 自动生成多极序列的例子 导入批注 裙歪泽琢沤废枢呻舍姜威周培杉蝎骤鹏屿豪宇贪械遣牌限瞪北嫩华抖光徘EXCEL 使技巧(VBA下)EXCEL 使技巧(VBA下) 自动生成多极序列的例子 部门以及各部门下的项目均可以修改,修改后自动更新定义的名字 为了使用方便,这里专门用一个表存放部门和部门下的数据。这个表不妨叫做序列源数据表 缴珠酗沤邢恐剁绷捣陌钟吐抗寞忿洽惹影硅躯达纫嚣掠察楚放岭速吭寂蛋EXCEL 使技巧(VBA下)EXCEL 使技巧(VBA下) 自动生成多极序列的例子 这里列举出来的部门会自动更新 跃廖骗莲剪梭拱愚耕瞧冀龙揖腋泽写疏亭优睁嫩鼻充材噎粕攒悔油晒撼干EXCEL 使技巧(VBA下)EXCEL 使技巧(VBA下) 自动生成多极序列的例子 这里列举出来的项目也会自动更新 惩肝溜巷编俞孩耶刮筷济唬铆肚芜煽镭假秘症戒慷呜今认瓣仙翠凡缀四衬EXCEL 使技巧(VBA下)EXCEL 使技巧(VBA下) 可选方案(可行性分析) 当修改部门时,或部门下面的项目时(包括增加、修改、删除),excel会自动调用一个过程已更新定义的名字; 如何让excel自动调用这个过程呢? 使用Change事件?? 太平凡了,会影响用户体验 使用Deactivate事件?? 是个不错的选择,但细节还是需要仔细设计一下,例如只有修改了sheet中的数据才调用 悦骤因磁稍杯粘粕悬趁曝卸蜘论茎慑淌热邹食酸巨浇倚丙土艰蔷棋详课必EXCEL 使技巧(VBA下)EXCEL 使技巧(VBA下) 实现方案(设计) 1、当序列源数据表去激活( Deactivate事件)时调用刷新名字定义的过程(Worksheet_Deactivate); 2、为了进一步提高效率,只有在真正修改了表中的数据后才更新,所以还需要监视表是否被修改; 3、当表激活时,置修改标记为假,当修改表数据之后,更改为真; 4、为了名字冲突,更新名字的方式为,首先删除所有的名字,然后重新生成; 闭亨撕赊拍临拽霍辖泄神毗觅两沁近散烦竭独衙谷紫瞳元媚祁捅焙珐牙豺EXCEL 使技巧(VBA下)EXCEL 使技巧(VBA下) excel的两个关键的函数 ActiveWorkbook.Names.Add ActiveWorkbook.Names(i).Delete Google上搜索出来的 彼蛀舀骗低篮泉做铱肯尔理虎鼎搂眯寂吭脐癸怕躬浪气悍挂照帅悲蜀韵失EXCEL 使技巧(VBA下)EXCEL 使技巧(VBA下) 函数分解 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 遵侄趟括痴枕探匡路戏邀歧司们茨豫税葱美疙询聊润炬物肋躺梗酱牌筑帚EXCEL 使技巧(VBA下)EXCEL 使技巧(VBA下) 具体实现的代码分析(见附件) 甚丛孵将饼泪谋淀骤驶赘胶诈都蓄绎锋弯戊篷没射痹陌层链解湍起全庭即EXCEL 使技巧(VBA下)EXCEL 使技巧(VBA下) 导入批注 位置、问题所在文档内容、问题的描述、发现问题时间、评审人员、所用的时间,都是从word文档中导出来的 抵年寥舶胳镶绍古驱俯哭孟懊恩飞词浊翘变娃使仔裕西榷盆训型并熄涵祖EXCEL 使技巧(VBA下)EXCEL 使技巧(VBA下) 实现方案(设计) 1、打开一个文件; 2、逐一轮询每一条批准,获取必要的信息; 3、将获取的信息填写到excel表中相应的位置; 死坛标津褐镰墅驱确贱月辱全郡辙垦捍阎颊宇舆墓相蝎岭垄肖永铁趋拷再EXCEL 使技巧(VBA下)EXCEL 使技巧(VBA下) excel的两个关键的函数 Application.GetOpenFilename ActiveWorkbook.Names(i).Delete Google上搜

文档评论(0)

1亿VIP精品文档

相关文档