[已解决]请高手帮忙修改下这个VAB代码，谢谢···

zll19860913

最佳答案

月排行榜 / 总排行榜

zjdh

2011-9-9 18:01

只要删除掉以下红色语句即可：
Function QtyOfUnit(ByVal NameAndUnits As String, _
                        ByVal Quantity As String, _
                        Optional ByVal Switch As Integer = 1) As Long
    Dim sProdName$, arr, i%, lQty
    Dim dicUnits, aUnits, sUnit$, iQty As Long, iUnit%
   ' arr = Split(NameAndUnits, "（")
   ' sProdName = Trim$(arr(0))
   ' NameAndUnits = Left$(arr(1), Len(arr(1)) - 1)
   arr = Split(NameAndUnits, "*")
......................

跳转到最佳答案楼层

zjdh

只要删除掉以下红色语句即可：
Function QtyOfUnit(ByVal NameAndUnits As String, _
                        ByVal Quantity As String, _
                        Optional ByVal Switch As Integer = 1) As Long
    Dim sProdName$, arr, i%, lQty
    Dim dicUnits, aUnits, sUnit$, iQty As Long, iUnit%
   ' arr = Split(NameAndUnits, "（")
   ' sProdName = Trim$(arr(0))
   ' NameAndUnits = Left$(arr(1), Len(arr(1)) - 1)
   arr = Split(NameAndUnits, "*")
......................

zll19860913

回复 zjdh 的帖子


       按照您说的删除后，发现换算结果不正确.                                                                 
【莎草猛换算后应该是850包，而不是25800包】  

zjdh

再看看                          .

zjdh

正在找原来宏的是否有问题

zjdh

问题找出来了：
原来的宏没错，修改方法也没错，是你G8单元没按规范填写！
“1件3盒50包 ”写成了 “1件3盒50”   
害我好找！  

zll19860913

回复 zjdh 的帖子

不好意思是我的失误！