主题：[求助] 根据计算结果选定相应数值

那这样呢：

 

谢谢各位仁兄的帮助，现在还有个问题就是怎样在[垫片列]自动显示所筛选出的垫片型号，

 小弟不才，请多多关照

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

 

此主题相关图片如下：1000.jpg

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

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

好像还是原来的表，没改变什么的呀

窗口里找

我已经把窗口显示有效数值更改好，不知道什么弄这段代码进去。

 

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

上面代码是作者：lkqing 帮写，谢谢。已经试过，非常好，不知怎样才能让【垫片】列显示出所判定出的数值。

 

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

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

不是已告诉你了吗

在你录完输出轴后会自动填入

此主题相关图片如下：捕获.jpg

兄弟，您发回的这表是不是搞错了，我真的没见你说的那样录完输出轴后会自动填入选定垫片框，麻烦您再帮我看看重新发一次好吗？真的太太感谢您了。

不好意思，可能是我搞错了，请在13楼重新下载

问题解决，非常感谢论坛各位高人的帮助，小弟会虚心向你们学习。