Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 232|回复: 13

[已解决] 日报汇总到月报中

[复制链接]
发表于 2020-1-8 16:49 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
     各位老师,我想把每天进销的日报,用VBA自动填入到相应的月份表格中。
能不能帮忙实现一下,谢谢!

出入库日报填入.rar

41.68 KB, 下载次数: 3

 楼主| 发表于 2020-1-8 17:18 | 显示全部楼层
各位大侠,这个真的有点难啊!!!有出手相助的吗
回复

使用道具 举报

发表于 2020-1-8 18:02 | 显示全部楼层
Sub test()
    Dim A, d, i, j, k
    Set d = CreateObject("scripting.dictionary")

    '写字典
    A = Sheets(2).Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        If A(i, 1) = "" Then A(i, 1) = A(i - 1, 1)
        d(A(i, 1) & A(i, 2)) = i                '行
    Next

    '查字典
    A = Sheets(1).Range("a1").CurrentRegion
    A(2, 3) = Replace(A(2, 3), "月", "") + 1    '表
    A(2, 4) = Replace(A(2, 4), "日", "") + 3    '列
    For i = 4 To UBound(A)
        For j = 3 To UBound(A, 2)
            k = A(i, 2) & A(3, j)    'd(k)查出行
            If d.exists(k) Then Sheets(A(2, 3)).Cells(d(k), A(2, 4)) = A(i, j)
        Next
    Next

End Sub


出入库日报填入2.rar (46.16 KB, 下载次数: 5)

评分

参与人数 1学分 +2 收起 理由
babaymum + 2 我和小伙伴都惊呆了

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2020-1-9 09:08 | 显示全部楼层
爱疯 发表于 2020-1-8 18:02
Sub test()
    Dim A, d, i, j, k
    Set d = CreateObject("scripting.dictionary")

谢谢大侠,完美解决了我的问题。
太谢谢了~~~~~
回复

使用道具 举报

发表于 2020-1-9 09:11 | 显示全部楼层
AS 精华,不曾在每月里出现过,所以没处理。
是这样吗
回复

使用道具 举报

 楼主| 发表于 2020-1-9 09:27 | 显示全部楼层
爱疯 发表于 2020-1-9 09:11
AS 精华,不曾在每月里出现过,所以没处理。
是这样吗

老师,是我漏写了,我追加进去也是可以导入到月明细记录表中的,谢谢。
这里是一部分的产品,我把剩余的都追加进去试试。
老师,太厉害了,代码简洁,功能强大。
我要把老师的代码看懂~~~~~
回复

使用道具 举报

发表于 2020-1-9 09:58 | 显示全部楼层
QQ截图20200109094455.png
出入库日报填入3.rar (47.64 KB, 下载次数: 3)
回复

使用道具 举报

 楼主| 发表于 2020-1-9 12:33 | 显示全部楼层
爱疯 发表于 2020-1-9 09:58
Sub test()
    Dim A, d, i, j, k

嗯,太谢谢了!
回复

使用道具 举报

 楼主| 发表于 2020-1-12 19:30 | 显示全部楼层
爱疯 发表于 2020-1-8 18:02
Sub test()
    Dim A, d, i, j, k
    Set d = CreateObject("scripting.dictionary")

大侠:

     我还想增加一个功能,就是在《汇总》里把前日库存从相应的月份表里引用过来。

     我参考您之前写的代码,自己模仿写了一个,但是运行不了,我又找不出问题点了,

能帮我看一下吗?


出入库日报填入4.rar

51.95 KB, 下载次数: 3

回复

使用道具 举报

发表于 2020-1-13 09:46 | 显示全部楼层
Snipaste_2020-01-13_09-42-02.png
出入库日报填入5.rar (48.25 KB, 下载次数: 2)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2020-1-25 12:21 , Processed in 0.093600 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表