Question

我遇到了以下问题：

我创建了一个VBA Excel Userform，它可以计算给定螺栓尺寸的max和min孔尺寸。

所有计算等都包含在表单的代码中，我没有，也不想引用电子表格。

我添加了一个组合框，以列出介于最大和最小孔尺寸之间的所有合适的标准钻头尺寸，但是我希望它仅显示适合于没有孔太大或太小的钻头。

示例：

对于公差为0.25mm的M12螺栓

MaxHoleSizeBox = 12.3
MinHoleSizeBox = 11.41

从10毫米开始，钻头尺寸以0.5毫米为步长递增，因此：

Suitable Drill Sizes = 11.5mm and 12mm

请注意，最大10mm的钻头以0.1mm的步长增加，而10mm以上的钻头以0.5mm的步长增加，如下面的数组所示。

到目前为止我所拥有的：

Private Sub MinHoleSize_Change()

On Error Resume Next

'Array List of Standard Drill Sizes

arrList = Array(5, 5.1, 5.2, 5.3, 5.4, 5.5, 5.6, 5.7, 5.8, 5.9, 6, 6.1, 6.2, 6.3, 6.4, 6.5, 6.6, 6.7, 6.8, 6.9, 7, 7.1, 7.2, 7.3, 7.4, 7.5, 7.6, 7.7, 7.8, 7.9, 8, 8.1, 8.2, 8.3, 8.4, 8.5, 8.6, 8.7, 8.8, 8.9, 9, 9.1, 9.2, 9.3, 9.4, 9.5, 9.6, 9.7, 9.8, 9.9, 10, 10.5, 11, 11.5, 12, 12.5, 13, 13.5, 14, 14.5, 15, 15.5, 16, 16.5, 17, 17.5, 18, 18.5, 19, 19.5, 20, 20.5, 21, 21.5, 22, 22.5, 23, 23.5, 24, 24.5, 25, 25.5, 26, 26.5, 27, 27.5, 28, 28.5, 29, 29.5, 30, 30.5, 31, 31.5, 32, 32.5, 33, 33.5, 34, 34.5, 35, 35.5, 36, 36.5, 37, 37.5, 38)

DrillBox.List = arrList

End Sub

如何仅使用数组中位于最大和最小指定孔尺寸之间的标准钻头尺寸填充组合框？

Private Sub MinHoleSize_Change()
On Error Resume Next
'Array List of Standard Drill Sizes

arrList = Array(5, 5.1, 5.2, 5.3, 5.4, 5.5, 5.6, 5.7, 5.8, 5.9, 6, 6.1, 6.2, 6.3, 6.4, 6.5, 6.6, 6.7, 6.8, 6.9, 7, 7.1, 7.2, 7.3, 7.4, 7.5, 7.6, 7.7, 7.8, 7.9, 8, 8.1, 8.2, 8.3, 8.4, 8.5, 8.6, 8.7, 8.8, 8.9, 9, 9.1, 9.2, 9.3, 9.4, 9.5, 9.6, 9.7, 9.8, 9.9, 10, 10.5, 11, 11.5, 12, 12.5, 13, 13.5, 14, 14.5, 15, 15.5, 16, 16.5, 17, 17.5, 18, 18.5, 19, 19.5, 20, 20.5, 21, 21.5, 22, 22.5, 23, 23.5, 24, 24.5, 25, 25.5, 26, 26.5, 27, 27.5, 28, 28.5, 29, 29.5, 30, 30.5, 31, 31.5, 32, 32.5, 33, 33.5, 34, 34.5, 35, 35.5, 36, 36.5, 37, 37.5, 38)

DrillBox.List = arrList

End Sub

我希望组合框更新为仅显示合适的钻头尺寸。

Answer 1

Private Sub MinHoleSize_Change()
On Error Resume Next
arrList = Array(5, 5.1, 5.2, 5.3, 5.4, 5.5, 5.6, 5.7, 5.8, 5.9, 6, 6.1, 6.2, 6.3, 6.4, 6.5, 6.6, 6.7, 6.8, 6.9, 7, 7.1, 7.2, 7.3, 7.4, 7.5, 7.6, 7.7, 7.8, 7.9, 8, 8.1, 8.2, 8.3, 8.4, 8.5, 8.6, 8.7, 8.8, 8.9, 9, 9.1, 9.2, 9.3, 9.4, 9.5, 9.6, 9.7, 9.8, 9.9, 10, 10.5, 11, 11.5, 12, 12.5, 13, 13.5, 14, 14.5, 15, 15.5, 16, 16.5, 17, 17.5, 18, 18.5, 19, 19.5, 20, 20.5, 21, 21.5, 22, 22.5, 23, 23.5, 24, 24.5, 25, 25.5, 26, 26.5, 27, 27.5, 28, 28.5, 29, 29.5, 30, 30.5, 31, 31.5, 32, 32.5, 33, 33.5, 34, 34.5, 35, 35.5, 36, 36.5, 37, 37.5, 38)

将我作为变体

For Each i In arrList
      If i>=MinHoleSizeBox And i<=MaxHoleSizeBox Then
                YourCombobox.AddItem (i)
            End If
        Next

End Sub

这只是一个原型。希望可以为您提供帮助。

参考文献：

How to use ComBoxbox

For-Each

VBA在指定值之间选择数组值

1 个答案: