
这份简历模板具备双重作用,一是允许用户填写并保存简历至数据库,二是支持用户检索个人的简历信息。
使用这个人事管理模板非常合适,将表格提供给他人填写,填写完毕后只需将其保存在数据库中,若领导需要查看某位员工的资料,只需输入姓名即可迅速调取该员工的档案。
如果需要模板就去公众号上下载

内容是可以修改的,根据自己需求改动

填写好个人信息点击保存简历就保存到了数据库表里。
将寸照以姓名命名存入该模板所在文件夹,便于检索时调用图像。

这是数据库表,保存的时候它会按每条递增

在查询过程中,只需在姓名栏内输入特定个体的名字,随后点击搜索按钮,便能成功调取该人的详细信息。
下面是代码分享
探讨一个议题:关于如何移除或清除合并单元格中的信息。路过的专家,能否分享一下您的处理技巧?
在Worksheet SelectionChange事件中,对指定的Range对象进行操作,参数名为Target。
根据活动单元格的地址(0,0)进行选择。
Case "V10" '保存简历
If "" Then
Dim bc 为 Range 类型的变量,sp 为 Shape 类型的变量,su
针对每个位于“o10:o20, q10:q13, s10:s12”范围内的单元格bc进行操作。
n = n + 1
在"数据"工作表中,第1行第n列的单元格被设置为bc值。
在"数据"工作表中,选取从底部向上数第n行的单元格,然后将其向上偏移一行,将其值设置为bc矩阵的第一行第二列的元素。
Next
For Each sp In Sheet1.Shapes
If sp.Type = 11 Then
sp.Delete