Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
楼主: caizhiliang

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

[复制链接]
 楼主| 发表于 2019-11-6 20:31 | 显示全部楼层
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
rardge2015 发表于 2019-11-6 20:22
你加了密码。
代码是有这个功能的,我发现工作表是:删除学员,但在保存信息的代码中是:删除人员,也许就 ...

密码  是   caizhiliang
回复

使用道具 举报

 楼主| 发表于 2019-11-6 20:31 | 显示全部楼层
rardge2015 发表于 2019-11-6 20:22
你加了密码。
代码是有这个功能的,我发现工作表是:删除学员,但在保存信息的代码中是:删除人员,也许就 ...

您帮忙看下 麻烦了
回复

使用道具 举报

发表于 2019-11-6 21:01 | 显示全部楼层
  1. ShtName(1) = "在读老生": ShtName(2) = "新进学员": ShtName(3) = "回流生源": ShtName(4) = "体验学员": ShtName(5) = "辅托学员": ShtName(6) = "删除人员"
复制代码

把最后的“人员”改为“学员”
  1. ShtName(1) = "在读老生": ShtName(2) = "新进学员": ShtName(3) = "回流生源": ShtName(4) = "体验学员": ShtName(5) = "辅托学员": ShtName(6) = "删除学员"
复制代码
回复

使用道具 举报

 楼主| 发表于 2019-11-6 21:10 | 显示全部楼层
rardge2015 发表于 2019-11-6 21:01
把最后的“人员”改为“学员”

唉  原来是我蠢
谢谢大神
回复

使用道具 举报

 楼主| 发表于 2019-11-7 11:56 | 显示全部楼层
本帖最后由 caizhiliang 于 2019-11-7 23:02 编辑
rardge2015 发表于 2019-11-6 21:01
把最后的“人员”改为“学员”

老师您好使用过长中发现这个问题   您也在代码里面有写  
'同表老记录,询问覆盖或新增
这样有一个问题就是其他表里面的记录就无法选择增加为新纪录了  
您要是有闲余时间   帮忙修改下  
改为查询所有表格,有词条记录就提示覆盖或者另存
提示方式能否更改为更直观的   
一个框弹出来  三个选项   1、覆盖 2、存为新纪录 3、取消

密码还是原来那个   caizhiliang

感谢您了

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

992.65 KB, 下载次数: 1

回复

使用道具 举报

发表于 2019-11-7 15:22 | 显示全部楼层
你本意是在不同表之间移动记录,现在转变成任意编号都要检测是否覆盖、移动、新增,这有意义?
请确定一下是否是这个流程?
流程.jpg
回复

使用道具 举报

 楼主| 发表于 2019-11-7 15:32 | 显示全部楼层
本帖最后由 caizhiliang 于 2019-11-7 15:43 编辑
rardge2015 发表于 2019-11-7 15:22
你本意是在不同表之间移动记录,现在转变成任意编号都要检测是否覆盖、移动、新增,这有意义?
请确定一下 ...

是的  很清晰的思路
谢谢老师


顺便咨询下   点名单打印里面当体验的另存一条记录时,点名单查询会出现重复记录,如何写去重代码  网上找了很多  但是都是单条件的   没有合适的  能否顺便帮忙写下  不胜感激

B6:D20 这是第一条件
F6:F20这是第二条件

BCD任意单元格与其它行任意单元格   
只要名字和电话两者皆出现重复的就删除
单一条件没有办法满足,因为孩子的名字会重复
有两个条件就不会了
只要有重复的就删除
回复

使用道具 举报

发表于 2019-11-7 16:26 | 显示全部楼层
好,一个个来。进博会期间,各地领导来沪我们接待任务重,整天醉醺醺无法写代码
你也是个人才,自己不会写代码,靠搜集代码还能凑出个规模不小的应用程序。
电话号码,可能会有三个,只要其中“一个号码+姓名”与其他行重复,就删除重复的,只保留一行记录?
回复

使用道具 举报

 楼主| 发表于 2019-11-7 21:53 | 显示全部楼层
本帖最后由 caizhiliang 于 2019-11-7 23:03 编辑
rardge2015 发表于 2019-11-7 16:26
好,一个个来。进博会期间,各地领导来沪我们接待任务重,整天醉醺醺无法写代码
你也是个人才,自己不 ...

老师辛苦了  
接待是一件累活  
有这些内容主要还是您支持
您有空再帮忙写
其实可以换个思路来写去重的这部分代码  
在多条件查找的过程
我们是三个条件查找的
如果在查找的过程发现所引用的内容有重复的就只提取一条,那么其实就解决问题了
这样是从根本解决问题,多条件查找后再写去重的只是亡羊补牢的做法
感谢老师

附上最新附件
附上最新附件附上最新附件
附上最新附件

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

992.65 KB, 下载次数: 3

回复

使用道具 举报

发表于 2019-11-8 16:31 | 显示全部楼层
把 模块1 的代码全部复制过去,你也仔细读一遍,看看是否有误,我没在你的文件上做测试。
关于查询去重,我稍后回复。

学员信息录入表格9.8版本-Roger.zip

25.94 KB, 下载次数: 5

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2020-1-18 03:26 , Processed in 0.062400 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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