主题：[求助] 如何将这段变量代码放进表中

Dim sq,xq,Avg1,nD1,qs1 As Double
Dim Dbs As Double() ={3.55,3.70,3.85,4 ,4.15,4.3,4.45,4.6}
sq =4.5
xq =4.28
Avg1=(sq+xq)/2  

For Each nD1 In Dbs
    If nD1 < sq And nD1 > Avg1 Then     
        qs1 = nD1
    End If
Next

如何将上面这段代码放入表中，自动求出选用【垫片】列，SP=【上差】列的值： Xq= 【下差】列的值：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:计算公式.rar