vba巧用工作表函数

日常工作中经常涉及到将纵向数据进行横向填写,方便月度数据汇总,那么将工作表函数运用到vba中十分有效。


image.png

' 出入库数据填写
For n = 4 To [a63356].End(xlUp).Row
For dt = 1 To [d1] - [b1] + 1
'入库填写
Cells(n, 2 * dt + 14) = WorksheetFunction.SumIfs(Worksheets("年成品日出入明细表").Range("l2:l" & icount), _
Worksheets("年成品日出入明细表").Range("a2:a" & icount), Cells(3, 2 * dt + 14), _
Worksheets("年成品日出入明细表").Range("b2:b" & icount), Cells(n, 2), _
Worksheets("年成品日出入明细表").Range("c2:c" & icount), Cells(n, 3), _
Worksheets("年成品日出入明细表").Range("d2:d" & icount), Cells(n, 4), _
Worksheets("年成品日出入明细表").Range("e2:e" & icount), Cells(n, 5) _
)
'出库填写
Cells(n, 2 * dt + 15) = WorksheetFunction.SumIfs(Worksheets("年成品日出入明细表").Range("n2:n" & icount), _
Worksheets("年成品日出入明细表").Range("a2:a" & icount), Cells(3, 2 * dt + 15), _
Worksheets("年成品日出入明细表").Range("b2:b" & icount), Cells(n, 2), _
Worksheets("年成品日出入明细表").Range("c2:c" & icount), Cells(n, 3), _
Worksheets("年成品日出入明细表").Range("d2:d" & icount), Cells(n, 4), _
Worksheets("年成品日出入明细表").Range("e2:e" & icount), Cells(n, 5) _
)
Next dt
Cells(n, "n") = WorksheetFunction.SumIf(Range(Cells(2, "p"), Cells(2, "p").End(xlToRight)), "入", Range(Cells(n, "p"), Cells(n, "p").End(xlToRight)))
Cells(n, "o") = WorksheetFunction.SumIf(Range(Cells(2, "p"), Cells(2, "p").End(xlToRight)), "出", Range(Cells(n, "p"), Cells(n, "p").End(xlToRight)))
Cells(n, "l") = Cells(n, "h") - Cells(n, "n")
Cells(n, "m") = Cells(n, "i") - Cells(n, "o")
Next n


Sub usual()
  
    Dim arr
    Dim uniqueArr() As Variant
    Dim i As Long, j As Long, n As Long
    Dim d As Object

    Worksheets("日出入库").Range("a3:cc63356").Clear
   
