VBA代码、个人简历模板

这是一个简历模板，它实现了两个功能，填写简历保存到数据库里和查询个人简历。

做人事管理的用这个模板蛮好的，把表格给别人填，填好你只要保存到数据库就行了，如果领导要看某个人，你只要输入姓名就可以一下调出某人的档案。

如果需要模板就去公众号上下载

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

填写好个人信息点击保存简历就保存到了数据库表里。

一寸照片按名字保存到这个模板的同个文件夹下面方便查询的时候调用图片。

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

查询的时候只要在姓名那里输入某个人的名字点击查看就可以调出他的信息。

下面是代码分享

讨论一个话题：如何删除合并单元格里的内容。路过的大师说说你的方法

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