excel - 列表框的宏：将索引公式添加到链接单元格

Question

我创建了一个列表框（xactive 控件），其宏如下所示：

Private Sub Workbook_Open()

    With Sheet1.ListBox1
       .AddItem "AAA"
       .AddItem "BBB"
       .AddItem "CCC"
       .LinkedCell = "$A$5"
    End With

End Sub

完成列表框，点击“AAA”显示1，点击“BBB”显示2，点击“CCC”显示3。

我在网上搜索了两天，解决方法是将索引公式添加到链接单元格。但是我不能使用索引公式，因为我的列表填充范围在宏中。

任何帮助，将不胜感激。

Answer 1

必要的改变

在 VB 编辑器中，双击 Sheet1 并输入以下代码：

Private Sub ListBox1_Change()

    Sheet1.Range("$A$5").Value = ListBox1.ListIndex

End Sub

从您的代码中删除这一行：

.LinkedCell = "$A$5"

并再次运行它。现在从您的列表框中选择一个项目。

可选建议

只是一个建议，您可以将其用于现有代码。更简洁一点，特别是如果您必须添加更多项目。

Private Sub Workbook_Open()
    Dim data() As Variant
    data = Array("AAA", "BBB", "CCC")
    Sheet1.ListBox1.List = data
End Sub