vba - 如何区分列表框中显示的文本和实际值。？

Question

我有一个带有多选选项的列表框。我使用 addItem 填充它功能。
我在谷歌上找不到任何关于这个的文章，但我需要区分列表框中显示的文本和一个真实的值。

例如:

shown      hiddenvalue
--------   -----------
monday     A1
tuesday    A2
wednesday  C7

等等

是否可以？如何访问这些值？

Answer 1

对于 VBA 列表框，您想要:

声明两列 (ColumnCount = 2)。

隐藏第二个:ColumnWidths = ";0" .

将第二列声明为绑定(bind) (BoundColumn = 2)，将第一列声明为文本 (TextColumn = 1)。

有一个添加值的过程:

Private Sub AddWithID(Text As String, ID As String)
  ListBox1.AddItem Text
  ListBox1.List(ListBox1.ListCount - 1, 1) = ID
End Sub

现在，对于单选列表框，您可以使用 .Value或 .Text找出选定的值/文本。

对于多选列表框，您可以使用 .List(i, 0)用于文本和 .List(i, 1)为值(value)，其中 i在一行的索引中。