每次計算前記得把 b1:b7 清空，其它不解釋，請看圖
時間多的話，可以錄成巨集，再修改vba程式碼
非規劃求解方式，改用vba計算，可參考4樓
https://www.mobile01.com/topicdetail.php?f=511&t=5025613&p=1#70643070
尚未完美,最後的group需要手動篩選
visual foxpro
SET SAFETY OFF
SET ANSI off
SET ENGINEBEHAVIOR 70
CREATE TABLE C:\TEMPN\A1( n1 n)
lc_answer=1153
FOR ii=1 TO 30
INSERT INTO a1 VALUES (RAND()*10000/10)
next
SELECT * FROM a1 INTO TABLE C:\TEMPN\A2
SELECT * FROM a1 INTO TABLE C:\TEMPN\A3
SELECT * FROM A1,A2,A3 WHERE A1.n1+A2.n1+A3.n1=lc_answer INTO cursor aa GROUP BY A1.N1
Wei_1144 wrote:
用Excel也是可...(恕刪)
用Excel公式做的，參考參考
附加壓縮檔: 三數組合
內文搜尋
從 APP 打開
X