在Excel表格内核对照片是否提交

APPLE123

在Excel表格内核对照片是否提交


1、本表“证号”为12位数字。
2、“照片”文件内的文件名称以证号命名
3、表格内人员，有的已经提交照片，在“照片”文件内，有的还没有提交照片（如刘备）
4、“照片”文件内的照片名称，有的在表格内，有的不在表格内（如360200020020.jpg）
5、根据本表“证号”信息和“照片”文件内的文件名称进行核对，
       已提交照片的，在H列的“核对结果”对应单元格填写“OK”
       未提交照片的，在H列的“核对结果”对应单元格填写“未找到”
       详见H列。
麻烦老师帮忙看看可否VBA解决，谢谢！

APPLE123

静待大神出现。。。

cowrn

看看是否合适

Sub 照片核对()

    Dim dic As Object
    Dim arr
    Dim i&
    Dim MyPath As String, PicName As String
    Dim sRow&
   
    sRow = Cells(Rows.Count, 4).End(xlUp).Row
    arr = Sheet1.Range([a3], Cells(sRow, 9))
    Set dic = CreateObject("scripting.dictionary")
   
    MyPath = ThisWorkbook.Path & "\照片\"
    PicName = Dir(MyPath & "*.jpg")
   
    Do Until PicName = ""
        dic(Split(PicName, ".")(0)) = ""
        PicName = Dir
    Loop
   
    For i = 1 To UBound(arr)
        If dic.exists(arr(i, 4)) Then
            arr(i, 8) = "OK"
        Else
            arr(i, 8) = "未找到"
        End If
   
    Next
   
    [a3].Resize(UBound(arr), UBound(arr, 2)) = arr

End Sub

准提部林

兩個定義名稱//一條公式
CheckPicture.rar (119.79 KB, 下载次数: 18)

2022-11-28 20:43 上传

点击文件名下载附件

APPLE123

cowrn 发表于 2022-11-28 20:27
看看是否合适

Sub 照片核对()

谢谢老师的帮助！

APPLE123

准提部林 发表于 2022-11-28 20:44
兩個定義名稱//一條公式

请教老师：
1、启用宏才能得到正确的结果，但是却看不到宏代码？请问有宏吗？代码呢？
2、将表内3个公式复制到其他工作簿对应的单元格内却无法得到正确的结果，为何？

请老师指点一下，谢谢！

准提部林

APPLE123 发表于 2022-11-29 12:11
请教老师：
1、启用宏才能得到正确的结果，但是却看不到宏代码？请问有宏吗？代码呢？
2、将表内3个公 ...

那是宏表函數, 須啟用宏!!!
要先學會定義名稱//不同檔案都要定義一次
1) MyPath:
=LEFT(CELL("filename",$A$1),FIND("[",CELL("filename",$A$1))-1)
不須加工作表名稱, 定義完會自動加入

2) iFile:
=FILES(MyPath&"照片\"&"*.jpg")

最後就用工作表單元格的公式~~
=IF(ISNA(MATCH(D3&".jpg",iFile,)),"未找到","OK")

自行學著套用吧!

APPLE123

准提部林 发表于 2022-11-29 14:14
那是宏表函數, 須啟用宏!!!
要先學會定義名稱//不同檔案都要定義一次
1) MyPath:

谢谢老师，我又长见识了！