在 vba 中以 0.1 的增量增加 ComboBox

Question

我在 word 的用户窗体中有一个组合框。我试图让它填充文档的修订号。目前我只能让它增加全数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

根据定义，小数是 non-integer。将 i 声明为 double，并使用 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

Increase ComboBox with increments of 0.1 in vba

vba

numbers

userform