简历保存和查询

徐海洋

请高师帮我解决一下，谢谢


简历保存.7z (71.74 KB, 下载次数: 12)

2024-5-30 08:04 上传

点击文件名下载附件

3190496160

Sub 录入()
Dim ar As Variant
Dim rn As Range
sfz = [c5]
mc = [c2] & "-" & [c5]
ar = Array([c2], [e2], [e3], [c4], [c5], [f4], [g2], [c3], [g3], [f5], [h5])
For i = 0 To UBound(ar)
    If ar(i) = "" Then
        m = m + 1
    End If
Next i
If m <> "" Then MsgBox "请把信息录入完整！": Exit Sub
For Each shap In ActiveSheet.Shapes
    Set Rng = shap.TopLeftCell
    k = Rng.Address
    If k = "$H$2" Then
        shap.Copy
        With ActiveSheet.ChartObjects.Add(0, 0, shap.Width, shap.Height + 5).Chart
            Application.Wait Now + TimeValue("00:00:01")
            .ChartArea.Select
            .Paste
            .Export ThisWorkbook.Path & "\照片\" & mc & ".jpg"
            .Parent.Delete
        End With
    End If
Next shap
With Sheets("明细表")
     r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
     Set rn = .Range("f1:f" & r).Find(sfz, , , , , , 1)
     If Not rn Is Nothing Then MsgBox "身份证号重复，请核查后重试！": Exit Sub
     .Cells(r, 2).Resize(1, 11) = ar
     .Cells(r, 1) = r - 2
     .Cells(r, 1).Resize(1, 12).Borders.LineStyle = 1
End With
MsgBox "保存成功！", 64, "提醒！"
End Sub

3190496160

Desktop.rar (84.81 KB, 下载次数: 25)

2024-5-30 10:10 上传

点击文件名下载附件

3190496160

图片应该是事先保存在一个文件夹内的吧？咋会要求把图片保存到一个文件夹内呢？

徐海洋

3190496160 发表于 2024-5-30 10:10

老师，您这数据答非所问，谢谢您的辛苦

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1617191&fromguid=hot&extra=&mobile&_dsign=f096178f
在线表单

excel玉米

将附件工作表解压后替换你原来的工作表

3190496160

徐海洋 发表于 2024-5-30 10:18
老师，您这数据答非所问，谢谢您的辛苦

哈哈哈哈，真是无语啊，无语啊

徐海洋

excel玉米 发表于 2024-5-30 11:01
将附件工作表解压后替换你原来的工作表

谢谢老师指教，辛苦了，照片插不进来

天地一相

3190496160 发表于 2024-5-30 11:44
哈哈哈哈，真是无语啊，无语啊

同感，真的是无语。