icount = Worksheets("年成品日出入明细表").[a63356].End(xlUp).Row
arr = Worksheets("年成品日出入明细表").Range("a2:Q" & icount)
    ' 初始化数组和字典
    Set d = CreateObject("Scripting.Dictionary")
    ' 使用字典找出不重复的订单号、产品和日期
    For i = 1 To UBound(arr)
        If arr(i, 2) <> "合计:" And arr(i, 2) <> "总计:" _
        And arr(i, 1) >= Worksheets("日出入库").[b1] _
        And arr(i, 1) <= Worksheets("日出入库").[d1] _
        Then
        '将累加相关的值写到item里面
        iarr = Array(arr(i, 13), arr(i, 15), arr(i, 16), arr(i, 17))
            d(arr(i, 2) & "|" & arr(i, 3) & "|" & arr(i, 4) & "|" & arr(i, 5) & "|" & arr(i, 6) & "|" & arr(i, 7)) = iarr '组合成键值
        End If
    Next i
    
  ReDim uniqueArr(1 To d.Count, 1 To 10)
    j = 1 '新数组的索引
    For Each Key In d.keys
        arrkey = Split(Key, "|") '分割键值得到订单号、产品和日期
        uniqueArr(j, 1) = arrkey(0) '客户经理
        uniqueArr(j, 2) = arrkey(1) '客户名称
        uniqueArr(j, 3) = arrkey(2) '订单号
        uniqueArr(j, 4) = arrkey(3) '产品型号
        uniqueArr(j, 5) = arrkey(4) '加工类型
        uniqueArr(j, 6) = arrkey(5) '计划量
        uniqueArr(j, 7) = d(Key)(0) '入库累计
        uniqueArr(j, 8) = d(Key)(1) '出库累计
        uniqueArr(j, 9) = d(Key)(2) '库存
        uniqueArr(j, 10) = d(Key)(3) '批次欠产数量
        j = j + 1
    Next Key
    
    For n = 1 To UBound(uniqueArr)
        Worksheets("日出入库").Cells(n + 3, "a") = n
        Worksheets("日出入库").Cells(n + 3, "b") = uniqueArr(n, 1)
        Worksheets("日出入库").Cells(n + 3, "c") = uniqueArr(n, 2)
        Worksheets("日出入库").Cells(n + 3, "D") = uniqueArr(n, 3)
        Worksheets("日出入库").Cells(n + 3, "E") = uniqueArr(n, 4)
        Worksheets("日出入库").Cells(n + 3, "F") = uniqueArr(n, 5)
        Worksheets("日出入库").Cells(n + 3, "G") = uniqueArr(n, 6)
        Worksheets("日出入库").Cells(n + 3, "H") = uniqueArr(n, 7)
        Worksheets("日出入库").Cells(n + 3, "I") = uniqueArr(n, 8)
        Worksheets("日出入库").Cells(n + 3, "J") = uniqueArr(n, 9)
        Worksheets("日出入库").Cells(n + 3, "K") = uniqueArr(n, 10)
        
    Next
    '将筛选后的日期写到对应单元格
    [a3:o3] = Array("序号", "客户经理", "客户名称", "订单号", "产品型号", "加工类型", "计划量", "入库累计", "出库累计", "库存", "批次欠产数量", "结转上月入库", "结转上月出库", "本月入库", "本月出库")
    For fday = 1 To [d1] - [b1] + 1
        Cells(3, 2 * fday + 14) = [b1] + fday - 1
        Cells(3, 2 * fday + 15) = [b1] + fday - 1
        Cells(2, 2 * fday + 14) = "入"
        Cells(2, 2 * fday + 15) = "出"
    Next
    
    ' 出入库数据填写
    For n = 4 To [a63356].End(xlUp).Row
        For dt = 1 To [d1] - [b1] + 1
            '入库填写
            Cells(n, 2 * dt + 14) = WorksheetFunction.SumIfs(Worksheets("年成品日出入明细表").Range("l2:l" & icount), _
            Worksheets("年成品日出入明细表").Range("a2:a" & icount), Cells(3, 2 * dt + 14), _
            Worksheets("年成品日出入明细表").Range("b2:b" & icount), Cells(n, 2), _
            Worksheets("年成品日出入明细表").Range("c2:c" & icount), Cells(n, 3), _
            Worksheets("年成品日出入明细表").Range("d2:d" & icount), Cells(n, 4), _
            Worksheets("年成品日出入明细表").Range("e2:e" & icount), Cells(n, 5) _
            )
            '出库填写
            Cells(n, 2 * dt + 15) = WorksheetFunction.SumIfs(Worksheets("年成品日出入明细表").Range("n2:n" & icount), _
            Worksheets("年成品日出入明细表").Range("a2:a" & icount), Cells(3, 2 * dt + 15), _
            Worksheets("年成品日出入明细表").Range("b2:b" & icount), Cells(n, 2), _
            Worksheets("年成品日出入明细表").Range("c2:c" & icount), Cells(n, 3), _
            Worksheets("年成品日出入明细表").Range("d2:d" & icount), Cells(n, 4), _
            Worksheets("年成品日出入明细表").Range("e2:e" & icount), Cells(n, 5) _
            )
        Next dt
        Cells(n, "n") = WorksheetFunction.SumIf(Range(Cells(2, "p"), Cells(2, "p").End(xlToRight)), "入", Range(Cells(n, "p"), Cells(n, "p").End(xlToRight)))
        Cells(n, "o") = WorksheetFunction.SumIf(Range(Cells(2, "p"), Cells(2, "p").End(xlToRight)), "出", Range(Cells(n, "p"), Cells(n, "p").End(xlToRight)))
        Cells(n, "l") = Cells(n, "h") - Cells(n, "n")
        Cells(n, "m") = Cells(n, "i") - Cells(n, "o")
    Next n
    
    
    Set d = Nothing
End Sub
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 194,319评论 5 459
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 81,801评论 2 371
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 141,567评论 0 319
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 52,156评论 1 263
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 61,019评论 4 355
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 46,090评论 1 272
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 36,500评论 3 381
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 35,192评论 0 253
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 39,474评论 1 290
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 34,566评论 2 309
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 36,338评论 1 326
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 32,212评论 3 312
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 37,572评论 3 298
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 28,890评论 0 17
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 30,169评论 1 250
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 41,478评论 2 341
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 40,661评论 2 335

推荐阅读更多精彩内容