文件夹内没有单元格内同名文件变色提醒

sd_liqi

如图
就是为了防止文件没有存档，所以检测没有的文件提醒，存档文件可以指定PDF格式，由于附件大小限制，文件使用TXT改的后缀，不能正常打开，谢谢老师赐教

约定的童话

先把文件夹内文件名称提取到单元格再进行比较

Q155133209

约定的童话 发表于 2019-12-18 09:44
先把文件夹内文件名称提取到单元格再进行比较

哈哈哈哈，你倒是早啊

约定的童话

Q155133209 发表于 2019-12-18 09:52
哈哈哈哈，你倒是早啊

还好还好

sd_liqi

大神，别光聊天呀，给修改下文件吧，我小白

sd_liqi

约定的童话 发表于 2019-12-18 10:45
还好还好

大神，别光聊天呀，给修改下文件吧，我小白

sd_liqi

约定的童话 发表于 2019-12-18 10:45
还好还好

老师，文件名是提取出来了，但是含有后缀没法对比啊

Sub 提取同目录下文件名()
    Dim file As String
    Dim n As Integer
    n = 1
    file = Dir(ActiveWorkbook.Path & "\文件\")
    Do Until Len(file) = 0
        Range("z" & n) = file
        ActiveSheet.Hyperlinks.Add anchor:=Range("z" & n), Address:=file
    n = n + 1
    file = Dir
    Loop
    MsgBox "报告长官，该文件夹共有文件" & n & "个，汇报完毕，请指示！"
End Sub

提取的文件名
20180701-CG01-DN-LS-01-合同.pdf
20180701-CG01-DN-LS-01-结算.jpg
20180704-YS01-SJ-HW-01-合同.pdf
20180704-YS01-SJ-HW-01-结算.jpg
20190503-XS01-SJ-LS-02-合同.pdf
20190503-XS01-SJ-LS-02-结算.jpg


单元格内的对比编号

20180701-CG01-DN-LS-01-合同        20180701-CG01-DN-LS-01-结算
20190503-XS01-SJ-LS-02-合同        20190503-XS01-SJ-LS-02-结算
20180704-YS01-SJ-HW-01-合同        20180704-YS01-SJ-HW-01-结算
-01-DN-LS-03-合同        -01-DN-LS-03-结算
-02--LS-04-合同        -02--LS-04-结算
-03--LS-05-合同        -03--LS-05-结算
-04--HW-02-合同        -04--HW-02-结算

zhenghui13

rng=split.(Name,".")
if rng(0)=cells(x,x).value then cells(x,x).interior.colorindex=0

sd_liqi

约定的童话 发表于 2019-12-18 09:44
先把文件夹内文件名称提取到单元格再进行比较

=LEFT(Z1,LEN(Z1)-4)   这个方法就怕后缀不是4位