大神麻烦帮我看看这个VBA代码运行报错“下标越界”是什么原因？？

百读谷歌

一点击就报错“下标越界”，是什么原因引起这个BUG能麻烦给看看吗？？
谢谢了！！

mmwwdd

这个是最简单的调试了吧,你brr是五行,你赋值超过了5,你用立即窗口看一下

mmwwdd

百读谷歌

mmwwdd 发表于 2023-2-3 07:37

请问应该怎么修改这些让他正确运行呀？这个代码是论坛的兄弟帮忙弄的，能再详细讲解下吗？麻烦了！！

bqwd36

redim那句把后面2个都改成1 to 100是不是就可以了

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, br, i&, j&, r&, dic As Object, vKey
   
    Set dic = CreateObject("Scripting.Dictionary")
    ar = [J1].CurrentRegion
    For i = 2 To UBound(ar)
       vKey = ar(i, 1)
       If Not dic.exists(vKey) Then
          dic(vKey) = Array(ar(i, 7), ar(i, 9))
       Else
          dic(vKey) = Array(dic(vKey)(0) + ar(i, 7), dic(vKey)(1) + ar(i, 9))
       End If
    Next i
   
    For Each vKey In dic.keys
       r = 0
       ReDim br(1 To UBound(ar) + 3, 1 To UBound(ar, 2) - 1)
       For i = 2 To UBound(ar)
          If ar(i, 1) = vKey Then
             r = r + 1
             For j = 1 To UBound(br, 2)
                br(r, j) = ar(i, j)
             Next j
          End If
       Next i
       br(r + 1, 2) = "车费": br(r + 1, 6) = "=": br(r + 1, 7) = dic(vKey)(1)
       br(r + 3, 7) = "合计": br(r + 3, 8) = dic(vKey)(0) + dic(vKey)(1)
       [A7:H30].Clear
       [A8].Resize(r + 3, UBound(br, 2)) = br
       Range("A1", Cells(Rows.Count, "H").End(3)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & vKey
    Next
   
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

百读谷歌 发表于 2023-2-3 20:47
请问应该怎么修改这些让他正确运行呀？这个代码是论坛的兄弟帮忙弄的，能再详细讲解下吗？麻烦了！！

你这个我应该帮你写过，这次再帮你写一下，请参考附件。。。

百读谷歌

gwjkkkkk 发表于 2023-2-4 19:30
你这个我应该帮你写过，这次再帮你写一下，请参考附件。。。

谢谢老哥再帮忙。刚才运行了，是正常工作的。
只是还能不能再麻烦做一点点小改动。

刚才发现当车费那一列没有金额录入的时候，客户出货明细只有一行，车费金额是空白的。客户出货明细有两行的，车费金额是0。我想要当客户R列没有车费金额录入的时候，车费金额直接输入0

还有就是出货单的对齐格式是默认靠左的，我做了改动以后下次保存还是一样默认靠左对齐。
能不能按照我设置的单元格格式来对齐排列，代码仅填充数据。

还有最后一个就是合计的金额能不能去掉小数点后面的尾数，但不是四舍五入，是直接去掉小数点的尾数。