如何将每一次计算的班产量数值统计到对应的统计表中？

蜗牛等我

各位大神，求助！！！
附件表格中有三个工作表：
第一个工作表：“加工数量”       -用于汇总每个人不同日期的产品加工数量。


第二个工作表：“班产量”          -用于汇总每个人不同日期的产品加班产量。

第三个工作表：“计算”             -用于输入统计每个人每天的加工数量和班产量
操作流程及需要实现的功能：
每天将每人的班产量统计到 第三个工作表：“计算” 中，然后点击保存后：
1.将“”计算”表中 “D3”加工数量 按“姓名”和“日期”保存至第一个工作表：“加工数量”  对应位置
2.将“”计算”表中 “H3”总班产量 按“姓名”和“日期”保存至第二个工作表：“班产量”  对应位置

谢谢啦！

Qs18

Sub qs()
    Dim d1, xm
    xm = Sheet3.Range("d2").Value
    d1 = CDate(Sheet3.Range("h2").Value)
    cl = Sheet1.Cells.Find(d1).Column
    rw = Sheet1.Cells.Find(xm).Row
    Sheet1.Cells(rw, cl).Value = Sheet3.Range("d3").Value
    cl2 = Sheet2.Cells.Find(d1).Column
    rw2 = Sheet2.Cells.Find(xm).Row
    Sheet2.Cells(rw2, cl2).Value = Sheet3.Range("h3").Value
    MsgBox "ok!"
End Sub

Qs18

试试..............

Qs18

试试..........

蜗牛等我

Qs18 发表于 2024-8-4 17:14
试试..........

谢谢，非常感谢你 很好用