VBA发票凑数运用

ZEROX2018

各位大神，烦请帮助一下小弟，不胜感激：
     A-C列为基础数据，在F2单元格输入数字，然后G2和H2跳出发票号的组合


   
  

cyq4896

试试是你要的效果吧

ZEROX2018

cyq4896 发表于 2023-5-24 20:29
试试是你要的效果吧

大神，没有代码呢，运行不了，可以麻烦再传一次吗？万分感谢

边缘码农

ZEROX2018 发表于 2023-5-25 09:19
大神，没有代码呢，运行不了，可以麻烦再传一次吗？万分感谢

有代码，我看过了。
我的理解，你的意思是列出所有符合条件的组合？

cyq4896

不知是想几个票据组合

cyq4896

Sub 组合()
    Dim i%, y%, c%, t%
    arr = Range("a1").CurrentRegion
    On Error Resume Next
    For i = 2 To UBound(arr)
        For y = 3 To UBound(arr)
            x = arr(i, 3) + arr(y, 3)
            If x < [f2] Then
                c = [f2] - x
                t = WorksheetFunction.Match(c, [c:c], 0)
                If t >= 1 Then GoTo 100
            End If
        Next
    Next
100:
   [g2] = Cells(i, 1) & "、" & Cells(y, 1) & "、" & Cells(t, 1)
   [h2] = Cells(i, 2) & "、" & Cells(y, 2) & "、" & Cells(t, 2)
End Sub

佛衫丶黄非红

cyq4896 发表于 2023-5-25 11:34
不知是想几个票据组合

没有去重 比如我输入5 得到的组合是A、G、A

笨鸟飞不高

New Microsoft Excel Worksheet (4).zip (18.09 KB, 下载次数: 21)

2023-5-25 16:26 上传

点击文件名下载附件

仅供参考！

ZEROX2018

cyq4896 发表于 2023-5-25 11:34
不知是想几个票据组合

只需要显示唯一的组合，如果计算结果有多个时，返回“手动检查”

ZEROX2018

笨鸟飞不高 发表于 2023-5-25 16:27
仅供参考！

感谢大神，代码十分强大，可以返回多个计算结果。学习了，可以麻烦再教一下小弟，只需显示唯一组合可能，如果有多个可能时返回“手动检查”