[已解决]为何在单价表某个产品中，插入新工序，先前设定好的VBA没有效果。

新一

为何在单价表某个产品中，插入新工序，先前设定好的VBA没有效果。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-1 19:00

Public ar, dd
Sub aaa()
Dim i&
Set dd = CreateObject("scripting.dictionary")
ar = Sheets("单价").Range("a1").CurrentRegion
For i = 2 To UBound(ar)
    If ar(i, 2) = "" Then ar(i, 2) = ar(i - 1, 2)
    zf = ar(i, 2) & "," & ar(i, 3)
    dd(zf) = ar(i, 4)
Next
End Sub

跳转到最佳答案楼层

Banieliang

围观

dsmch

Public ar, dd
Sub aaa()
Dim i&
Set dd = CreateObject("scripting.dictionary")
ar = Sheets("单价").Range("a1").CurrentRegion
For i = 2 To UBound(ar)
    If ar(i, 2) = "" Then ar(i, 2) = ar(i - 1, 2)
    zf = ar(i, 2) & "," & ar(i, 3)
    dd(zf) = ar(i, 4)
Next
End Sub

新一

dsmch 发表于 2014-4-1 19:00
Public ar, dd
Sub aaa()
Dim i&

如果单价表的格式发生如图变化，之前设定的VBA没效果了？如何解决。

dsmch

新一 发表于 2014-4-1 19:46
如果单价表的格式发生如图变化，之前设定的VBA没效果了？如何解决。

ar = Sheets("单价").Range("f1").CurrentRegion

新一

dsmch 发表于 2014-4-1 19:53
ar = Sheets("单价").Range("f1").CurrentRegion

非常感谢