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

caizhiliang · 发表于 2019-10-25 19:06

本帖最后由 caizhiliang 于 2019-11-3 10:34 编辑

感谢大神鼎力相助

rardge2015 · 发表于 2019-10-27 22:44

代码在模块1 及 ThisWorkbook 中。
因为保存信息的时候要考虑的内容很多，如果再增加同步备份到数据总表的功能，代码会更复杂。所以备份功能采用手动按钮执行。

rardge2015 · 发表于 2019-10-31 17:51

本帖最后由 rardge2015 于 2019-10-31 17:57 编辑

做了个多菜单的演示，见附件。省市县原来有重复的数据，已删除。标题行也删除了。
编号，学员信息删除了，但在删除学员的信息中，这个编号还是存在的，所以不能把编号拿出来重复使用啊。你是不是要拿出来重复使用？
其他暂无时间修改。

caizhiliang · 发表于 2019-10-31 22:24

rardge2015 发表于 2019-10-31 17:51
做了个多菜单的演示，见附件。省市县原来有重复的数据，已删除。标题行也删除了。
编号，学员信息删除了， ...

大神最后帮我一个忙吧
添加一个选项
当我们读取记录后
读取的记录被修改后
询问是否覆盖  是则覆盖（这个已经有）
选择取消后
再加一个是否保存为新纪录
选择是  则添加为新纪录
选择否就取消操作

就是一个人一个科目一条记录
报新的科目又是一个新的记录

当然如果可以的话您写给我的那个日期的帮我也写入两个日期选择的里面（I3和I5），您的代码太高深了  ，恕我真的看不懂

感谢大神伸手援助

rardge2015 · 发表于 2019-11-1 21:41

在模块1中，把以下两段代码重贴一下即可。过程名称就不改了。
年份会自动增加的。For 循环中用的是函数 Year(Date)，取当天日期所在年份。

' 子过程：建立弹出菜单（年日月）
Sub Menu_Date(BarMain As CommandBar)
Dim BarDate As CommandBarPopup
Dim iYear As Integer
Set BarDate = BarMain.Controls.Add(Type:=msoControlPopup)
With BarDate
.caption = "年月日"
' 建立年份菜单项
For iYear = 2000 To Year(Date)
' 建立（月、日）子菜单项
Call Menu_Date_YearGroup(BarDate, iYear)
Next
End With
Set BarDate = Nothing
End Sub
' 根据年份，建立（月、日）子菜单项
Private Sub Menu_Date_YearGroup(BarParent As CommandBarPopup, iYear As Integer)
Dim BarYear As CommandBarPopup, BarMonth As CommandBarPopup, BarDay As CommandBarButton
Dim iMonth As Integer, iDay As Integer, iDayEnd As Integer
Set BarYear = BarParent.Controls.Add(Type:=msoControlPopup)
With BarYear
.caption = iYear
For iMonth = 1 To 12
Set BarMonth = .Controls.Add(Type:=msoControlPopup)
With BarMonth
.caption = iMonth
Select Case iMonth
Case 1, 3, 5, 7, 8, 10, 12: iDayEnd = 31
Case 4, 6, 9, 11: iDayEnd = 30
Case 2: iDayEnd = Day(DateSerial(iYear, 3, 0)) ' 解决闰年问题
End Select
For iDay = 1 To iDayEnd
Set BarDay = .Controls.Add(Type:=msoControlButton)
With BarDay
.caption = iDay
.OnAction = "Menu_Date_Write(" & iYear & "," & iMonth & "," & iDay & ")"
End With
Next
End With
Next
End With
End Sub

复制代码

caizhiliang · 发表于 2019-10-25 19:08

自己先顶上去

caizhiliang · 发表于 2019-10-25 19:52

博大精深继续努力耕耘

caizhiliang · 发表于 2019-10-25 21:18

这是要沉下去了吗

caizhiliang · 发表于 2019-10-25 21:34

应该是沉下去了

rardge2015 · 发表于 2019-10-26 08:48

给你思路吧。
关于唯一编号：
1、在辅助表中指定一个单元格用于记录序号；
2、单元格初值为 1；
3、需要生成编号的时候，读取这个单元格的值，作为编号的一部分，比如：[学]年月日 & 序号，作为“字符串”，无论移动到哪里，都不会改变值；
4、保存信息成功，则将这个单元格的值 + 1，否则，不改变。

关于备份：
你都能写出这么多代码了，备份写不出？
直接从老生和新生的表中，把数据块读取，然后复制到备份表，不就好了么？

caizhiliang · 发表于 2019-10-26 09:16

rardge2015 发表于 2019-10-26 08:48
给你思路吧。
关于唯一编号：
1、在辅助表中指定一个单元格用于记录序号；

那些代码不是我写的是网上找的，我修改了里面简单的内容转化而来的，vba不懂函数会一部分

caizhiliang · 发表于 2019-10-26 09:24

求大神帮忙下我不会的都网上找找到合适的加以修改

rardge2015 · 发表于 2019-10-26 10:43

新生、老生、已读班，以什么作为区别？
编号，有什么要求？

caizhiliang · 发表于 2019-10-26 15:50

rardge2015 发表于 2019-10-26 10:43
新生、老生、已读班，以什么作为区别？
编号，有什么要求？

新生、老生以状态那格为区别，编号没有要求位数4位数就可以

		自动登录	找回密码
密码			注册

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

评分

评分

评分

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

评分

评分

评分

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