这是一个简历模板，它实现了两个功能，填写简历保存到数据库里和查询个人简历。
做人事管理的用这个模板蛮好的，把表格给别人填，填好你只要保存到数据库就行了，如果领导要看某个人，你只要输入姓名就可以一下调出某人的档案。
如果需要模板就去公众号上下载
内容是可以修改的，根据自己需求改动
填写好个人信息点击保存简历就保存到了数据库表里。
一寸照片按名字保存到这个模板的同个文件夹下面方便查询的时候调用图片。
这是数据库表，保存的时候它会按每条递增
查询的时候只要在姓名那里输入某个人的名字点击查看就可以调出他的信息。
下面是代码分享
讨论一个话题：如何删除合并单元格里的内容。路过的大师说说你的方法
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case ActiveCell.Address(0, 0)
Case "V10" '保存简历
If [p10] <> "" Then
Dim bc As Range, sp As Shape, su
For Each bc In Range("o10:o20, q10:q13, s10:s12")
n = n + 1
Worksheets("数据").Cells(1, n) = bc
Worksheets("数据").Cells(Rows.Count, n).End(xlUp).Offset(1, 0) = bc(1, 2)
Next
For Each sp In Sheet1.Shapes
If sp.Type = 11 Then
sp.Delete
End If
Next
For Each su In Range("o10:o20, q10:q13, s10:s12")
su(1, 2) = ""
Next
Else
MsgBox "请先写内容"
End If
[p10].Select
Case "V14" '查看简历
If [p10] <> "" Then
Dim sr, sr2, dj As Range, dj2 As Range, dj3 As Range, zhi As Range
For Each dj In Range("o10:o20, q10:q13, s10:s12")
Set dj2 = Worksheets("数据").Range("a:a").Find([p10])
Set dj3 = Worksheets("数据").Range("a1").EntireRow.Find(dj)
If dj2 Is Nothing Then MsgBox "没有你要的名字": End
Set zhi = Intersect(dj2.EntireRow, dj3.EntireColumn)
dj(1, 2) = zhi
Next
sr = Dir(ThisWorkbook.Path & "\" & [p10].Value & ".jpg")
If sr <> "" Then
sr2 = ThisWorkbook.Path & "\" & sr
Sheet1.Shapes.AddPicture sr2, 1, 1, [u10].Left + 2.5, [u10].Top + 2.5, [u10].Width - 5, [u10:u13].Height - 5
Else
MsgBox "没有此人照片是否名字有误"
End If
Else
MsgBox "请先姓名"
End If
[p10].Select
End Select
End Sub