财务人员常遇问题:凑数,从一堆数值中找哪些值相加等于指定的值

从一堆数值中找哪些值相加等于指定的值

财务人员常遇问题:从一堆数值中找哪些值相加等于指定的值。例如有几千万货款要支付,我现在手里有450万,想找出哪几家的货款之和刚好等于450万或者接近450万,此时就需要凑数了。

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
首先,我们需要明确问题的具体要求。假设我们已经有一个包含多个数字Excel表格,并且我们想要通过VBA编程的方式,出这些数字的若干个数字,使其相加的和等于一个固定的数值。 下面是一种解决方案的例子: 1. 首先,打开Excel表格并按下"ALT + F11"打开VBA编辑器。 2. 在VBA编辑器,选择"插入" -> "模块",以在工作簿添加一个新的模块。 3. 在新模块编写以下代码: ```vba Sub FindSum() Dim rng As Range Dim sumValue As Double Dim cell As Range Dim total As Double ' 设置你想要的固定数值 sumValue = 100 ' 设置你表格的范围 Set rng = Range("A1:A10") ' 开始计算 For Each cell In rng total = cell.Value ' 使用嵌套循环来出所有可能的组合 For Each cell2 In rng If Not cell2 Is cell Then total = total + cell2.Value If total = sumValue Then ' 到了符合条件的组合 MsgBox "到了一个符合条件的组合!" Exit Sub End If End If Next cell2 Next cell ' 如果没有到符合条件的组合 MsgBox "没有到符合条件的组合!" End Sub ``` 4. 修改上述代码的"rng"变量和"sumValue"变量,以适应你的实际情况。"rng"变量指定要查数字范围,"sumValue"变量指定要寻的和的固定数值。 5. 最后,按下"F5"键运行代码。 此代码将遍历指定的范围,并计算所有可能的组合。如果到一个组合的总和等于固定数值,则弹出一个消息框进行提醒。如果没有到符合条件的组合,则将弹出另一个消息框。 请注意,这只是一种解决方案的例子,并且只适用于固定的范围和固定的数值。根据需要,您可能需要对代码进行修改以适应您的具体需求。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值