趣味找数字

ACMAIN_CHM

3个数字的话，如果这几百个数字小 256,则可以直接用EXCEL操作来实现。

第一行，从B1 - IV1为这个序列。
第一行，从A2 - A256相同，转置一下就成了。

然后公式就简单了。 B2=  B$1+$A2
在300行，复制一遍第一行，B301 = B$300+B2,向下复制公式，之后，用条件格式标出=768.68的单元格。

在公式中可以对column(),row()进行判断，已确保同一数字不被选择两次。



******************
*  一切皆有可能  *
******************

QQ群 48866293 / 12035577 / 7440532 / 13666209

ACMAIN_CHM

方法二，
直接在EXCEL中利用 MS Query进行SQL语句的查询
假设sheet1中放两列， FD01列为序号，也确保不重复挑选同一数字。 FD02为这些数字

	A	B	C
1	FD01	FD02
2	1	15.6
3	2	77.2

然后在QUERY中执行如下语句。（需要耐心，速度比较慢）
SELECT a.FD02,b.fd02,c.fd02
FROM `C:\temp\Book5`.`Sheet1$` as a,
`C:\temp\Book5`.`Sheet1$` as b,
`C:\temp\Book5`.`Sheet1$` as c
where a.fd01<b.fd01
and b.fd01<c.fd01
and a.FD02 + b.fd02 + c.fd02=768.68



******************
*  一切皆有可能  *
******************
QQ群 48866293 / 12035577 / 7440532 / 13666209

ACMAIN_CHM

方法三：用程序来解决.

Option Explicit

Public Sub test()
    Dim fArray() As Single
    Dim nTotalNumberCnt As Integer
    nTotalNumberCnt = Sheet1.UsedRange.Rows.Count

    ReDim fArray(nTotalNumberCnt)

    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
   
    For i = 1 To nTotalNumberCnt
        fArray(i) = Sheet1.Cells(i, 1).Value
    Next i
   
    Dim fSum As Single
   
    fSum = 768.68
   
    Debug.Print "begin ......"
   
    For i = 1 To nTotalNumberCnt - 2
        For j = i + 1 To nTotalNumberCnt - 1
            For k = j + 1 To nTotalNumberCnt
                If fArray(i) + fArray(j) + fArray(k) = fSum Then
                    Debug.Print i; fArray(i), j; fArray(j), k; fArray(k)
                End If
            Next k
        Next j
    Next i
   
    Debug.Print "end ......"
End Sub




******************
*  一切皆有可能  *
******************
QQ群 48866293 / 12035577 / 7440532 / 13666209