请教高手，EXCEL 条件函数反推

A,B,C,D,E,F6项都是有0-9的随机整数组成。G=IF(B-D=0,IF(A>C,-90,90),ATAN(-(A-C)/(B-D))/PI*180),H=IF(D-F=0,IF(C>E,90,-90),ATAN(-(E-C)/(F-D))/PI*180),(其中PI就是圆周率3.14。。),I=IF(B>=D,IF(A<C,1,4),IF(A<C,2,3)),J=IF(F>=D,IF(E<C,1,4),IF(F<D,2,3)),K=IF(I-J=0,ABS(G-H),IF(ABS(I-J)=2,180-ABS(G-H),IF(ABS(I-J)=3,ABS(G-H),IF(ABS(I-J)=1,IF(I+J=5,ABS(G-H),180-ABS(G-H)),)))),M=SQRT((B-D)*(B-D)+(A-C)*(A-C)),N=SQRT((F-D)*(F-D)+(E-C)*(E-C)),S=SIN(K/180*PI)*M*N/2.
我现在的想法，设定S和，K 的范围，来求A,B,C,D,E,F.符号这个函数条件的组合。
假设当，30<K<90,5<S<10,求满足这些条件函数，（A,B,C,D,E,F) 所有组合
不是高手不高手的问题，你这样写出来，没人会有那个耐心来研究你公式的含义，你不如具体说明你要实现什么
我要实现的，下面不是了吗
我现在的想法，设定S和，K 的范围，来求A,B,C,D,E,F.符号这个函数条件的组合。
比如，30<K<90,5<S<10,求满足这些条件函数，（A,B,C,D,E,F) 所有组合 。
没有公式那你怎么求得我要的A,B,C,D,E,F 啊，你连我K,S都不知道怎么来的，你怎么能实现我要的吗
那我就换种表示方式，A,B,C,D,E,F（由0-9的整数组成）你就把他坐标中看成3个点，P(A,B),M(C,D),N(E,F),G就是指角PMN的度数，根据余弦定理就可以知道COSG=(PM2+MN2-PN2)/2PM*MN,其中PM,MN,PN指的是长度，这应该能理解吧，根据A,B,C,D,E,F就可以算得。H就是这个三角形的面积，H=SING*PM*MN/2，这个应该知道的吧。我现在想实现的就是，设定G和H的范围，反过来求A,B,C,D,E,F的所有组合，A,B,C,D,E,F必须都是0-9的整数哦。

不是高手不高手的问题，你这样写出来，没人会有那个耐心来研究你公式的含义，你不如具体说明你要实现什么
---------------------
你这个问题其实跟excel没什么关系，是一个试算，我写了个宏，按照30-90，5-10计算溢出了，面积改到5-6，算出来有6000组，如果不设条件总共是100万组，装个excel07应该不会溢出。宏怎么用自己上网搜下。
Sub yang1042()
Dim a, b, c, d, e, f As Integer
Dim pm, mn, pn As Single
Dim g, h As Single
Dim i As Double
i = 1
For a = 1 To 10
For b = 1 To 10
For c = 1 To 10
For d = 1 To 10
For e = 1 To 10
For f = 1 To 10
pm = Sqr((a - c) * (a - c) + (b - d) * (b - d))
mn = Sqr((c - e) * (c - e) + (d - f) * (d - f))
pn = Sqr((a - e) * (a - e) + (b - f) * (b - f))
If pm + mn >= pn Or pm + pn >= mn Or mn + pn >= pm Then
Else
g = Application.WorksheetFunction.Acos((pm * pm + mn * mn - pn * pn) / (2 * pm * mn))
h = Sin(g) * pm * mn / 2
If Application.WorksheetFunction.Degrees(g) > 30 And Application.WorksheetFunction.Degrees(g) < 90 Then
If h > 5 And h < 10 Then
Cells(i, 1) = a - 1
Cells(i, 2) = b - 1
Cells(i, 3) = c - 1
Cells(i, 4) = d - 1
Cells(i, 5) = e - 1
Cells(i, 6) = f - 1
i = i + 1
End If
End If
End If
Next
Next
Next
Next
Next
Next
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fmq88msmv.html