依据BOM一键生成配方表模版

excel玉米

alanlad 发表于 2024-7-29 20:13
老师好

alanlad

excel玉米 发表于 2024-7-30 16:46
还有，你的模版sheet设置了Worksheet_Activate，这段代码还用的复制粘贴，我的excel都被闪死了。要提取成本 ...

我用的比较笨的办法，老师有好办法教我下吧，谢谢

alanlad

excel玉米 发表于 2024-7-26 16:30

老师，右侧有很多单价和总价重复出现的问题请问如何规避

excel玉米

alanlad 发表于 2024-7-31 09:55
老师，右侧有很多单价和总价重复出现的问题请问如何规避

excel玉米

alanlad 发表于 2024-7-31 09:49
我用的比较笨的办法，老师有好办法教我下吧，谢谢

1. Private Sub Worksheet_Activate()
   
2. Dim dic As Object, arr As Variant, i%
   
3. Dim sh As Worksheet
   
4. Set dic = CreateObject("Scripting.Dictionary")
   
5. For Each sh In Worksheets
   
6.   If sh.Name = "成品配方" Or sh.Name = "半成品配方" Then
   
7.      arr = sh.Cells(1, 1).CurrentRegion
   
8.   End If
   
9.   If sh.Name = "成品配方" Then
   
10.      For i = 2 To UBound(arr)
    
11.        dic(arr(i, 1)) = ""
    
12.      Next i
    
13.      With Worksheets("设置")
    
14.        .Cells(1, 1).Resize(10000, 1).Clear
    
15.        .Cells(1, 1).Value = "成品名称"
    
16.        .Cells(2, 1).Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    
17.      End With
    
18.      dic.RemoveAll
    
19.   ElseIf sh.Name = "半成品配方" Then
    
20.      For i = 2 To UBound(arr)
    
21.        dic(arr(i, 2)) = ""
    
22.      Next i
    
23.      With Worksheets("设置")
    
24.        .Cells(1, 2).Resize(10000, 1).Clear
    
25.        .Cells(1, 2).Value = "成品名称"
    
26.        .Cells(2, 2).Resize(dic.Count, 1).Value = Application.Transpose(dic.keys)
    
27.      End With
    
28.      dic.RemoveAll
    
29.   End If
    
30. Next sh
    
31. End Sub

复制代码

alanlad

excel玉米 发表于 2024-7-31 12:41

感谢老师的知道

另外我想在RANGE("H2")插入一个公式，可是太长，在VBE里一直提示红色无法运行，麻烦老师帮我看看改怎么写代码
公式如下：=INT((SUMIFS(生产领料序时簿!K:K,生产领料序时簿!M:M,IF(MONTH(TODAY())-1=0,YEAR(TODAY())-1&"-12",YEAR(TODAY())&"-"&MONTH(TODAY())-1),生产领料序时簿!H:H,B2)+SUMIFS(生产领料序时簿!K:K,生产领料序时簿!M:M,IF(MONTH(TODAY())-2=0,YEAR(TODAY())-1&"-12",IF(MONTH(TODAY())-2=-1,YEAR(TODAY())-1&"-11",YEAR(TODAY())&"-"&MONTH(TODAY())-2)),生产领料序时簿!H:H,B2)+SUMIFS(生产领料序时簿!K:K,生产领料序时簿!M:M,IF(MONTH(TODAY())-3=0,YEAR(TODAY())-1&"-12",IF(MONTH(TODAY())-3=-1,YEAR(TODAY())-1&"-11",IF(MONTH(TODAY())-3=-2,YEAR(TODAY())-1&"-10",YEAR(TODAY())&"-"&MONTH(TODAY())-3))),生产领料序时簿!H:H,B2)+SUMIFS(生产领料序时簿!K:K,生产领料序时簿!M:M,IF(MONTH(TODAY())-4=0,YEAR(TODAY())-1&"-12",IF(MONTH(TODAY())-4=-1,YEAR(TODAY())-1&"-11",IF(MONTH(TODAY())-4=-2,YEAR(TODAY())-1&"-10",IF(MONTH(TODAY())-4=-3,YEAR(TODAY())-1&"-9",YEAR(TODAY())&"-"&MONTH(TODAY())-4)))),生产领料序时簿!H:H,B2)+SUMIFS(生产领料序时簿!K:K,生产领料序时簿!M:M,IF(MONTH(TODAY())-5=0,YEAR(TODAY())-1&"-12",IF(MONTH(TODAY())-5=-1,YEAR(TODAY())-1&"-11",IF(MONTH(TODAY())-5=-2,YEAR(TODAY())-1&"-10",IF(MONTH(TODAY())-5=-3,YEAR(TODAY())-1&"-9",IF(MONTH(TODAY())-5=-4,YEAR(TODAY())-1&"-8",YEAR(TODAY())&"-"&MONTH(TODAY())-5))))),生产领料序时簿!H:H,B2)+SUMIFS(生产领料序时簿!K:K,生产领料序时簿!M:M,IF(MONTH(TODAY())-6=0,YEAR(TODAY())-1&"-12",IF(MONTH(TODAY())-6=-1,YEAR(TODAY())-1&"-11",IF(MONTH(TODAY())-6=-2,YEAR(TODAY())-1&"-10",IF(MONTH(TODAY())-6=-3,YEAR(TODAY())-1&"-9",IF(MONTH(TODAY())-6=-4,YEAR(TODAY())-1&"-8",IF(MONTH(TODAY())-6=-5,YEAR(TODAY())-1&"-7",YEAR(TODAY())&"-"&MONTH(TODAY())-6)))))),生产领料序时簿!H:H,B2))/6)

excel玉米

alanlad 发表于 2024-7-31 15:23
感谢老师的知道

另外我想在RANGE("H2")插入一个公式，可是太长，在VBE里一直提示红色无法运行，麻烦老 ...

这个公式太长了，又没有生产领料序时薄工作表对照，很难理解你想表达什么意思。

alanlad

excel玉米 发表于 2024-8-1 10:32
这个公式太长了，又没有生产领料序时薄工作表对照，很难理解你想表达什么意思。

老师好，就是通过本月的月份推断出前六个月的发料数量，我是用IF一个月一个月去判断出来前六个月的月份，再按每个月的SUMIF去累加最后除以6算前六个月平均用量的

excel玉米

alanlad 发表于 2024-8-1 14:48
老师好，就是通过本月的月份推断出前六个月的发料数量，我是用IF一个月一个月去判断出来前六个月的 ...

这个不能用公式做，只能用代码做

alanlad

excel玉米 发表于 2024-8-1 20:59
这个不能用公式做，只能用代码做

请老师指导，就是自动填充列表里的前六个月平均用量