Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: caizhiliang

人员信息录入,求大神写信息汇总及生成唯一编码 的代码?

[复制链接]
发表于 2019-11-8 17:12 | 显示全部楼层
查询记录去重,单纯在查询结果上去重也行,就是先判断是否同名,同名的记录,循环判断6个号码是否有相同的,相同则删除一条。这个难点在于电话号码分了三列,且不保证三列都有输入,也许都不一定能保证父母的号码不错位,所以无法用 Excel 去重功能直接多列去重,只能用循环查找方式处理。

但我想说的是,得从源头分析,为什么会一个人多条记录?比如:两表间移动记录,转变成在一个表新增记录,这样就会出现多表存在同名但不同编号的记录。这个情况就不应该出现。万一,同一个人,在不同的两个表,分别登记父亲的电话及母亲的电话,是不是就变成两个不同的人了?任何程序都无法识别这两条记录是重复的。这也是一种错误。
所以要控制输入端。

基于已有历史信息,建议做一个侦错处理,搜索同名人,然后人工判断保留哪条记录。
回复

使用道具 举报

 楼主| 发表于 2019-11-8 19:01 | 显示全部楼层
rardge2015 发表于 2019-11-8 17:12
查询记录去重,单纯在查询结果上去重也行,就是先判断是否同名,同名的记录,循环判断6个号码是否有相同的 ...

谢谢老师
您辛苦了  
两个学员有两条记录主要是在体验与其他生源上面的问题,体验有收费,转为新生后也要收费,直接转新生就出现之前的费用记录被删除,只有这里会出现重复的

您的附件我现在在比对我的内容   后面复制测试  

谢谢   辛苦了
回复

使用道具 举报

 楼主| 发表于 2019-11-9 08:42 | 显示全部楼层
本帖最后由 caizhiliang 于 2019-11-10 00:48 编辑
rardge2015 发表于 2019-11-8 17:12
查询记录去重,单纯在查询结果上去重也行,就是先判断是否同名,同名的记录,循环判断6个号码是否有相同的 ...

正常体验转新生不会修改号码的  ,所以您说的情况出现的几率比较小,

学员信息录入表格9.82版本.zip

984.45 KB, 下载次数: 4

回复

使用道具 举报

发表于 2019-11-11 23:40 | 显示全部楼层
附件代码试试。你好像还提到打印出错的问题,我没有遇到,是不是已经修改好了?

BAS.zip

1.58 KB, 下载次数: 7

回复

使用道具 举报

 楼主| 发表于 2019-11-12 11:28 | 显示全部楼层
rardge2015 发表于 2019-11-11 23:40
附件代码试试。你好像还提到打印出错的问题,我没有遇到,是不是已经修改好了?

是的,已经修改好了  之前遇到查询到没有名单的还打印出来, 取消则停在这一页循环结束,后面修改了代表顺序,改善了代码提示,增加了一个遇到空白自动加1,后面改好了  现在在研究利用 cdo 把几个数据库关闭前发送到指定邮箱,或者整个文件打包发送到指定邮箱,备份
回复

使用道具 举报

 楼主| 发表于 2019-12-1 15:44 | 显示全部楼层
本帖最后由 caizhiliang 于 2019-12-1 16:24 编辑
rardge2015 发表于 2019-11-1 21:41
在模块1中,把以下两段代码重贴一下即可。过程名称就不改了。
年份会自动增加的。For 循环中用的是函数 Ye ...

老师您好   
这个年月份的代码有一个问题哦

比如今天是2019年12月1日
那么之前的2018年、2017年   之前的年份12月都只有1号   没有31号  生日就不能填 了



已经处理好了   
回复

使用道具 举报

发表于 2019-12-1 23:08 | 显示全部楼层
嗯,不好意思,漏了一句判断年份的。
  1. ' 今年当月,尚未到达的日期,不出现在菜单上
  2. If iYear = Year(Date) Then ' 漏了这句
  3.     If iMonth = Month(Date) Then iDayEnd = Day(Date)
  4. End If
  5. For iDay = 1 To iDayEnd
  6.     ……
  7. Next
复制代码


能自己处理就好,可喜可贺呀。
回复

使用道具 举报

 楼主| 发表于 2019-12-2 09:50 | 显示全部楼层
rardge2015 发表于 2019-12-1 23:08
嗯,不好意思,漏了一句判断年份的。

谢谢老师   原配总是好的  还是用你的
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 18:42 , Processed in 0.892718 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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