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

tz-chf

Y是已知的值，求n。

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

数据放大一下就清楚了。

Y=2600

50

100

80

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

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

实在是高！我改成：

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



   E = i-1
   exit for
   
End If

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

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

horst

好

tz-chf

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

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

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

andymark

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

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

tz-chf

不是加不加1的事情