为什么不能写进字典里

ytmpgght

Thinkwaves 发表于 2023-6-1 22:24
把d(arr(i, 3)) = arr(i, 11)改成d(arr(i, 3)) =d(arr(i, 3)) + arr(i, 11)试试

老师早上好！
感谢老师这么晚还给我回复。
经过测试，昨晚上两位老师的方法结合一起，已经完美解决了这个库存不准的问题。


r = .UsedRange.Rows.Count + 1       在这里我增加了+1的条件，担心有行号不准的可能性
        ar = .Range("a1:k" & r)
        For i = 4 To UBound(ar)
           
            If Len(ar(i, 3)) > 0 And Len(ar(i, 11)) > 0 Then               在判断里听了另一位老师的建议，大于0的条件
                d1(ar(i, 3)) = d1(ar(i, 3)) + ar(i, 11)                          在这行，是按您的方法对库存表里可能有重复的编码，进行了数量上的累加。



谢谢各位老师！！谢谢

吴中泉

ytmpgght 发表于 2023-6-2 07:25
老师早上好！
感谢老师这么晚还给我回复。
经过测试，昨晚上两位老师的方法结合一起，已经完美解决了这 ...

恭喜恭喜！这样学习就会进步很快！

micch

and是一个运算符，这个很重要，可以自己查一下资料   两个数字and的结果有可能是0

micch

比如  4 and 2   ，比如 32 and 8

仅仅是个人建议：不管是初学代码，还是老手。     基础知识都很重要，代码规范书写，不嫌麻烦能多写就多写，不取巧，写一些看似省字符省语句的代码。（我写函数尽量简化的习惯在写代码过程中，为了精简而精简，后来逐渐发现是错的，代码应该尽量详细规范的书写，养成好习惯）

ytmpgght

micch 发表于 2023-6-2 10:04
and是一个运算符，这个很重要，可以自己查一下资料   两个数字and的结果有可能是0

非常感谢老师，这点真的很重要。

ytmpgght

micch 发表于 2023-6-2 10:09
比如  4 and 2   ，比如 32 and 8

仅仅是个人建议：不管是初学代码，还是老手。     基础知识都很重要， ...

感谢老师指点。我一定好好学习。谢谢！