ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 65311|回复: 141

运用函数DIY公文管理系统

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2009-7-23 00:53 | 显示全部楼层 |阅读模式
【声明】此系统为本人原创作品,请勿用于商业用途,如大量使用本系统进行改装请标识引自《Excel函数与公式实战技巧精粹》和本人ID:gouweicao78。

简介:这是一个函数综合运用实例,展示了如何仅仅利用Excel的函数与公式,就能够打造一个功能完备的公文管理系统。
原理:利用宏表4.0函数FILES用于返回指定目录的所有文件名的水平文字数组,结合超链接函数HYPERLINK等,用户可以制作一个自动导入选定文件目录的文件列表,方便用户管理。

制作方法简介:
1、规范文件存储结构:分别建立函件、纪要、一般文件三个子目录,并以年份建立下一级子目录进行归类整理,对各类公文均采用3位数字流水编号开头的命名方式,方便文件的排序和查找。
2、分析系统功能:根据所选公文类别列出文件列表、超链接打开源文件及目录、提示是否重复编号或漏号以及下一文件编号等。
3、分步实现功能模块:
(1)取得文件目录所在路径和文件列表。定义名称如下:
路径:=REPLACE(CELL("filename",!A1),FIND("[",CELL("filename")),1000,)
文件列表:=FILES(路径&类别&"\"&年份&"\"&"*.doc")&T(NOW())
文号=LEFT(文件列表,3)
(2)列出文件名:
B5=IF(ISNA(MATCH(TEXT(ROW()-4,"000"),文号,)),"",TEXT(ROW()-4,"000号"))
C5=IF(B5="","",SUBSTITUTE(REPLACE(INDEX(文件列表,MATCH(LEFT(B5,3),文号,)),1,4,),".doc",))
(3)超链接文件源
G5=IF(B5="","",HYPERLINK(路径&类别&"\"&年份&"\"&B5&C5&".doc","查看正文"))
G4=IF(1,HYPERLINK(路径&类别&"\"&年份,"打开目录"))
(4)判断重漏号及文件编号提醒功能
H5=IF(ROW()-4>MAX(A:A),"",LOOKUP(SUMPRODUCT(N(文号=LEFT(B5,3))),{0,"漏号";1,"";2,"重号"}))

本例是管理Word文档的典型案例,借鉴本例的思路,对指定路径下的照片、Excel工作簿、PDF文件等均可进行合理编号和管理。

【链接】
您可以访问我的新浪博客观看本文配套视频教程
http://blog.sina.com.cn/s/blog_5d3d972a0100fx22.html
如果方便,欢迎您到我的淘宝店铺拍一下这件物品(只需1元,当然,您完全可以免费下载使用)
http://item.taobao.com/item.htm?id=9648721406
如果您有需要对此系统进行简单改装,可以在论坛跟帖或者发信息等方式联系我。

[ 本帖最后由 gouweicao78 于 2011-3-18 09:58 编辑 ]

补充内容 (2017-10-29 08:54):
在ExcelHome技术论坛的最佳学习方法:http://club.excelhome.net/thread-117862-1-1.html

技巧266 公文管理系统.rar

61.71 KB, 下载次数: 6359

TA的精华主题

TA的得分主题

发表于 2009-8-4 11:55 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
不错的案例和教程,值得一看!

TA的精华主题

TA的得分主题

发表于 2009-8-19 09:28 | 显示全部楼层

更新问题

根据《运用函数DIY公文管理系统一文》的方法制作,当点击《函件》或《年份》时,序号、文号、文件名的内容不能更新,不知怎么办?求高手指点。

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-8-19 10:00 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-8-24 17:27 | 显示全部楼层

应用中的问题

不错,不过有小小问题:在应用中,第227- 235以及265以后无法看到,请问是什么原因?

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-8-24 21:12 | 显示全部楼层

回复 5楼 cwqab 的帖子

2003版只可生成255个文件列表。
2007版没有这个限制。

TA的精华主题

TA的得分主题

发表于 2009-8-25 11:10 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

回复 6楼 gouweicao78

我装了2007的也是第227- 235无法显示,以及265以后无法看到?

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-8-25 14:46 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
请上传附件。

TA的精华主题

TA的得分主题

发表于 2009-9-18 17:02 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
我装了2007的也是第227- 235无法显示,以及265以后无法看到?

TA的精华主题

TA的得分主题

发表于 2009-9-18 17:16 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-28 22:30 , Processed in 0.047683 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表