ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[分享] 一个通讯录管理系统,喜欢的就拿去!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-4-14 00:07 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 岁月无恒 于 2020-5-26 23:45 编辑

很久没发主题贴了,给公司制作了一个通讯录工具,拿出来分享一下。
这个通讯录管理系统,可以用于编制、管理公司的通讯录,也可用于制作、管理个人通讯录,使用极其方便,很多内容还可以自定义。
论坛中有不少朋友都有分享过通讯录工具,我只是来凑个热闹。
这个工具已经全部更新,更新后的帖子如下:
通讯录管理系统【更新】.rar (197.96 KB, 下载次数: 782)
下面是使用说明及演示(注意:文件中的所有姓名和电话均为随机生成的数据,如有雷同,纯属巧合)


一、操作演示 c183fc9ec84a4f64a377d58c56f1c762.gif
打开表格,进入操作界面:
点击【数据维护】:可以对通讯录数据进行编辑和修改;
点击【基础设置】:可以对部门和职务进行设置;
点击【号码查询】:可以对通讯录数据进行查看、搜索、编辑。
截图的窗口界面没有特效显示,是由于我操作系统设置的原因。


二、数据维护
b687eb218084434fbf7aba532cc055b6.jpg
这里是整个通讯录的数据核心,用来对通讯录进行批量录入、删除、修改等操作。
你还可以在这里修改查询窗口的标题内容,因为号码查询界面中的四列标题内容,分别来自这个表的A列、C列、D列和E列的标题,通过修改这几列的标题,可以实现自定义查询界面中显示标题内容。
8b8b4c7751d540e6a0740c7fdb3bcd64.jpg
下面是演示操作(为了直观显示修改后的效果,我在表格中临时设置了一个【显示窗体】按钮,在最终的文件中,是没有这个按钮的):
e648216c202c4d418d4e9068fccde126.gif


三、基础设置
848679b2653749f1b823b5fbbfcd32be.jpg


在这里可以对部门和职务信息进行设置。


【部门】中设置公司的部门信息,如果涉及到其他的协(合)作单位,可以将对方单位的名称录入此列中;
【职务】中设置公司的岗位信息。
此两项信息,分别用于以下两个地方:

1、数据维护中【C列】所在部门和【D列】担任职务中,录入数据时的下拉菜单;

6abb024f62b24d9c9427937bba4846ed.gif

2、通讯录查询窗体,编辑界面中的【所在部门】和【担任职务】菜单:

d94b608127954127853b2f59d6701245.gif


四、号码查询
86fcfd7e3f3c4a46983c4aabf5c42888.jpg

在这里可以搜索查找通讯录,对通讯录数据进行添加、修改、删除,复制所选通讯录信息。
号码查询界面,没有显示所有的通讯录信息,因为很多时候我们打开通讯录,是为了快速找到某个人的联系方式,所以主要界面只显示姓名、部门、职务和电话信息。
通过点击【展开详情>>>】,可以显示出右侧的功能区域,用于显示、查看完整的通讯录信息,并对通讯录内容进行编辑。

1、搜索查找
这里搜索查找是在整个通讯录的数据中进行搜索,而非显示的内容。所以可以搜索工号、邮箱、QQ及微信号、在职状态信息。
这的搜索支持多关键字搜索,每个关键字之间用空格隔开,这样只有同时包含所有关键字的内容才会显示出来。
ef99dfd932db47e68e324ac016ef3b72.gif

这里搜索就对通配符做支持了,因为通过一个或多个关键字的组合,基本上可以实现通过关键信息精准检索内容的效果,这种情况下,通配符反而觉得有点多余,所以就没有做支持。

2、数据添加
①通过号码查询界面添加内容时,【员工姓名】、【所在部门】、【担任职务】、【手机号码】必填;
②录入必填信息后,系统会首先检查数据库中是否存在已有数据,如果存在完全一样的数据,则会弹出禁告窗口,提示已存在数据。
③此功能添加,只能一个一个添加,常用于在现有数据基础上,做简单修改后添加。
be9da693a2f34e3aa21521096ff3d1df.gif

