成本-生产投料单

舟心ty

已于 2023-01-05 06:40:27 修改

阅读量189

点赞数

分类专栏：财务文章标签：开发语言

于 2022-10-27 14:24:21 首次发布

本文链接：https://blog.csdn.net/sx01117/article/details/127551735

版权

财务专栏收录该内容

9 篇文章 0 订阅

订阅专栏

Sub 成本生产投料单()
On Error Resume Next
Dim hejihang, zonghang, riqilie, paixukey
Set s1 = Sheets("生产投料单序时簿 (2)")
paixukey = "生产投料单号"
hejihang = s1.Range("A:A").Find("合计").Row
Rows(hejihang).Delete
zonghang = Range("A10000").End(xlUp).Row
riqilie = s1.Range("A1:Z1").Find("计划发料日期").Column

For i = 2 To zonghang
    Cells(i, riqilie) = Format(Cells(i, riqilie), ddddd)
Next

Range("A1").Select
Range("A2").Select
ActiveWindow.FreezePanes = True
Range("A1").CurrentRegion.AutoFilter

Set Rng = Range("A1:Z" & zonghang)
Rng.Sort key1:=paixukey, order1:=xlAscending, Header:=xlYes

End Sub