Question

如何将Value添加到我的列表框项名称中，以便我可以在数学函数中使用它？

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

准确地说，我有3个项目：Bankloan，Kreditloan和Miscloan。我想在列表框中为这些项添加值，这样我就可以在数学函数中获得总贷款。

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

Test is not worth getting on here.

Answer 1

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

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

Answer 2

我隐藏了要与记录关联但不希望显示的数据的列。与对最终用户无用的整数值数据库表主键配合使用非常好。

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

如何将Value添加到我的列表框项名称中，以便我可以在数学函数中使用它？ VBA

2 个答案: