VBA智能填充公式

任我逍遥

2-10表是固定模板的对账单还会继续增加，格式固定但是账单的行数不固定，现在要求：在每个账单表的I列也就是“备注”列有账单内容的行自动填充公式“=IF(F9<>H9,"错","")”请问要如何用VBA一键智能生成呢？
难点：
1.VBA代码要先判断账单的实际内容行，只需要填充有账单内容对应的I列；
2.对应的I列填入上面的公式
3.在汇总表的“应付”列自动录入当日的汇总金额

智能对账2016.zip (10.81 KB, 下载次数: 9)

2016-8-13 12:46 上传

点击文件名下载附件

非常感谢您的帮忙！！！

zax010

Sub zz()
    Dim d, sh As Worksheet
    Set d = CreateObject("Scripting.Dictionary")
    For Each sh In Sheets
        If sh.Name <> "汇总" Then
            With sh
                d(Val(.Name)) = .[f65536].End(3)
                For i = 9 To .[b65536].End(3).Row
                    .Cells(i, 9) = "=IF(F" & i & "<>H" & i & ",""错"","""")"
                Next
            End With
        End If
    Next
    With Sheet1
        For i = 5 To .[b65536].End(3).Row
            .Cells(i, 3) = d(Day(.Cells(i, 2).Value))
        Next
    End With
End Sub

zax010

>>>>>>>>>>>>>>>>>>>>


智能对账2016.rar (15.31 KB, 下载次数: 41)

2016-8-13 14:52 上传

点击文件名下载附件

任我逍遥

把公司换乘vlookup函数 .Cells(i,8)="=VLOOKUP(C"&i&",[业务.xls]货运!$J$1:$Y$1390,16,0)"，这样但是说明语法错误，需要怎样修正呢？

zax010

任我逍遥 发表于 2016-8-13 17:09
把公司换乘vlookup函数 .Cells(i,8)="=VLOOKUP(C"&i&",[业务.xls]货运!$J$1:$Y$1390,16,0)"，这样但是说明 ...

Cells(i, 8) = "=VLOOKUP(C" & i & ",[业务.xls]货运!$J$1:$Y$1390,16,0)"
连接符 & 前后均应有空格。

任我逍遥

代码运行过程中老是不断弹出这个界面，怎样加代码设置取消这个提醒呢？

zax010

任我逍遥 发表于 2016-8-14 16:32
代码运行过程中老是不断弹出这个界面，怎样加代码设置取消这个提醒呢？

代码前部加
Application.AskToUpdateLinks = False
结束前加
Application.AskToUpdateLinks = True

任我逍遥

你这么厉害，可以再加个更负责的要求不？就是在代码运行结束后自动在工作簿下生成一张新表，表中列出所有表格中I列内容是“错”的行，甚至增加一个判断可以选择只列出哪些表格中的含有“错”的行，就更加完美了^_^，听起来就很复杂