Question

我的用户表单中有一个组合框。我正在尝试使其填充文档的修订号。目前，我只能将其增加01、02、03等整数。

我实际上希望它以0.1为增量增加，所以-1.0、1.1、1.2、1.3等。

我尝试将格式从“ 00”更改为“ 0.0”或“ 0.1”，但这只是继续使用格式，不会在每个后续级别上添加0.1。

Private Sub UserForm_Initialize()
Dim sSaved As String
Dim i As Integer
Dim docType As String

On Error Resume Next
    For i = 0 To 20
        cboRev.AddItem Format(i, "00")
    Next i

Answer 1

根据定义，小数不为整数。将i声明为双精度，然后使用Step 0.1增大十分之一：

Private Sub UserForm_Initialize()
Dim sSaved As String
Dim i As Double
Dim docType As String

For i = 0 To 20.1 Step 0.1
    cboRev.AddItem Application.WorksheetFunction.Round(i, 1)
    'cboRev.AddItem Format(i, "0.0") 'alternative
Next i

在VBA中以0.1的增量增加ComboBox

1 个答案: