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

caizhiliang

rardge2015 发表于 2019-11-6 20:22
你加了密码。
代码是有这个功能的，我发现工作表是：删除学员，但在保存信息的代码中是：删除人员，也许就 ...

密码  是   caizhiliang

caizhiliang

rardge2015 发表于 2019-11-6 20:22
你加了密码。
代码是有这个功能的，我发现工作表是：删除学员，但在保存信息的代码中是：删除人员，也许就 ...

您帮忙看下 麻烦了

rardge2015

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) = "删除学员"

复制代码

caizhiliang

rardge2015 发表于 2019-11-6 21:01
把最后的“人员”改为“学员”

唉  原来是我蠢
谢谢大神

caizhiliang

rardge2015 发表于 2019-11-6 21:01
把最后的“人员”改为“学员”

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

密码还是原来那个   caizhiliang

感谢您了

rardge2015

你本意是在不同表之间移动记录，现在转变成任意编号都要检测是否覆盖、移动、新增，这有意义？
请确定一下是否是这个流程？

caizhiliang

rardge2015 发表于 2019-11-7 15:22
你本意是在不同表之间移动记录，现在转变成任意编号都要检测是否覆盖、移动、新增，这有意义？
请确定一下 ...

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


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

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

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

rardge2015

好，一个个来。进博会期间，各地领导来沪我们接待任务重，整天醉醺醺无法写代码
你也是个人才，自己不会写代码，靠搜集代码还能凑出个规模不小的应用程序。
电话号码，可能会有三个，只要其中“一个号码+姓名”与其他行重复，就删除重复的，只保留一行记录？

caizhiliang

rardge2015 发表于 2019-11-7 16:26
好，一个个来。进博会期间，各地领导来沪我们接待任务重，整天醉醺醺无法写代码
你也是个人才，自己不 ...

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

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

rardge2015

把 模块1 的代码全部复制过去，你也仔细读一遍，看看是否有误，我没在你的文件上做测试。
关于查询去重，我稍后回复。