根据计划的表中的部门，料号，日期，计划量，计算耗材需求量

小白兔3399

大家好：

工作中有一个表是常态化长期要用的，因为数据量比较大，也会经常变动，如果用公式计算的话会非常卡非常慢，
希望能通过VBA 快速计算。感谢！ 耗材用量表.zip (21.36 KB, 下载次数: 7)

2023-5-4 23:16 上传

点击文件名下载附件

mmwwdd

Private Sub CommandButton1_Click()
Set d = CreateObject("scripting.dictionary")
With Sheets("生产计划")
  col = .Cells(2, Columns.Count).End(1).Column
  r = .Cells(.Rows.Count, 3).End(3).Row
  For i = 3 To r
    For j = 15 To col
       s = .Cells(i, 7) & "-" & .Cells(i, 3) & "-" & .Cells(2, j)
        d(s) = .Cells(i, j)
    Next
  Next
End With
With Sheets("标准用量")
    col = .Cells(2, Columns.Count).End(1).Column
    r = .Cells(.Rows.Count, 3).End(3).Row
    For i = 3 To r
       For j = 8 To col
         s = .Cells(i, 2) & "-" & .Cells(i, 3) & "-" & .Cells(2, j)
         If d.exists(s) Then
            .Cells(i, j) = .Cells(i, 6) * d(s)
         Else
            .Cells(i, j) = 0
         End If
       Next
    Next
End With
End Sub

mmwwdd

mmwwdd

就是这么回事吧

shiruiqiang

ykcbf1100

参与一下。

小白兔3399

ykcbf1100 发表于 2023-5-5 08:10
参与一下。

非常感谢，太强大了！

小白兔3399

shiruiqiang 发表于 2023-5-5 07:26

非常感谢，太强大了！

小白兔3399

mmwwdd 发表于 2023-5-5 02:59
就是这么回事吧

是的，是我要的效果，太厉害了，非常感谢！