3、数据修改
①如果未做任何修改,点击【修改】时,会填出警告,提示内容无修改;
②若存在修改内容,系统会显示详细的修改内容,确认后才可以修改;
③此处的修改,只能一个一个修改,常用于发现录入错误所做的零星内容修改;
④需要点击列表框内容,才能激活数据修改功能。
5538fc756de54b2cbe91f130c57114d2.gif
4、数据删除
①数据删除前,会有一个确认提示,确认后才会对数据进行删除;
②需要点击列表框内容,才能激活数据删除功能。
6b08275cb22546e099bc5a450d22fb49.gif

5、数据复制
我们打开通讯录,一般都是查找某个人的相关联系信息,查找到数据后,自己使用或者发送给其他人。
在常规情况下,我们都是直接截图发送,别人收到的是图片,还得从图片中提取信息才能用;如果我们一个一个去复制粘贴后再发送,效率还是比较低。所以做了下面这样一个人性化的设计:
当选中【自动复制所选内容】前面的复选框时 ,每当我们点击列表中的数据,此数据就被自动复制到粘贴板,我们就可以在其他地方直接粘贴出来,然后以文本形式发送。其他人收到的就是直接可以用的内容,对于大家都非常方便。
f5e5c1229a704ecd80a8eeaab290de7f.gif


五、小结
以上是关于这个通讯录系统的全部功能介绍和使用说明,功能上谈不上强大。
只是使用非常上非常方便,搜索查找非常实用,对内容的编辑也非常便捷;
尤其是对内容的自动复制功能,个人觉得相当人性化,一旦用上了,你就忘不掉。
另外,由于不太会美化,表格界面直接用的【苦竹】老师的作品,但是后台的代码和想法,全是我自己的。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-4-14 08:13 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-4-14 15:49 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-4-15 11:45 | 显示全部楼层
  岁月无恒老师: 当任意一列(比如:所在部门或担任职务,为空白时)就在:Ro = Dic(Str选择)
   If Sheet2.Range("A" & Ro) = 员工姓名.Value Then这个位置会出现1004错误提示,因为Ro=0,不能为:Sheet2.Range("A" & 0) ,没有单元格A0的。恳请修改这个BUG!!

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-4-15 13:28 | 显示全部楼层
wowo000 发表于 2020-4-15 11:45
岁月无恒老师: 当任意一列(比如:所在部门或担任职务,为空白时)就在:Ro = Dic(Str选择)
   If Shee ...

明白你的意思了,这是一个粗心的错误,知道要做这个判断,但是忘记了。解决方法如下:
111.jpg

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-4-15 13:33 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
wowo000 发表于 2020-4-15 11:45
岁月无恒老师: 当任意一列(比如:所在部门或担任职务,为空白时)就在:Ro = Dic(Str选择)
   If Shee ...

谢谢提醒,已经在文件中修改了。

TA的精华主题

TA的得分主题

发表于 2020-4-15 20:29 | 显示全部楼层
岁月无恒老师:还是没解决关键基本问题,比如选中ListBox1的“胡东来”进行修改,不管更改他的下边的哪一项都会提示1004错误(Ro = Dic(Str选择),因为Ro=0,不能为:Sheet2.Range("A" & 0) ,没有单元格--A0这样的单元格);还有就是Private Sub 修改记录_Click()
   If ListBox1.ListIndex < 1 Then是否应该改为If ListBox1.ListIndex < 0 Then???否则ListBox1的第一行不能修改。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-4-15 22:35 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
wowo000 发表于 2020-4-15 20:29
岁月无恒老师:还是没解决关键基本问题,比如选中ListBox1的“胡东来”进行修改,不管更改他的下边的哪一项 ...

找到原因了,在建立字典的时候,对工作表的数据,如果是空格,就会忽略;但是在对列表框中的内容组合时,如果是空值,被当作零来处理了。导致字符串不一致,在字典中查询不到,设置一句遇到空值的处理代码就可以。后续还有几个地方要修正,争取周末做好了发出来。

TA的精华主题

TA的得分主题

发表于 2020-4-21 21:04 | 显示全部楼层
岁月无恒老师:可否将修正后的新版共享???

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-4-21 22:14 | 显示全部楼层
wowo000 发表于 2020-4-21 21:04
岁月无恒老师:可否将修正后的新版共享???

感谢你的关注,正在修改中,修改完成后,会共享出来的。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-21 19:42 , Processed in 0.043854 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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