图一
图二
已知B2:C6中每个数值越大,D9越大;相反,D9越小。
通过对B2:C6中的最大值做减法,或对最小值做加法,使1000>=D9>900。
注意:
1、B2:C6中每个数值只能为整数;
2、存在多个最大(小)值时,每一个都要做减(加)法;
本人小白,自学写了一个
Sub test()
Do While [d9] <= 900
Dim rgmin As Range
For Each rgmin In Range("b2:c6").Find(Application.WorksheetFunction.Min(Range("b2:c6")))
rgmin = rgmin.Value + 1
Next rgmin
Loop
Do While [d9] > 1000
Dim rgmax As Range
For Each rgmax In Range("b2:c6").Find(Application.WorksheetFunction.Max(Range("b2:c6")))
rgmax = rgmax.Value - 1
Next rgmax
Loop
End Sub
但是这个在图二运行<=900的循环时,一直把C2加1,而不是最小值