Excel 如何向列表框项目名称添加值，以便在数学函数中使用它？VBA

如何向列表框项目名称添加值，以便在数学函数中使用它

我有一个由几个名字组成的列表，现在我想给这些项目添加一个值（数字），以便在数学函数中使用它

准确地说，我有三个项目：银行贷款、克雷迪特贷款和杂项贷款。我想给列表框中的项目添加值，这样我就可以在数学函数中得到贷款总额

我需要帮助，我已经尝试了很多，现在我又从头开始了：/

Test is not worth getting on here.

---

将列表中文本项的索引与数字数组同步：

Private mItemValues(2) As Long

Private Sub UserForm_Initialize()
    With ComboBox1
        .AddItem "Bankloan"
         mItemValues(0) = 111

        .AddItem "Kreditloan"
        mItemValues(1) = 222

        .AddItem "Miscloan"
        mItemValues(2) = 333
    End With
End Sub

Private Sub CommandButton1_Click()
    If (ComboBox1.ListIndex < 0) Then
        MsgBox "no selection"
    Else
        MsgBox "Value = " & mItemValues(ComboBox1.ListIndex)
    End If
End Sub

Private mitemvalue（2）的长度
私有子用户表单_初始化（）
使用ComboBox1
.AddItem“银行贷款”
斜接值（0）=111
.AddItem“Kreditloan”
斜接值（1）=222
.AddItem“杂项贷款”
最小值（2）=333
以
端接头
私有子命令按钮1_单击（）
如果（ComboBox1.ListIndex<0），则
MsgBox“无选择”
其他的
MsgBox“Value=”&mItemValues（ComboBox1.ListIndex）
如果结束
端接头

我隐藏了我想与记录关联但不想显示的数据的列。 使用对最终用户没有用处的整数值的数据库表主键非常有效

filterQuery = "SELECT ID, [PROJECT NAME] FROM PROJECTS_TABLE"
With Me.listbox1
    .ColumnCount = 2
    .ColumnWidths = "0 in, 3 in"
    .RowSource = filterQuery
    .Requery
End With