[求助]数字字段，求解一阀值。

tz-chf

表中一数字字段，给出一个值，求一阀值。我想不出好办法。

字段a

1

4

8

12

6

给出的一个数值A，如：25

规则是：小于阀值的取字段值，大于阀值的取阀值，合计等于A（即25）。

例：取后是

1

4

7

7

6

合计是25，阀值是7。

再举一例子：要求的合计值是29，求得的阀值是10。

取后是：

1

4

8

10

6

[此贴子已经被作者于2006-12-16 17:08:14编辑过]

tz-chf

不是加不加1的事情

andymark

你说阀值间很大吧,改成下面的,不加1

F = Int((A + B + C) / 40)

tz-chf

F = Int((A + B + C) / 40) + 1

什么意思，应该i=0开始吧

试想如果Y=10，岂不是i=6 to 5，算出的阀值应该是0。

horst

好

tz-chf

实在是高！我改成：

If i * 40 > (A + B + C) + Y Then



   E = i-1
   exit for
   
End If

记录数是固定的49，阀值一般是10000以内，给出的值一般是200000以内。

有可能循环的次数在数百次，我设想step 100，再step -10，再step 1，找到那个阀值。等试过后再说。

andymark

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Dim Y As Long
  
  A = 50
  B = 100
  C = 80

Y = 2600
D = Int((Y + A + B + C) / 40)
F = Int((A + B + C) / 40) + 1

For i = F To D
  A = 50
  B = 100
  C = 80


If A > i Then
      A = i
      
   End If
   
   If B > i Then
      B = i
      
   End If

  If C > i Then
      C = i
     
   End If


If i * 40 <= (A + B + C) + Y Then

   E = i
   
   
End If

Next
Debug.Print E

tz-chf

Y是已知的值，求n。

这样不对，公式里还有一个“处理结果的合计值”

数据放大一下就清楚了。

Y=2600

50

100

80

int(2600/40)=65，实际n=69。

andymark

Y是已知数,还是未知数

按你的例子直接用公式:INT(260/40) ,N最大值为6

tz-chf

重新说一下题目，和上面的不太一样。

字段A，用阀值处理后的结果（设阀值为n，if >n 取n，<=阀值，保留原值），会另外给出一个值Y（现在给出的例子为Y=260，求n）。

字段A

5

10

8

要求的公式为：n*40<=(处理结果的合计值+Y)，求n的最大值（整数）。

如果Y太大，超过字段A的最大值*40，就不必做下去了。

[此贴子已经被作者于2006-12-17 12:43:10编辑过]