Question

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

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。

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

任何帮助都将不胜感激。

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

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

1 个答案: