[已解决]请大神看一下，怎么把公式改成代码

透明世界1987

公式改成代码.zip (227.66 KB, 下载次数: 13)

2023-4-2 09:21 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

哥儿-

2023-4-2 13:30

透明世界1987 发表于 2023-4-2 13:26
感谢感谢，有报错
CountIf  这个提示子过程或函数未定义

Private Sub Worksheet_Change(ByVal Target As Range)
   
    Sheets("供应商交期追踪表").[A7:P7].AutoFilter '显示筛选箭头
   
    If Target.Address = "$B$2" Then
        
        
        
        Cells(2, 1) = "入库单号"
        Cells(2, 3) = "此单据务必随货发运，如有遗失未随货，请提前告知"
        
        Cells(2, 5) = "总行数："
        
        Cells(3, 1) = "设备号"
        Cells(3, 2) = "箱包设备"
        Cells(3, 3) = "项目名称"
        Cells(3, 4) = "部件名称"
        Cells(3, 5) = "供应商"
        Cells(3, 6) = "到货地"
        Cells(3, 7) = "要求到货日期"
        Cells(3, 8) = "合同编号"
        Cells(3, 9) = "其他备注"
        
        Range("A4:I360").ClearContents
        
        
        m = [countif(供应商交期追踪表!L:L,B2)]

        If m = 0 Then Exit Sub
        
        
        
        '[D2] = "=INDEX(供应商交期追踪表!A1:A60000,MATCH(基本生产领料单!B2,供应商交期追踪表!c1:c60000,0))"
        
        [a3:I3] = [a3:I3].Value
        [Z2] = "=供应商交期追踪表!L8=$B$2"
        
        Sheets("供应商交期追踪表").[B7:P100000].AdvancedFilter 2, [Z1:Z2], [A3:I360]
        
        [Z2] = ""
        Range("A1:I2").Borders.LineStyle = 0
        Range("A3:I3").Borders.LineStyle = 1
        Range("A4:I360").Borders.LineStyle = 0
        Range("A1") = IIf(application.CountIf(range("A4"), "*S*"), "老王公司--送货（入库）单", "老刘--送货（入库）单")
        Range("F2") = Cells(Rows.Count, "H").End(3).Row - 3
        [A2:I400].Font.Size = 10
        [a2:I3].Font.Size = 11
        [a1:I1].Font.Size = 15
        
        
        
    End If
   
   
End Sub

跳转到最佳答案楼层

哥儿-

试下
Private Sub Worksheet_Change(ByVal Target As Range)
   
    Sheets("供应商交期追踪表").[A7:P7].AutoFilter '显示筛选箭头
   
    If Target.Address = "$B$2" Then
        
        
        
        Cells(2, 1) = "入库单号"
        Cells(2, 3) = "此单据务必随货发运，如有遗失未随货，请提前告知"
        
        Cells(2, 5) = "总行数："
        
        Cells(3, 1) = "设备号"
        Cells(3, 2) = "箱包设备"
        Cells(3, 3) = "项目名称"
        Cells(3, 4) = "部件名称"
        Cells(3, 5) = "供应商"
        Cells(3, 6) = "到货地"
        Cells(3, 7) = "要求到货日期"
        Cells(3, 8) = "合同编号"
        Cells(3, 9) = "其他备注"
        
        Range("A4:I360").ClearContents
        
        
        m = [countif(供应商交期追踪表!L:L,B2)]

        If m = 0 Then Exit Sub
        
        
        
        '[D2] = "=INDEX(供应商交期追踪表!A1:A60000,MATCH(基本生产领料单!B2,供应商交期追踪表!c1:c60000,0))"
        
        [a3:I3] = [a3:I3].Value
        [Z2] = "=供应商交期追踪表!L8=$B$2"
        
        Sheets("供应商交期追踪表").[B7:P100000].AdvancedFilter 2, [Z1:Z2], [A3:I360]
        
        [Z2] = ""
        Range("A1:I2").Borders.LineStyle = 0
        Range("A3:I3").Borders.LineStyle = 1
        Range("A4:I360").Borders.LineStyle = 0
        Range("A1") = IIf(CountIf(A4, "*S*"), "老王公司--送货（入库）单", "老刘--送货（入库）单")
        Range("F2") = Cells(Rows.Count, "H").End(3).Row - 3
        [A2:I400].Font.Size = 10
        [a2:I3].Font.Size = 11
        [a1:I1].Font.Size = 15
        
        
        
    End If
   
   
End Sub

透明世界1987

哥儿- 发表于 2023-4-2 12:59
试下
Private Sub Worksheet_Change(ByVal Target As Range)
   

感谢感谢，有报错
CountIf  这个提示子过程或函数未定义

哥儿-

透明世界1987 发表于 2023-4-2 13:26
感谢感谢，有报错
CountIf  这个提示子过程或函数未定义

忘了，加个application.countif

哥儿-

透明世界1987 发表于 2023-4-2 13:26
感谢感谢，有报错
CountIf  这个提示子过程或函数未定义

Private Sub Worksheet_Change(ByVal Target As Range)
   
    Sheets("供应商交期追踪表").[A7:P7].AutoFilter '显示筛选箭头
   
    If Target.Address = "$B$2" Then
        
        
        
        Cells(2, 1) = "入库单号"
        Cells(2, 3) = "此单据务必随货发运，如有遗失未随货，请提前告知"
        
        Cells(2, 5) = "总行数："
        
        Cells(3, 1) = "设备号"
        Cells(3, 2) = "箱包设备"
        Cells(3, 3) = "项目名称"
        Cells(3, 4) = "部件名称"
        Cells(3, 5) = "供应商"
        Cells(3, 6) = "到货地"
        Cells(3, 7) = "要求到货日期"
        Cells(3, 8) = "合同编号"
        Cells(3, 9) = "其他备注"
        
        Range("A4:I360").ClearContents
        
        
        m = [countif(供应商交期追踪表!L:L,B2)]

        If m = 0 Then Exit Sub
        
        
        
        '[D2] = "=INDEX(供应商交期追踪表!A1:A60000,MATCH(基本生产领料单!B2,供应商交期追踪表!c1:c60000,0))"
        
        [a3:I3] = [a3:I3].Value
        [Z2] = "=供应商交期追踪表!L8=$B$2"
        
        Sheets("供应商交期追踪表").[B7:P100000].AdvancedFilter 2, [Z1:Z2], [A3:I360]
        
        [Z2] = ""
        Range("A1:I2").Borders.LineStyle = 0
        Range("A3:I3").Borders.LineStyle = 1
        Range("A4:I360").Borders.LineStyle = 0
        Range("A1") = IIf(application.CountIf(range("A4"), "*S*"), "老王公司--送货（入库）单", "老刘--送货（入库）单")
        Range("F2") = Cells(Rows.Count, "H").End(3).Row - 3
        [A2:I400].Font.Size = 10
        [a2:I3].Font.Size = 11
        [a1:I1].Font.Size = 15
        
        
        
    End If
   
   
End Sub

透明世界1987

哥儿- 发表于 2023-4-2 13:28
忘了，加个application.countif

加了这个提示类型不匹配