剩余定律的自定义函数解法

hjj0451

=MODE(ROW(1:99)*{3,5,7,11}+{2,4,6,0})
本来无解时可产生错误解。

xiaomage1

香川群子 发表于 2012-4-2 09:06
什么叫三个符合条件的三三配对？请手工举例说明。

请重新上附件，加入数据以及模拟结果。

数据只要一组完整的，这样比较看起来清楚，您先把我的意思弄明白，我再传了一个附件，是一些数据和结果，您看一下，谢谢您了！

xiaomage1

香川群子 发表于 2012-4-2 09:06
什么叫三个符合条件的三三配对？请手工举例说明。

请重新上附件，加入数据以及模拟结果。

这是多一些的数据及结果，您看可以不，谢谢您了！

listyun

1. =MIN(IF(MMULT(--(MOD(ROW(1:500),{5,7,11,3})={4,6,0,2}),{1;1;1;1})>3,ROW(1:500)))

复制代码

用公式做下试下。

香川群子

10组都符合的一共找到8个。

xiaomage1

香川群子 发表于 2012-4-2 13:37
10组都符合的一共找到8个。

群子老师，谢谢您。

香川群子

xiaomage1 发表于 2012-4-2 14:10
群子老师，谢谢您。

已经帮你新开帖子，请去下面链接看帖，有快速解法了。
http://club.excelhome.net/forum. ... d=850512&extra=

Albert128

dgxsdr 发表于 2012-3-22 14:23
比较难理解，写了个不要动脑筋的
Sub aa()
Dim i As Integer

您好!
本人学习了您的思路,求如下的问题不能如愿,请帮助,谢谢!
有100个人,其中:大男人d个,女人n个,小孩h个;现来搬100块砖，每个大男人搬4块，每个女人搬2块，4个小孩抬一块。现有多少个大男人，女人和小孩?
Sub sss()
    Dim d As Integer, n As Integer, h As Integer
    For d = 1 To 100
    If d + n + h = 100 And 4 * d + 2 * n + h / 4 = 100 Then
    [A1] = d
    [A2] = n
    [A3] = h
         
    End If
    Next d
End Sub

chenzyyysl

Sub sss()
    Dim d As Integer, n As Integer, h As Integer
    For d = 1 To 100
      For n = 1 To 100 - d
         h = 100 - d - n
          If Abs(d * 4 + n * 2 + h / 4 - 100) < 0.00001 Then
            MsgBox "d=" & d & ";n=" & n & ";h=" & h
          Exit Sub
          End If
      Next n
    Next d
End Sub

chenzyyysl

Sub sss()
    Dim d As Integer, n As Integer, h As Integer, i As Integer
    i = 1
            Cells(1, i) = "d"
            Cells(2, i) = "n"
            Cells(3, i) = "h"
    For d = 1 To 100
      For n = 1 To 100 - d
         h = 100 - d - n
          If Abs(d * 4 + n * 2 + h / 4 - 100) < 0.00001 Then
            i = i + 1
            Cells(1, i) = d
            Cells(2, i) = n
            Cells(3, i) = h
          End If
      Next n
    Next d
End Sub