请教各位大神

Landlord007

在目录中有个按钮，点击运行增加一下功能：一、在D1-D4各文件夹下每个工作簿中的审定表左下角（审计结论后增加审计结论：经检查余额可确认。），在D5-D6各文件夹下每个工作簿中的审定表左下角（审计结论后：经检查发生额可确认。）二、各工作簿中的检查表如有数据，在核对内容项下（1-4项下打√）

shiruiqiang

-------------------

wanghan519

在你的代码上改的，只试了一个文件，请小心检查使用

512008404

  仿照原代码实现的。主要代码如下。        
           'D1-D4 审计结论后增加审计结论：经检查余额可确认。
            If (InStr(1, f1.Path, "D1") Or InStr(1, f1.Path, "D2") Or InStr(1, f1.Path, "D3") Or InStr(1, f1.Path, "D4")) And InStr(1, mc, "审定表") Then
                Set rng6 = sh.Cells.Find("审计结论", , , , , , 1)
                If Not rng6 Is Nothing Then rng6.Value = br(6, 1)
            End If
            
            'D5-D6 审计结论后增加审计结论：经检查发生额可确认。
            If (InStr(1, f1.Path, "D5") Or InStr(1, f1.Path, "D6")) And InStr(1, mc, "审定表") Then
                Set rng7 = sh.Cells.Find("审计结论", , , , , , 1)
                If Not rng7 Is Nothing Then rng7.Value = br(7, 1)
            End If

Landlord007

wanghan519 发表于 2023-6-23 16:38
在你的代码上改的，只试了一个文件，请小心检查使用

谢谢，使用了一下，审计结论出不来，检查表正常~麻烦大神抽时间帮忙看下，谢谢

wanghan519

Landlord007 发表于 2023-6-23 18:12
谢谢，使用了一下，审计结论出不来，检查表正常~麻烦大神抽时间帮忙看下，谢谢

看了一下，首先D7文件夹没有处理，然后有些审定表里的审计结论后面的冒号是半角，所以没搜索到，把代码里的冒号删除吧

Landlord007

Landlord007 发表于 2023-6-23 18:12
谢谢，使用了一下，审计结论出不来，检查表正常~麻烦大神抽时间帮忙看下，谢谢

麻烦大神再看下，审计结论的这段程序总是实现不了~
               If InStr(mc, "审定") Then
                Set rng11 = sh.Cells.Find("审计结论", , , , , , 1)
                If (InStr("12345", f1n)) Then
                    If Not rng11 Is Nothing Then rng11.Value = "审计结论：经审计后无调整事项，余额可确认。"
                ElseIf (InStr("67", f1n)) Then
                    If Not rng11 Is Nothing Then rng11.Value = "审计结论：经审计后无调整事项，发生额可确认。"
                End If
偶尔能运行起来~大部分都不能运行

Landlord007

麻烦看下~谢谢