Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

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

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

[复制链接]
 楼主| 发表于 2019-10-27 14:27 | 显示全部楼层
回复

使用道具 举报

发表于 2019-10-27 22:44 | 显示全部楼层
代码在 模块1 及 ThisWorkbook 中。
因为保存信息的时候要考虑的内容很多,如果再增加同步备份到数据总表的功能,代码会更复杂。所以备份功能采用手动按钮执行。

学员信息录入表格.zip

71.24 KB, 下载次数: 8

评分

参与人数 1学分 +2 收起 理由
caizhiliang + 2 我和小伙伴都惊呆了

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2019-10-28 12:30 | 显示全部楼层
rardge2015 发表于 2019-10-27 22:44
代码在 模块1 及 ThisWorkbook 中。
因为保存信息的时候要考虑的内容很多,如果再增加同步备份到数据总表 ...

谢谢  我用你的修改了   在删除人员的  时候出现下标越界    不知道是什么问题  您有空帮忙看下

学员信息录入表格.zip

203.26 KB, 下载次数: 6

回复

使用道具 举报

发表于 2019-10-28 13:52 | 显示全部楼层
第110行代码没有改
  1.             ' 将当前记录写入 删除的数据
  2.             Call Write_Record("删除的数据", GetLastRow("删除的数据", 1) + 1, 1)
复制代码

两个“删除的数据”,改为“删除学员”,你用变量吧。
回复

使用道具 举报

 楼主| 发表于 2019-10-28 23:01 | 显示全部楼层
你好   三个单元格   至少一个要有数值   如果没有就弹出提示窗   要怎么写
回复

使用道具 举报

 楼主| 发表于 2019-10-28 23:02 | 显示全部楼层
rardge2015 发表于 2019-10-28 13:52
第110行代码没有改

两个“删除的数据”,改为“删除学员”,你用变量吧。

你好   三个单元格   至少一个要有数值   如果没有就弹出提示窗   要怎么写
回复

使用道具 举报

 楼主| 发表于 2019-10-29 00:30 | 显示全部楼层
本帖最后由 caizhiliang 于 2019-10-29 00:46 编辑
rardge2015 发表于 2019-10-28 13:52
第110行代码没有改

两个“删除的数据”,改为“删除学员”,你用变量吧。

我修改好了    部分内容需要您这边帮忙下    谢谢

学员信息录入表格最新版.zip

202.16 KB, 下载次数: 3

回复

使用道具 举报

发表于 2019-10-29 06:16 来自手机 | 显示全部楼层
抱歉,今天出差,没空改代码。
回复

使用道具 举报

发表于 2019-10-29 06:20 来自手机 | 显示全部楼层
本帖最后由 rardge2015 于 2019-10-29 07:08 编辑

类似:
if not (a<>"" or b<>"" or c<>"") then msgbox ……

if a="" and b="" and c="" then msgbox ……
回复

使用道具 举报

 楼主| 发表于 2019-10-29 11:16 | 显示全部楼层
rardge2015 发表于 2019-10-29 06:20
类似:
if not (a"" or b"" or c"") then msgbox ……

这个我研究好了   您有空在帮忙改   不耽误您工作
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2020-1-26 23:02 , Processed in 0.078000 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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