开发票自动凑数

feilanga

老师，您给我发下附件啊，我真的不会改。另外您看下这个附件的函数公式，不懂就会感觉很神奇。借鉴这个表格，有一个思路是否可以由后向前输入，例如先手工输入总金额，每个规格的合计输入，之后单价输入，吨位自动算出呢。或者随性一下，任何这个数量  单价  小计  总计 任意位置输入数据，其他位置会自动填写呢。凑数一般手算是由后向前，先凑分后凑角再凑元。

lzqlaj

feilanga 发表于 2017-6-17 08:59
感谢费心回复。问题1是数量保留3位小数 金额是2位小数  我不知道你怎么算出来的，我点击数量匹配，提示没 ...

Public Sub CouShu2()
    Dim t#, n%, x%, m%, dj, i&, j&, k%, slmax&, slmin&, sy, sysl, zd
    Dim csje#, sjje#, rxwc#, pd As Boolean, rng As Range
    t = Timer
    With 开票明细
        .Range("f11:f18").ClearContents
        pd = False
        n = .Range("b1").Value
        csje = .Range("b2").Value
        x = WorksheetFunction.CountIf(Range("m:m"), "√")
        m = WorksheetFunction.Min(n, x)
        If m = 0 Then Exit Sub
        ReDim sl(1 To m, 1 To 1), dj(1 To m)
        k = 0
        For Each rng In .Range("e11:e" & 10 + m)
            k = k + 1
            dj(k) = rng.Value
        Next rng
        sy = csje
        sjje = 0
        For j = 1 To m - 1
            zd = i
            sl(j, 1) = Round(csje / (3 * dj(j)), 3)
            sy = sy - dj(j) * sl(j, 1)
            sjje = sjje + dj(j) * sl(j, 1)
        Next j
        sysl = sy / dj(m)
        sl(m, 1) = Round(sysl, 3)
        .Range("f11").Resize(m, 1) = sl
        .Range("b3").Value = .Range("g19").Value - .Range("b2").Value '实际误差
    End With
End Sub
多数情况是不容易找的答案的，因为你限定了吨的位数，如果实际生活中确有这样的数值，也就是说你的金额是根据具体吨数计算得出的，那么可以按《数论》这本书上的相关内容来解答出吨数，是很繁琐的。

20161108

规划求解可以做吧

feilanga

香川群子 发表于 2017-6-15 23:09
在B1输入目标总金额，B2指定项目数=3，
可以设置单价小数位=0、数量小数位=3，然后按下平衡按钮即可完成凑 ...

以当前表格数据为例，计算结果是78717.76  如果我修改左上角的凑单金额为78715.28  那么会自动算出来吨位吗？如果我选择平衡方式1，直接改动2个螺纹的重量，那么凑单金额设置为78715.28 那么平衡处理后，能够一分不差的算出来吗？

feilanga

lzqlaj 发表于 2017-6-16 10:28
假设y=0,z=0,求出x值，取整，再除以2，记为X1，以此法求出Y1，z=（193587.74-3600x1-3450y1）/3680.再微调 ...

香山群子老师已经完美解决我的问题，很开心。

lzqlaj

feilanga 发表于 2017-6-18 16:49
香山群子老师已经完美解决我的问题，很开心。

我感觉并不是每种情况都能够一分不差的凑出来，因为条件限制。

feilanga

lzqlaj 发表于 2017-6-18 22:16
我感觉并不是每种情况都能够一分不差的凑出来，因为条件限制。

群子老师这个表确实做到了我的要求。如果是无解的，你计算几次后就可以修改单价或者增加品种行来重新计算，总会得到一分不差的结果。仔细查看我图片上左上角规划的数值，经过3次平衡，得到结果。

q726650570

您好，您能把你完善那个Excel 发给我吗。我很需要。谢谢你。726650570@qq.com

dysvip

正在学习中，楼主能否把完成版发我一份，谢谢

zoezoeyan

求该完整版