Question

VBA高手请进，高分求助：求返回差值最小的I值，详见补充,QQ在线等：490294457

Private Sub 取幅宽() '计算幅宽,Dim t As Stringt = LB.textIf Len(t) = 1 ThenZeng = 20ElseIf Len(t) = 2 Then '当材质关键字为-BC时Zeng = 20ElseIf Len(t) = 3 Then '材质关键字为-BCA时Zeng = 24ElseIf Len(t) = 4 Then '材质关键字为-BCA时Zeng = 24End IfXB = KXB2.textKuan = Tkk.textDim x, i As Integer 'For i = 950 To 1800 Step 50 For i = 1800 To 950 Step -50 x = Int(i / (Kuan + XB)) If x >= 0 Then If x * (Kuan + XB) + Zeng <= i And i - x * (Kuan + XB) - Zeng <= 50 Then 'MsgBox "砍板宽" & Kuan & "乘以" & x & "=" & x * Kuan & "，故幅宽取" & i '本句测试用，可在下面设置将i值写入表中及窗口中 fk.text = i KP.text = x Exit Sub End If End If Next i 'MsgBox "请检查砍板尺寸！"End Sub
目前代码运行I=1050或者为1700，始终无法自动选择1350.求解！！QQ在线等：490294457

Answer 1

已加了QQ，尝试解决吧

Answer 2

麻烦说详细点

追问

代码运行时，I必须等于950-1800之间每50的数值，我现在可以达到取值，但是不能取到计算后N最小那个。，
下面表格的意思给你代入的，代入后，代码计算后结果不是1050就是1700，N值我需要最小。

追答

你N指的是什么？程序里面没有看到N这个变量
加你Q了

追问