|
发表于 2023-4-2 13:30
|
显示全部楼层
本楼为最佳答案
本帖最后由 哥儿- 于 2023-4-2 13:31 编辑
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
|
|