老师们，由于公司系统只能显示单价两位小数，麻烦设计下vba

南柯两梦 · 发表于 2023-4-23 21:53

本帖最后由南柯两梦于 2023-4-23 22:57 编辑

麻烦查看附件。

liulang0808 · 发表于 2023-4-23 22:03

Sub 按钮1_Click()
arr = [a1].CurrentRegion
brr = [a1].Resize(UBound(arr) * 2, UBound(arr, 2))
r = 1
For j = 2 To UBound(arr)
      If arr(j, 5) * 100 Mod arr(j, 4) = 0 Then
         r = r + 1
         For i = 1 To UBound(arr, 2) - 1
            brr(r, i) = arr(j, i)
         Next i
         brr(r, i) = arr(j, 5) / arr(j, 4)
      Else
         x = Int(arr(j, 5) * 100 / arr(j, 4))
         For i = 1 To arr(j, 4)
            If i * x + (arr(j, 4) - i) * (x + 1) = arr(j, 5) * 100 Then
                  r = r + 1
                  For k = 1 To UBound(arr, 2) - 1
                     brr(r, k) = arr(j, k)
                     brr(r + 1, k) = arr(j, k)
                  Next k
                  brr(r, 4) = i
                  brr(r + 1, 4) = arr(j, 4) - i
                  brr(r, 6) = x / 100
                  brr(r + 1, 6) = (x + 1) / 100
                  brr(r, 5) = brr(r, 4) * brr(r, 6)
                  brr(r + 1, 5) = brr(r + 1, 4) * brr(r + 1, 6)
                  r = r + 1
                  Exit For
            End If
         Next i
      End If
Next j
[o1].Resize(r, UBound(brr, 2)) = brr
End Sub

liulang0808 · 发表于 2023-4-23 22:03

附件内容供参考。。。。。

南柯两梦 · 发表于 2023-4-23 22:34

本帖最后由南柯两梦于 2023-4-23 22:57 编辑

liulang0808 发表于 2023-4-23 22:03
附件内容供参考。。。。。

厉害，这么快出结果。谢谢大神！

南柯两梦 · 发表于 2023-4-23 22:35

liulang0808 发表于 2023-4-23 22:03
Sub 按钮1_Click()
arr = [a1].CurrentRegion
brr = [a1].Resize(UBound(arr) * 2, UBound(arr, ...

试了很多次，验证数据成功。

南柯两梦 · 发表于 2023-5-5 10:20

本帖最后由南柯两梦于 2023-5-5 10:42 编辑

liulang0808 发表于 2023-4-23 22:03
附件内容供参考。。。。。

您好，我試了這個，發現有個bug，第12行數據會漏掉，是代碼問題嗎，因為公司用的是繁體系統，有影響嗎,我再試了試，發現有些數值代碼沒反應、

，比如數量是8，總價70.74，單價是8.8425時候代碼無作用。

liulang0808 · 发表于 2023-5-5 12:37

南柯两梦发表于 2023-5-5 10:20
您好，我試了這個，發現有個bug，第12行數據會漏掉，是代碼問題嗎，因為公司用的是繁體系統，有影響嗎,我 ...

要组合出总价，允许两条拆分条目的单价价格差是多少？未必能就能匹配出来的

南柯两梦 · 发表于 2023-5-5 16:26

liulang0808 发表于 2023-5-5 12:37
要组合出总价，允许两条拆分条目的单价价格差是多少？未必能就能匹配出来的

我这个用手动算的。

liulang0808 · 发表于 2023-5-5 19:00

南柯两梦发表于 2023-5-5 16:26
我这个用手动算的。

精度导致的，调整了，看看能不能满足需求吧

南柯两梦 · 发表于 2023-5-7 11:24

liulang0808 发表于 2023-5-5 19:00
精度导致的，调整了，看看能不能满足需求吧

可以了，非常感谢。学了vba代码初级，跟你这个差距好大啊。看不懂你的代码

		自动登录	找回密码
密码			免费注册

[已解决] 老师们，由于公司系统只能显示单价两位小数，麻烦设计下vba